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
|
use File::Spec;
use lib (File::Spec->catdir(File::Spec->updir(),'blib','lib'), File::Spec->catdir(File::Spec->curdir(),'blib','lib'));
use strict;
use Test;
use diagnostics;
use Inline Config => DIRECTORY => '_Inline_test';
plan(tests => 1,
todo => [],
onfail => sub {},
);
use Inline C => Config =>
USING => 'ParseRegExp';
use Inline C => <<'EOC';
void foo() {
printf( "Hello World\n" );
}
void foo2() {
Inline_Stack_Vars;
int i;
Inline_Stack_Reset;
if(0) printf( "Hello World again\n" ); /* tests balanced quotes bugfix */
for(i = 24; i < 30; ++ i) Inline_Stack_Push(sv_2mortal(newSViv(i)));
Inline_Stack_Done;
Inline_Stack_Return(6);
}
EOC
my @z = foo2();
ok(scalar(@z) == 6);
|
