diff --git a/lib/cascade.gi b/lib/cascade.gi index df23efd0..2277bf70 100644 --- a/lib/cascade.gi +++ b/lib/cascade.gi @@ -78,8 +78,8 @@ function(list, numofdeps) local isgroup, type, comps, depdoms, vals, len, x, j, k, val, depfuncs, i; if not IsDenseList(list) then - Error("usage: should be a dense list of transformation semigroup\n", - " or permutation groups,"); + Error("first argument should be a list of transformation semigroups\n", + " or permutation groups."); return; else isgroup:=true; @@ -87,8 +87,8 @@ function(list, numofdeps) if not IsPermGroup(x) then isgroup:=false; if not IsTransformationSemigroup(x) then - Error("usage: should be a dense list of transformation", - " semigroup or permutation groups,"); + Error("first argument should be a list of transformation\n", + "semigroups or permutation groups."); return; fi; fi; diff --git a/tst/cascade.tst b/tst/cascade.tst index d29da05b..052f5205 100644 --- a/tst/cascade.tst +++ b/tst/cascade.tst @@ -127,6 +127,14 @@ gap> for i in [1..333] do > fi; > od; +# RandomCascade error messages +gap> RandomCascade(2,2); +Error, first argument should be a list of transformation semigroups + or permutation groups. +gap> RandomCascade([2],2); +Error, first argument should be a list of transformation +semigroups or permutation groups. + # gap> c:= > Cascade( [ [ 1 .. 3 ], [ 1 .. 8 ], [ 1 .. 5 ] ],