Some more tests for the fixed Remove method.

gap-system · Apr 28, 2016 · 89dd011 · 89dd011
1 parent 26f207e
commit 89dd011
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/tst/teststandard/bugfix.tst b/tst/teststandard/bugfix.tst
@@ -3049,8 +3049,18 @@ gap> G:=Group((1,2,3,4));;Factorization(G,Elements(G)[1]);
 gap> l := [1,,,5];;
 gap> Remove(l);
 5
-gap> l;
-[ 1 ]
+gap> [l, Length(l)];
+[ [ 1 ], 1 ]
+gap> l := [,,,"x"];;
+gap> Remove(l);
+"x"
+gap> [l, Length(l)];
+[ [  ], 0 ]
+gap> l := [1,2,,[],"x"];;
+gap> Remove(l);
+"x"
+gap> [l, Length(l)];
+[ [ 1, 2,, [  ] ], 4 ]
 
 #############################################################################
 gap> STOP_TEST( "bugfix.tst", 831990000);