Code - procedures

[clnl] / src / test / modeltests.lisp

diff --git a/src/test/modeltests.lisp b/src/test/modeltests.lisp
index 0ec8d011c68cbc176f0e1073ef445c01a9c865ac..071aa09e511de2c53cd479912787572ab574a7ee 100644 (file)
--- a/src/test/modeltests.lisp
+++ b/src/test/modeltests.lisp
@@ -11,3 +11,28 @@
  "a"
  "5"
  "F8507A0D88D681CCBF01898FEA263791F9DDCE63")
+
+(defmodelcommandtest "to 1"
+ "globals [a]
+to setup
+  set a 2
+end
+
+to go
+  crt a
+end"
+ "setup go go"
+ "1A20E368DD101521791FB5D7C8461C1ED12EAE7A")
+
+(defmodelcommandtest "to 2"
+ "globals [a]
+to setup
+  set a 2
+end
+
+to go
+  setup
+  crt a
+end"
+ "go"
+ "46C620AB8995266C4A2094C461BE197BBACEB8C3")