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