summaryrefslogtreecommitdiff
path: root/tests/general/augment.icn
diff options
context:
space:
mode:
Diffstat (limited to 'tests/general/augment.icn')
-rw-r--r--tests/general/augment.icn181
1 files changed, 181 insertions, 0 deletions
diff --git a/tests/general/augment.icn b/tests/general/augment.icn
new file mode 100644
index 0000000..b567ba8
--- /dev/null
+++ b/tests/general/augment.icn
@@ -0,0 +1,181 @@
+record array(a,b,c,d,e,f,g)
+
+procedure p1()
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i =:= 9 ----> ",image(i =:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i =:= 10 ----> ",image(i =:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i =:= 11 ----> ",image(i =:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i >=:= 9 ----> ",image(i >=:= 9) | "none")
+end
+
+procedure p2()
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i >=:= 10 ----> ",image(i >=:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i >=:= 11 ----> ",image(i >=:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i >:= 9 ----> ",image(i >:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+end
+
+procedure p3()
+ write("i >:= 10 ----> ",image(i >:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i >:= 11 ----> ",image(i >:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i <=:= 9 ----> ",image(i <=:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i <=:= 10 ----> ",image(i <=:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+end
+
+procedure p4()
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i <=:= 11 ----> ",image(i <=:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i <:= 9 ----> ",image(i <:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i <:= 10 ----> ",image(i <:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i <:= 11 ----> ",image(i <:= 11) | "none")
+end
+
+procedure p5()
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i ~=:= 9 ----> ",image(i ~=:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i ~=:= 10 ----> ",image(i ~=:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i ~=:= 11 ----> ",image(i ~=:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+end
+
+procedure p6()
+ write("i +:= 9 ----> ",image(i +:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i +:= 10 ----> ",image(i +:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i +:= 11 ----> ",image(i +:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i -:= 9 ----> ",image(i -:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+end
+
+procedure p7()
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i -:= 10 ----> ",image(i -:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i -:= 11 ----> ",image(i -:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i *:= 9 ----> ",image(i *:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i *:= 10 ----> ",image(i *:= 10) | "none")
+end
+
+procedure p8()
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i *:= 11 ----> ",image(i *:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i /:= 9 ----> ",image(i /:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i /:= 10 ----> ",image(i /:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+end
+
+procedure p9()
+ write("i /:= 11 ----> ",image(i /:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i %:= 9 ----> ",image(i %:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i %:= 10 ----> ",image(i %:= 10) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i %:= 11 ----> ",image(i %:= 11) | "none")
+ write("i ----> ",image(i) | "none")
+end
+
+procedure p10()
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("i ^:= 9 ----> ",image(i ^:= 9) | "none")
+ write("i ----> ",image(i) | "none")
+ write("i := 10 ----> ",image(i := 10) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+ write("s <<:= \"x\" ----> ",image(s <<:= "x") | "none")
+end
+
+procedure p11()
+ write("s ----> ",image(s) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+ write("s <<:= \"xx\" ----> ",image(s <<:= "xx") | "none")
+ write("s ----> ",image(s) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+ write("s <<:= \"X\" ----> ",image(s <<:= "X") | "none")
+ write("s ----> ",image(s) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+ write("s <<:= \"abc\" ----> ",image(s <<:= "abc") | "none")
+ write("s ----> ",image(s) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+end
+
+procedure p12()
+ write("s ~==:= \"x\" ----> ",image(s ~==:= "x") | "none")
+ write("s ----> ",image(s) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+ write("s ~==:= \"xx\" ----> ",image(s ~==:= "xx") | "none")
+ write("s ----> ",image(s) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+ write("s ~==:= \"X\" ----> ",image(s ~==:= "X") | "none")
+ write("s ----> ",image(s) | "none")
+ write("s := \"x\" ----> ",image(s := "x") | "none")
+ write("s ~==:= \"abc\" ----> ",image(s ~==:= "abc") | "none")
+ write("s ----> ",image(s) | "none")
+end
+
+procedure main()
+ p1()
+ p2()
+ p3()
+ p4()
+ p5()
+ p6()
+ p7()
+ p8()
+ p9()
+ p10()
+ p11()
+ p12()
+end
+
+global i, s, c, one, two, x
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-03 01:17:19 +0000