X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=t%2F15-misc-xs.t;h=7cc94042aea4da6ecb7147c10ea12504bf970f63;hp=c9ac01dedd22c2ffd13620aec8fad8cdd6d3c8dd;hb=3a17f1185ab1189e5e5cb87294974305467d2bec;hpb=9c114b45769d6880b8635884bb3734f00c2742c2

diff --git a/t/15-misc-xs.t b/t/15-misc-xs.t
index c9ac01d..7cc9404 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');