File Coverage

t/02config.t
Criterion Covered Total %
statement n/a
branch n/a
condition n/a
subroutine n/a
pod n/a
total n/a


line stmt bran cond sub pod time code
1             use File::Spec;
2             use lib (File::Spec->catdir(File::Spec->curdir(),'blib','lib'), File::Spec->curdir());
3             use strict;
4             use Test;
5             use diagnostics;
6             use Inline Config => DIRECTORY => '_Inline_test';
7              
8             BEGIN {
9             plan(tests => 2,
10             todo => [],
11             onfail => sub {},
12             );
13             }
14              
15             # test 1
16             # Make sure ENABLE works
17             ok(test1('test1'));
18             use Inline Foo => <<'END_OF_FOO', ENABLE => 'BAR';
19             foo-sub test1 {
20             bar-return $_[0] bar-eq 'test1';
21             }
22             END_OF_FOO
23              
24             # test 2
25             # Make sure PATTERN works
26             ok(test2('test2'));
27             use Inline Foo => Config => ENABLE => 'BAR';
28             use Inline Foo => <<'END_OF_FOO', PATTERN => 'gogo-';
29             gogo-sub test2 {
30             bar-return $_[0] gogo-eq 'test2';
31             }
32             END_OF_FOO
33              
34