Add some tests for StructuralCopy

gap-system · Jul 18, 2017 · 51b1320 · 51b1320
1 parent db2d022
commit 51b1320
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/tst/testinstall/opers/StructuralCopy.tst b/tst/testinstall/opers/StructuralCopy.tst
@@ -0,0 +1,28 @@
+gap> 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
+
+#
+gap> STOP_TEST("StructuralCopy.tst");