Add test.

gap-system · Oct 24, 2017 · 4f581a8 · 4f581a8
1 parent 4e89efc
commit 4f581a8
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/tst/testinstall/ElmsBlist.tst b/tst/testinstall/ElmsBlist.tst
@@ -0,0 +1,17 @@
+gap> START_TEST("ElmsBlist.tst");
+gap> doTests := function(startrange, lengthrange)
+>    local source, s, l, copy, i;    
+>    source := BlistStringDecode("DEADBEEFDEADBEEFDEADBEEFDEADBEEFDEADBEEFDEADBEEF");
+>    for s in startrange do
+>       for l in lengthrange do
+>            copy := source{[s..s+l-1]};
+>            for i in [1..l] do
+>                if copy[i] <> source[s+i-1] then
+>                    Error("Test failed");
+>                fi;
+>            od;
+>        od;
+>    od;
+> end;;
+gap> doTests([1..64],[0..128]);
+gap> STOP_TEST("ElmsBlist.tst", 1);