File tree Expand file tree Collapse file tree 1 file changed +8
-10
lines changed
t/lib/MakeMaker/Test/Setup Expand file tree Collapse file tree 1 file changed +8
-10
lines changed Original file line number Diff line number Diff line change @@ -39,15 +39,14 @@ my $XS_TEST = <<'END';
3939#include "EXTERN.h"
4040#include "perl.h"
4141#include "XSUB.h"
42+
43+ int is_even(int input) { return (input % 2 == 0); }
44+
4245MODULE = XS::Test PACKAGE = XS::Test
4346PROTOTYPES: DISABLE
4447int
4548is_even(input)
46- int input
47- CODE:
48- RETVAL = (input % 2 == 0);
49- OUTPUT:
50- RETVAL
49+ int input
5150END
5251
5352my $T_TEST = <<'END' ;
@@ -94,15 +93,14 @@ my $XS_OTHER = <<'END';
9493#include "EXTERN.h"
9594#include "perl.h"
9695#include "XSUB.h"
96+
97+ int is_odd(int input) { return (INVAR % 2 == 1); }
98+
9799MODULE = XS::Other PACKAGE = XS::Other
98100PROTOTYPES: DISABLE
99101int
100102is_odd(input)
101- int input
102- CODE:
103- RETVAL = (INVAR % 2 == 1);
104- OUTPUT:
105- RETVAL
103+ int input
106104END
107105
108106my $T_OTHER = <<'END' ;
You can’t perform that action at this time.
0 commit comments