xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/eq_set.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
1*5759b3d2Safresh1#!perl -w
2*5759b3d2Safresh1
3*5759b3d2Safresh1BEGIN {
4*5759b3d2Safresh1    if( $ENV{PERL_CORE} ) {
5*5759b3d2Safresh1        chdir 't';
6*5759b3d2Safresh1        @INC = ('../lib', 'lib');
7*5759b3d2Safresh1    }
8*5759b3d2Safresh1    else {
9*5759b3d2Safresh1        unshift @INC, 't/lib';
10*5759b3d2Safresh1    }
11*5759b3d2Safresh1}
12*5759b3d2Safresh1chdir 't';
13*5759b3d2Safresh1
14*5759b3d2Safresh1use strict;
15*5759b3d2Safresh1use Test::More;
16*5759b3d2Safresh1
17*5759b3d2Safresh1plan tests => 4;
18*5759b3d2Safresh1
19*5759b3d2Safresh1# RT 3747
20*5759b3d2Safresh1ok( eq_set([1, 2, [3]], [[3], 1, 2]) );
21*5759b3d2Safresh1ok( eq_set([1,2,[3]], [1,[3],2]) );
22*5759b3d2Safresh1
23*5759b3d2Safresh1# bugs.perl.org 36354
24*5759b3d2Safresh1my $ref = \2;
25*5759b3d2Safresh1ok( eq_set( [$ref, "$ref", "$ref", $ref],
26*5759b3d2Safresh1            ["$ref", $ref, $ref, "$ref"]
27*5759b3d2Safresh1          ) );
28*5759b3d2Safresh1
29*5759b3d2Safresh1TODO: {
30*5759b3d2Safresh1    local $TODO = q[eq_set() doesn't really handle references];
31*5759b3d2Safresh1
32*5759b3d2Safresh1    ok( eq_set( [\1, \2, \3], [\2, \3, \1] ) );
33*5759b3d2Safresh1}
34*5759b3d2Safresh1
35