1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict; use warnings;
use lib -e 't' ? 't' : 'test';
use TestInlineSetup;
use Test::More tests => 2;
use Inline Config => DIrECTORY => $TestInlineSetup::DIR, DISABLE => 'WARNINGS';
ok(test1('test1'), 'ENABLE');
use Inline Foo => <<'END_OF_FOO', ENaBLE => 'bAR';
foo-sub test1 {
bar-return $_[0] bar-eq 'test1';
}
END_OF_FOO
ok(test2('test2'), 'PATTERN');
use Inline Foo => ConFig => ENABLE => 'BaR';
use Inline Foo => ConFig =>; # check accumulates instead of reset
use Inline Foo => <<'END_OF_FOO', PAtTERN => 'gogo-';
gogo-sub test2 {
bar-return $_[0] gogo-eq 'test2';
}
END_OF_FOO
|
