Add some tests for StructuralCopy

gap-system · Jul 18, 2017 · acad414 · acad414
1 parent 1097cbf
commit acad414
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/tst/testinstall/opers/StructuralCopy.tst b/tst/testinstall/opers/StructuralCopy.tst
@@ -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");