Skip to content

Commit

Permalink
Add some tests for StructuralCopy
Browse files Browse the repository at this point in the history
  • Loading branch information
markuspf committed Jul 18, 2017
1 parent 09f17af commit 6d4b36c
Showing 1 changed file with 25 additions and 0 deletions.
25 changes: 25 additions & 0 deletions tst/testinstall/opers/StructuralCopy.tst
Original file line number Diff line number Diff line change
@@ -0,0 +1,25 @@
START_TEST("StructuralCopy.tst");
# Blist
gap> a:=[true];; IsBlistRep(a);
true
gap> b:=[a,a];; IsIdenticalObj(b[1],b[2]);
true
gap> c:=StructuralCopy(b);; IsIdenticalObj(c[1],c[2]);
true

# Plist
gap> a:=[1];; IsPlistRep(a);
true
gap> b:=[a,a];; IsIdenticalObj(b[1],b[2]);
true
gap> c:=StructuralCopy(b);; IsIdenticalObj(c[1],c[2]);
true

# String
gap> a:="test";; IsStringRep(a);
true
gap> b:=[a,a];; IsIdenticalObj(b[1],b[2]);
true
gap> c:=StructuralCopy(b);; IsIdenticalObj(c[1],c[2]);
true
STOP_TEST("StructuralCopy.tst");

0 comments on commit 6d4b36c

Please sign in to comment.