use
lib
"$FindBin::Bin/../lib"
;
my
$sum1
= sum_array( [
"This"
, {
string
=>
"This is a test string."
,
number
=>
'This is a another string.'
},
"a"
,
"test"
,
"string."
] );
my
$sum2
= sum_array( [
"This"
, {
number
=>
'This is a another string.'
,
string
=>
"This is a test string."
},
"a"
,
"test"
,
"string."
] );
ok((
$sum1
eq
$sum2
) == 1,
'test compare array with numbers'
);
$sum1
= sum_array([1,2]);
$sum2
= sum_array([
q{1","2}
]);
ok((
$sum1
eq
$sum2
) != 1,
'test compare array with numbers'
);
$sum1
= sum_array([1,2,3]);
$sum2
= sum_array([
q{1","2}
,3]);
ok((
$sum1
eq
$sum2
) != 1,
'test compare array with numbers'
);
$sum1
= sum_array([1,
q{2,3}
]);
$sum2
= sum_array([
q{1,2}
,3]);
ok((
$sum1
eq
$sum2
) != 1,
'test compare array with numbers'
);
$sum1
= sum_array([1,
q{2,3}
]);
$sum2
= sum_array([
q{1,2}
,3]);
ok((
$sum1
eq
$sum2
) != 1,
'test compare array with numbers'
);
$sum1
= sum_array([1,
q{2,3}
,4]);
$sum2
= sum_array([
q{1,2}
,3,4]);
ok((
$sum1
eq
$sum2
) != 1,
'test compare array with numbers'
);
$sum1
= sum_array([1,2, {
string
=>
"This is a test string."
,
number
=>
'This is a another string.'
}]);
$sum2
= sum_array([1,2,
q~{ string => "This is a test string.", number => 'This is a another string.'}~
]);
ok((
$sum1
eq
$sum2
) != 1,
'test compare array with numbers'
);
$sum1
= sum_array([
"\x{0100}"
]);
$sum2
= sum_array([
"Ā"
]);
ok((
$sum1
eq
$sum2
) != 1,
'test compare character encodings'
);