Test: ListX, SetX, SumX, ProductX support lists with holes

gap-system · Sep 1, 2019 · edb1c8e · edb1c8e
1 parent 93771c1
commit edb1c8e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tst/testinstall/xfuncs.tst b/tst/testinstall/xfuncs.tst
@@ -19,11 +19,16 @@ gap> testXfuncs([2], [2], x -> x);
 true
 gap> testXfuncs([2,3], [2,3], x -> x);
 true
+gap> testXfuncs([2,3], [2,,3], x -> x); # holes are supported
+true
 gap> testXfuncs([2,3,2], [2,3,2], x -> x);
 true
 gap> testXfuncs([ [1,1], [1,2], [1,3], [2,1], [2,2], [2,3] ],
 >   [1,2], [1,2,3], function(x,y) return [x,y]; end);
 true
+gap> testXfuncs([ [1,1], [1,2], [1,3], [2,1], [2,2], [2,3] ],
+>   [1,,2], [1,,2,,3], function(x,y) return [x,y]; end); # holes really are supported
+true
 gap> testXfuncs([ [ 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ], [ 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ] ], [1..2],[1],[2],[3],[4],[5],[6],[7],[8],[9],[10], function(x...) return x; end);
 true
 gap> sumlim := function(x...) return Sum(x) < 5; end;;