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=42847e6d49e79cb9383c3e88f932d745462735b9;hp=c9ac01dedd22c2ffd13620aec8fad8cdd6d3c8dd;hb=abc14695a4ce4fd4733c9185d87b774ee7c1a220;hpb=9e42e470d0042056765361fbcbf828492ee58d9c

diff --git a/t/15-misc-xs.t b/t/15-misc-xs.t
index c9ac01d..42847e6 100644
--- a/t/15-misc-xs.t
+++ b/t/15-misc-xs.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 32;
+use Test::More tests => 20;
 
 use Sub::Nary;
 
@@ -47,26 +47,3 @@ is_deeply(cumulate({ 1 => 0.5, 2 => 0.5 }, 1, 0.5), { 1 => 0.5, 2 => 0.5 },
                    'cumulate ref, 1, frac');
 is_deeply(cumulate({ 1 => 0.5, 2 => 0.5 }, 2, 0.5), { 1 => 0.75, 2 => 0.75 },
                    'cumulate ref, 1, frac');
-
-*combine = *Sub::Nary::combine{CODE};
-
-is_deeply(combine(undef),         undef,        'combine undef');
-is_deeply(combine({}),            {},           'combine empty-ref');
-is_deeply(combine({}, {}),        {},           'combine empty-ref, empty-ref');
-is_deeply(combine(1),             { 1 => 1 },      'combine const');
-is_deeply(combine(1, 2),          { 3 => 1 },      'combine const, const');
-is_deeply(combine(1, 'list'),     { 'list' => 1 }, 'combine const, list');
-is_deeply(combine(1,{'list'=>1}), { 'list' => 1 }, 'combine const, list');
-is_deeply(combine(1, { 1 => 0.5, 2 => 0.5 }), { 2 => 0.5, 3 => 0.5 },
-                  'combine const, hashref');
-is_deeply(combine(1, { 1 => 0.5, 'list' => 0.5 }), { 2 => 0.5, 'list' => 0.5 },
-                  'combine const, hashref with list');
-my $x = { 1 => 0.5, 2 => 0.5 };
-is_deeply(combine($x, $x), { 2 => 0.25, 3 => 0.5, 4 => 0.25 },
-                  'combine hashref, hashref');
-is_deeply(combine($x, 'list', $x), { list => 1 },
-                  'combine hashref, list, hashref');
-$x = { 1 => 0.5, list => 0.5 };
-is_deeply(combine($x, $x), { 2 => 0.25, list => 0.75 },
-                  'combine hashref with list, hashref with list');
-