X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=t%2F15-misc-xs.t;fp=t%2F15-misc-xs.t;h=5453dbf008375003a1c864144d1cf943ab3a8bc8;hp=42847e6d49e79cb9383c3e88f932d745462735b9;hb=ae9a21ef5300b492faf20fa5b98340b7783ca098;hpb=0d977814f2cfa71e2d4742d7db999976198180f8 diff --git a/t/15-misc-xs.t b/t/15-misc-xs.t index 42847e6..5453dbf 100644 --- a/t/15-misc-xs.t +++ b/t/15-misc-xs.t @@ -23,8 +23,8 @@ is_deeply(normalize({ list => 1, 2 => 2, 3 => 1 }), *scale = *Sub::Nary::scale{CODE}; -is_deeply(scale(1, {}), { 0 => 1 }, 'scale 1, empty-ref'); -is_deeply(scale(0.5, {}), { 0 => 0.5 }, 'scale 0.5, empty-ref'); +is_deeply(scale(1, {}), undef, 'scale 1, empty-ref'); +is_deeply(scale(0.5, {}), undef, 'scale 0.5, empty-ref'); is_deeply(scale(0.5, { list => 2 }), { list => 1 }, 'scale 0.5, list'); is_deeply(scale(0.5, { list => 2, 1 => 2 }), { list => 1, 1 => 1 }, 'scale 0.5, list/const');