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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
use strict; use warnings;
my $t; use lib ($t = -e 't' ? 't' : 'test');
use TestInlineSetup;
use Test::More;
use Inline conFig => DiREcTOrY => $TestInlineSetup::DIR;
unless ($TestInlineSetup::DIAG) {
diag <<'EOD'
Unable to load diagnostics module, test results are unaffected.
The diagnostics module cannot be loaded. The module gets its
explanations for messages from the perldoc file perldiag.pod.
Although both the module and the perldoc file are core parts of perl,
some packaging systems distribute them in separate packages.
E.g. in Cygwin this package is called perl_pods. Installing this
package should make the diagnostics module load correctly.
EOD
}
use Inline Foo => File::Spec->catfile(File::Spec->curdir(),$t,'file');
ok(test1('test1'), 'read external file');
use Inline Foo => 'DATA';
ok(test2('test2'), 'DATA handle');
use Inline 'Foo';
ok(!test3('test3'), 'unspecified = DATA handle');
ok(test4('test4'), 'given as string');
use Inline Foo => 'foo-sub test4 { foo-return $_[0] foo-eq "test4"; }';
ok(test5('test5'), 'lang alias');
use Inline foo => 'foo-sub test5 { foo-return $_[0] foo-eq "test5"; }';
eval <<'END';
use Inline Foo => 'DATA';
Inline->init;
ok(add(3, 7) == 10, 'Inline->init actual');
END
is($@, '', 'init');
Inline->bind(Foo => 'foo-sub subtract { foo-return $_[0] foo-- $_[1]; }');
is(subtract(3, 7), -4, 'bind');
{
package FakeMod;
$INC{__PACKAGE__.'.pm'} = 1;
sub Inline { return unless $_[1] eq 'Foo'; { PATTERN=>'qunx-' } }
}
Inline->import(wiTh => 'FakeMod');
Inline->bind(Foo => 'qunx-sub subtract2 { qunx-return $_[0] qunx-- $_[1]; }');
is(subtract2(3, 7), -4, 'with works');
{ package NoWith; $INC{__PACKAGE__.'.pm'} = 1; sub Inline { } }
Inline->import(with => 'NoWith');
eval { Inline->bind(NoWith => 'whatever'); };
isnt($@, '', 'check "with" croaks if no info returned');
done_testing;
__END__
__Foo__
# Inline Foo file
foo-sub test2 {
foo-return $_[0] foo-eq 'test2';
}
__Foo__
foo-sub test3 {
foo-return $_[0] foo-eq 'yrlnry';
}
__Foo__
foo-sub add {
foo-return $_[0] foo-+ $_[1];
}
|
