Home
last modified time | relevance | path

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

123

/openbsd/src/gnu/usr.bin/perl/ext/XS-APItest/t/
Dcall.t71 ok(eq_array( [ call_sv(\&f, $flags, @$args) ], $expected),
74 ok(eq_array( [ call_sv(*f, $flags, @$args) ], $expected),
77 ok(eq_array( [ call_sv('f', $flags, @$args) ], $expected),
80 ok(eq_array( [ call_pv('f', $flags, @$args) ], $expected),
83 ok(eq_array( [ call_argv('f', $flags, @$args) ], $expected),
86 ok(eq_array( [ eval_sv('f(' . join(',',map"'$_'",@$args) . ')', $flags) ],
89 ok(eq_array( [ call_method('meth', $flags, $obj, @$args) ], $expected),
103 ok(eq_array( [ call_sv('d', $flags|G_EVAL|$keep, @$args) ],
111 ok(eq_array( [ call_pv('d', $flags|G_EVAL|$keep, @$args) ],
119 ok(eq_array( [ call_argv('d', $flags|G_EVAL|$keep, @$args) ],
[all …]
/openbsd/src/gnu/usr.bin/perl/t/mro/
Dcomplex_dfs_utf8.t86 ok(eq_array(
91 ok(eq_array(
96 ok(eq_array(
101 ok(eq_array(
106 ok(eq_array(
111 ok(eq_array(
116 ok(eq_array(
121 ok(eq_array(
126 ok(eq_array(
131 ok(eq_array(
[all …]
Dcomplex_c3_utf8.t89 ok(eq_array(
94 ok(eq_array(
99 ok(eq_array(
104 ok(eq_array(
109 ok(eq_array(
114 ok(eq_array(
119 ok(eq_array(
124 ok(eq_array(
129 ok(eq_array(
134 ok(eq_array(
[all …]
Dbasic_utf8.t30 ok(eq_array(
34 ok(eq_array(mro::get_linear_isa('MRO_ᚠ', 'dfs'), \@MFO_ᚠ_DFS));
35 ok(eq_array(mro::get_linear_isa('MRO_ᚠ', 'c3'), \@MFO_ᚠ_C3));
41 ok(eq_array(
45 ok(eq_array(mro::get_linear_isa('MRO_ᚠ', 'dfs'), \@MFO_ᚠ_DFS));
46 ok(eq_array(mro::get_linear_isa('MRO_ᚠ', 'c3'), \@MFO_ᚠ_C3));
63 ok(eq_array(
149 ok(eq_array(mro::get_linear_isa('ᛁ앛ଌᛠ'),[qw/ᛁ앛ଌᛠ ｘｘ ƳƳ ƶƶ/]));
154 ok(eq_array(mro::get_linear_isa('ᛁ앛ଌᛠ'),[qw/ᛁ앛ଌᛠ ｘｘ main ƶƶ/]));
158 ok(eq_array(mro::get_linear_isa('ᛁ앛ଌᛠ'),[qw/ᛁ앛ଌᛠ/]));
[all …]
Dcomplex_dfs.t84 ok(eq_array(
89 ok(eq_array(
94 ok(eq_array(
99 ok(eq_array(
104 ok(eq_array(
109 ok(eq_array(
114 ok(eq_array(
119 ok(eq_array(
124 ok(eq_array(
129 ok(eq_array(
[all …]
Dcomplex_c3.t87 ok(eq_array(
92 ok(eq_array(
97 ok(eq_array(
102 ok(eq_array(
107 ok(eq_array(
112 ok(eq_array(
117 ok(eq_array(
122 ok(eq_array(
127 ok(eq_array(
132 ok(eq_array(
[all …]
Dbasic.t34 ok(eq_array(
38 ok(eq_array(mro::get_linear_isa('MRO_F', 'dfs'), \@MFO_F_DFS));
39 ok(eq_array(mro::get_linear_isa('MRO_F', 'c3'), \@MFO_F_C3));
45 ok(eq_array(
49 ok(eq_array(mro::get_linear_isa('MRO_F', 'dfs'), \@MFO_F_DFS));
50 ok(eq_array(mro::get_linear_isa('MRO_F', 'c3'), \@MFO_F_C3));
55 ok(eq_array(
72 ok(eq_array(
158 ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR XX YY ZZ/]));
163 ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR XX main ZZ/]));
[all …]
Dbasic_02_c3_utf8.t84 ok(eq_array(
89 ok(eq_array(
94 ok(eq_array(
99 ok(eq_array(
104 ok(eq_array(
109 ok(eq_array(
Dbasic_02_dfs_utf8.t84 ok(eq_array(
89 ok(eq_array(
94 ok(eq_array(
99 ok(eq_array(
104 ok(eq_array(
109 ok(eq_array(
Dbasic_02_dfs.t82 ok(eq_array(
87 ok(eq_array(
92 ok(eq_array(
97 ok(eq_array(
102 ok(eq_array(
107 ok(eq_array(
Dbasic_02_c3.t82 ok(eq_array(
87 ok(eq_array(
92 ok(eq_array(
97 ok(eq_array(
102 ok(eq_array(
107 ok(eq_array(
Dnext_method.t48 ok(eq_array(
Dnext_method_utf8.t50 ok(eq_array(
Dbasic_01_dfs.t40 ok(eq_array(
Dbasic_01_c3.t40 ok(eq_array(
Dbasic_04_dfs_utf8.t34 ok(eq_array(
/openbsd/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 …]
Dkvaslice.t39 ok eq_array( \@a, [ (1 => 'b') x 3 ]), "repetead keys end with repeated results";
65 ok( eq_array( \@a, ['a', 'b'] ), "correct array" );
99 ok( eq_array( \@a, [0,2,2,4] ), "correct array" );
100 ok( eq_array( \@i, [1,3] ), "indexes not touched" );
109 ok( eq_array( \@a, [0,2,2,4] ), "correct array" );
110 ok( eq_array( \@i, [1,3] ), "indexes not touched" );
Dsrand.t27 ok( eq_array(\@first_run, \@second_run), 'srand(), same arg, same rands' );
37 ok( !eq_array(\@first_run, \@second_run),
50 ok( !eq_array(\@first_run, \@second_run),
62 ok( !eq_array(\@first_run, \@second_run), 'srand() called automatically');
Dtry.t196 ok(eq_array(\@array, [4, 5, 6]), 'try { return } in :lvalue sub in list context' );
211 ok(eq_array(\@list, [1, 2, 3]), 'do { try } in list context');
234 ok(eq_array(\@list, [4, 5, 6]), 'do { try/catch } in list context');
Dkvhslice.t39 ok eq_array( \@a, [ ('c', 'C') x 3 ]), "repetead keys end with repeated results";
178 ok( eq_array( [%h{'b','a', 'e'}], [qw(b B a A e), undef] ),
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/
DMore.t92 ok( eq_array([qw(this that whatever)], [qw(this that whatever)]),
120 ok( eq_array(\@complex_array1, \@complex_array2),
130 ok( !eq_array(\@array1, \@array2),
Dcircular_data.t24 ok( eq_array ($a1, $a2) );
40 ok( eq_array ([$s], [$r]) );
/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
Dcall398 ok(eq_array( [ &Devel::PPPort::call_sv(\&f, $flags, @$args) ], $expected));
399 ok(eq_array( [ &Devel::PPPort::call_sv(*f, $flags, @$args) ], $expected));
400 ok(eq_array( [ &Devel::PPPort::call_sv('f', $flags, @$args) ], $expected));
401 ok(eq_array( [ &Devel::PPPort::call_pv('f', $flags, @$args) ], $expected));
402 ok(eq_array( [ &Devel::PPPort::call_argv('f', $flags, @$args) ], $expected));
403 ok(eq_array( [ &Devel::PPPort::eval_sv("f(qw(@$args))", $flags) ], $expected));
404 ok(eq_array( [ &Devel::PPPort::call_method('meth', $flags, $obj, @$args) ], $expected));
405 ok(eq_array( [ &Devel::PPPort::call_sv_G_METHOD('meth', $flags, $obj, @$args) ], $expected));
/openbsd/src/gnu/usr.bin/perl/lib/
Dbuiltin.t313 ok(eq_array([indexed], [] ),
316 ok(eq_array([indexed "A"], [0, "A"] ),
319 ok(eq_array([indexed "X" .. "Z"], [0, "X", 1, "Y", 2, "Z"] ),
324 ok(eq_array(\@orig, [1 .. 3]), 'indexed copies values, does not alias');

123