Add atomic tests

gap-system · Jan 6, 2017 · 025710a · 025710a
1 parent e374e5d
commit 025710a
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/tst/testinstall/atomic_basic.tst b/tst/testinstall/atomic_basic.tst
@@ -76,4 +76,32 @@ gap> h5 := function(readonly x, readonly y, z) end;;
 Syntax error: 'readonly' argument of non-atomic function in stream:1
 h5 := function(readonly x, readonly y, z) end;;
                       ^
+gap> h5 := {readonly x} -> x;
+Syntax error: 'readonly' argument of non-atomic function in stream:1
+h5 := {readonly x} -> x;
+              ^
+gap> h5 := {readonly x} -> x;
+Syntax error: 'readonly' argument of non-atomic function in stream:1
+h5 := {readonly x} -> x;
+              ^
+gap> h5 := {x, readonly y} -> x;
+Syntax error: 'readonly' argument of non-atomic function in stream:1
+h5 := {x, readonly y} -> x;
+                 ^
+gap> h5 := {readwrite x, y} -> x;
+Syntax error: 'readwrite' argument of non-atomic function in stream:1
+h5 := {readwrite x, y} -> x;
+               ^
+gap> h5 := {x, readwrite y} -> x;
+Syntax error: 'readwrite' argument of non-atomic function in stream:1
+h5 := {x, readwrite y} -> x;
+                  ^
+gap> h5 := {readwrite} -> x;
+Syntax error: 'readwrite' argument of non-atomic function in stream:1
+h5 := {readwrite} -> x;
+               ^
+gap> h5 := {readwrite readonly x} -> x;
+Syntax error: 'readwrite' argument of non-atomic function in stream:1
+h5 := {readwrite readonly x} -> x;
+               ^
 gap> STOP_TEST("atomic_basic.tst", 260000);