Home
last modified time | relevance | path

Searched refs:eq_array (Results 1 – 24 of 24) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/ext/XS/APItest/t/
Dcall.t75 ok(eq_array( [ call_sv(\&f, $flags, @$args) ], $expected),
78 ok(eq_array( [ call_sv(*f, $flags, @$args) ], $expected),
81 ok(eq_array( [ call_sv('f', $flags, @$args) ], $expected),
84 ok(eq_array( [ call_pv('f', $flags, @$args) ], $expected),
87 ok(eq_array( [ eval_sv('f(' . join(',',map"'$_'",@$args) . ')', $flags) ],
90 ok(eq_array( [ call_method('meth', $flags, $obj, @$args) ], $expected),
98 ok(eq_array( [ call_sv('d', $flags|G_EVAL|$keep, @$args) ],
104 ok(eq_array( [ call_pv('d', $flags|G_EVAL|$keep, @$args) ],
110 ok(eq_array( [ eval_sv('d()', $flags|$keep) ],
116 ok(eq_array( [ call_method('d', $flags|G_EVAL|$keep, $obj, @$args) ],
[all …]
Dpush.t22 ok(eq_array(\@mpushp, [qw(one two three)]), 'mPUSHp()');
23 ok(eq_array(\@mpushn, [0.5, -0.25, 0.125]), 'mPUSHn()');
24 ok(eq_array(\@mpushi, [-1, 2, -3]), 'mPUSHi()');
25 ok(eq_array(\@mpushu, [1, 2, 3]), 'mPUSHu()');
31 ok(eq_array(\@mxpushp, [qw(one two three)]), 'mXPUSHp()');
32 ok(eq_array(\@mxpushn, [0.5, -0.25, 0.125]), 'mXPUSHn()');
33 ok(eq_array(\@mxpushi, [-1, 2, -3]), 'mXPUSHi()');
34 ok(eq_array(\@mxpushu, [1, 2, 3]), 'mXPUSHu()');
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dhashassign.t36 ok (eq_array (\@comma, \@temp), 'list from comma hash');
39 ok (eq_array (\@comma, \@temp), 'first each from comma hash');
41 ok (eq_array ([], \@temp), 'last each from comma hash');
54 ok (eq_array (\@temp, \@temp), 'list from copy of comma hash');
57 ok (eq_array (\@temp, \@temp), 'first each from copy of comma hash');
59 ok (eq_array ([], \@temp), 'last each from copy of comma hash');
76 ok (eq_array (\@arrow, \@temp), 'list from arrow hash');
79 ok (eq_array (\@arrow, \@temp), 'first each from arrow hash');
81 ok (eq_array ([], \@temp), 'last each from arrow hash');
94 ok (eq_array (\@temp, \@temp), 'list from copy of arrow hash');
[all …]
Dsrand.t29 …ok( eq_array(\@first_run, \@second_run), 'srand(), same arg, same rands' ) unless $^O eq 'mirbsd';
40 ok( !eq_array(\@first_run, \@second_run),
53 ok( !eq_array(\@first_run, \@second_run),
62 ok( !eq_array(\@first_run, \@second_run), 'srand() called automatically');
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/t/
Dcall.t38 sub eq_array
78 ok(eq_array( [ &Devel::PPPort::call_sv(\&f, $flags, @$args) ], $expected));
79 ok(eq_array( [ &Devel::PPPort::call_sv(*f, $flags, @$args) ], $expected));
80 ok(eq_array( [ &Devel::PPPort::call_sv('f', $flags, @$args) ], $expected));
81 ok(eq_array( [ &Devel::PPPort::call_pv('f', $flags, @$args) ], $expected));
82 ok(eq_array( [ &Devel::PPPort::call_argv('f', $flags, @$args) ], $expected));
83 ok(eq_array( [ &Devel::PPPort::eval_sv("f(qw(@$args))", $flags) ], $expected));
84 ok(eq_array( [ &Devel::PPPort::call_method('meth', $flags, $obj, @$args) ], $expected));
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/inc/
Dcall188 sub eq_array
228 ok(eq_array( [ &Devel::PPPort::call_sv(\&f, $flags, @$args) ], $expected));
229 ok(eq_array( [ &Devel::PPPort::call_sv(*f, $flags, @$args) ], $expected));
230 ok(eq_array( [ &Devel::PPPort::call_sv('f', $flags, @$args) ], $expected));
231 ok(eq_array( [ &Devel::PPPort::call_pv('f', $flags, @$args) ], $expected));
232 ok(eq_array( [ &Devel::PPPort::call_argv('f', $flags, @$args) ], $expected));
233 ok(eq_array( [ &Devel::PPPort::eval_sv("f(qw(@$args))", $flags) ], $expected));
234 ok(eq_array( [ &Devel::PPPort::call_method('meth', $flags, $obj, @$args) ], $expected));
/mirbsd/src/gnu/usr.bin/perl/lib/
DShell.t47 ok(eq_array(\@files, [$so->directory('*.*')]), 'object method');
55 ok(eq_array(\@files, [$so->dir('*.*')]), 'object method');
63 ok(eq_array(\@files, [$so->ls('*')]), 'object method');
DDB.t174 ok( eq_array( \@subs, \@expected ), '... find file, start, end for subs' );
DBenchmark.t545 ok (!eq_array ([keys %Benchmark::Cache], \@after5_keys), "10 differs from 5");
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Simple/t/
DMore.t68 ok( eq_array([qw(this that whatever)], [qw(this that whatever)]),
96 ok( eq_array(\@complex_array1, \@complex_array2),
106 ok( !eq_array(\@array1, \@array2),
Dcircular_data.t24 ok( eq_array ($a1, $a2) );
40 ok( eq_array ([$s], [$r]) );
Dsort_bug.t48 eq_array(\@list, \@list2);
Doverload.t48 ok eq_array([$obj], ['foo']), 'eq_array ...';
Dundef.t55 eq_array( [undef, undef], [undef, 23] );
/mirbsd/src/gnu/usr.bin/perl/lib/Pod/t/
DFunctions.t41 ok( eq_array( \@Type_Order, \@catagories ),
46 ok( eq_array( \@cat_keys, \@catagories ),
DInputObjects.t109 ok( eq_array( [ $p_pt1->children() ], [ $p_pt1, $p_pt2] ),
/mirbsd/src/gnu/usr.bin/perl/lib/Test/
DMore.pm1161 sub eq_array { subroutine
1366 return eq_array(
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/t/
DMM_Win32.t167 ok( eq_array( [ $MM->path() ], [ File::Spec->path ] ),
DMM_NW5.t158 ok( eq_array( [ $MM->path() ], [ @path_eg ] ),
/mirbsd/src/gnu/usr.bin/perl/ext/Storable/t/
Ddowngrade.t130 ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
144 ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
/mirbsd/src/gnu/usr.bin/perl/t/
Dtest.pl307 sub eq_array { subroutine
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Simple/
DChanges120 - eq_array() and eq_hash() could hold onto references if they failed
/mirbsd/src/gnu/usr.bin/perl/
DChanges5.8.61928 made eq_array in t/test.pl handle undef values better
/mirbsd/src/gnu/usr.bin/perl/pod/
Dperltoc.pod20213 B<eq_array>