1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::BASE_DIR = './t/data/';
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
ok (1);
exit;
# otherwise we get an ugly file written in /tmp
my $string;
eval { $string = Petal->new( 'set_nested_var.html' )->process(); };
TODO: {
local $TODO = 'set nested values not implemented';
if ($@)
{
fail( 'died after process()' );
diag($@);
}
else
{
like( $string, qr/ok: my defined/, "hash 'my' created" );
like( $string, qr/ok: my-test defined/, "hash 'my/test' created" );
like( $string, qr/ok: my-test-fu defined/, "hash 'my/test/fu' created" );
like( $string, qr/ok: foo defined/, "hash 'foo' created" );
like( $string, qr/ok: foo-1 defined/, "array 'foo/1' created" );
}
}
|
