2 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg");
isnt(refaddr($got[0]), refaddr($m),
, 2 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
isnt(refaddr($got), refaddr($m),
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the first input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' first output arg is not the second input
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[1]), refaddr($y),
"'$test' second output arg is not the second inpu
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the third input arg");
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the first input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
arg");
is(ref($got[0]), "",
"'$test' output arg is a Perl scalar");
isnt($got[0], undef,
"'$test' output arg is defined");
like($got[0], qr/^[+-]?(\
ests => 4,
is(ref($got), "",
"'$test' output arg is a Perl scalar");
isnt($got, undef,
"'$test' output arg is defined");
like($got, qr/^[+-]?(\d+(\.\
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the third input arg");
is($got[1], $out1,
"'$test' second output arg has the right value");
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the first input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($x),
"'$test' output arg is not the input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($x),
"'$test' output arg is not the input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got[0]), refaddr($y),
"'$test' output arg is not the second input arg")
SKIP: {
skip "Scalar::Util not available", 1 unless $scalar_util_ok;
isnt(refaddr($got), refaddr($y),
"'$test' output arg is not the second input arg");