1use Test::Base tests => 8;
2
3my $test = Test::Base->new;
4
5my $t = -e 't' ? 't' : 'test';
6my @blocks = $test->filters('chomp')->spec_file("$t/spec1")->blocks;
7
8is $blocks[0]->foo, '42';
9is $blocks[0]->bar, '44';
10is $blocks[1]->xxx, '123';
11is $blocks[1]->yyy, '321';
12
13@blocks = Test::Base->new->delimiters('^^^', '###')->blocks;
14
15is $blocks[0]->foo, "42\n";
16is $blocks[0]->bar, "44\n";
17is $blocks[1]->xxx, "123\n";
18is $blocks[1]->yyy, "321\n";
19
20__END__
21^^^ Test one
22
23### foo
2442
25
26### bar
2744
28
29^^^ Test two
30
31### xxx
32123
33### yyy
34321
35