1 ################################################################################
3 # !!!!! Do NOT edit this file directly! !!!!!
5 # Edit mktests.PL and/or parts/inc/call instead.
7 ################################################################################
10 if ($ENV{'PERL_CORE'}) {
12 @INC = ('../lib', '../ext/Devel/PPPort/t') if -d '../lib' && -d '../ext';
13 require Config; import Config;
15 if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
16 print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
26 require 'testutil.pl' if $@;
39 package Devel::PPPort;
42 @ISA = qw(DynaLoader);
43 bootstrap Devel::PPPort;
50 join(':', @$a) eq join(':', @$b);
58 @_, defined wantarray ? wantarray ? 'x' : 'y' : 'z';
61 my $obj = bless [], 'Foo';
65 return 'bad_self' unless @_ && ref $_[0] && ref($_[0]) eq 'Foo';
70 @_, defined wantarray ? wantarray ? 'x' : 'y' : 'z';
76 # flags args expected description
77 [ &Devel::PPPort::G_SCALAR, [ ], [ qw(y 1) ], '0 args, G_SCALAR' ],
78 [ &Devel::PPPort::G_SCALAR, [ qw(a p q) ], [ qw(y 1) ], '3 args, G_SCALAR' ],
79 [ &Devel::PPPort::G_ARRAY, [ ], [ qw(x 1) ], '0 args, G_ARRAY' ],
80 [ &Devel::PPPort::G_ARRAY, [ qw(a p q) ], [ qw(b p x 3) ], '3 args, G_ARRAY' ],
81 [ &Devel::PPPort::G_DISCARD, [ ], [ qw(0) ], '0 args, G_DISCARD' ],
82 [ &Devel::PPPort::G_DISCARD, [ qw(a p q) ], [ qw(0) ], '3 args, G_DISCARD' ],
85 my ($flags, $args, $expected, $description) = @$test;
86 print "# --- $description ---\n";
87 ok(eq_array( [ &Devel::PPPort::call_sv(\&f, $flags, @$args) ], $expected));
88 ok(eq_array( [ &Devel::PPPort::call_sv(*f, $flags, @$args) ], $expected));
89 ok(eq_array( [ &Devel::PPPort::call_sv('f', $flags, @$args) ], $expected));
90 ok(eq_array( [ &Devel::PPPort::call_pv('f', $flags, @$args) ], $expected));
91 ok(eq_array( [ &Devel::PPPort::call_argv('f', $flags, @$args) ], $expected));
92 ok(eq_array( [ &Devel::PPPort::eval_sv("f(qw(@$args))", $flags) ], $expected));
93 ok(eq_array( [ &Devel::PPPort::call_method('meth', $flags, $obj, @$args) ], $expected));
96 ok(&Devel::PPPort::eval_pv('f()', 0), 'y');
97 ok(&Devel::PPPort::eval_pv('f(qw(a b c))', 0), 'y');