X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Ftest%2Fmodeltests.lisp;h=aa9b22b0bc0835577891b194b1ca580ed2d26c6b;hb=31f7cb69edd16f175430851d696b1036b07b60f1;hp=0ec8d011c68cbc176f0e1073ef445c01a9c865ac;hpb=762ab38881c8870c9a61ca6857a28159f9fef9fc;p=clnl

diff --git a/src/test/modeltests.lisp b/src/test/modeltests.lisp
index 0ec8d01..aa9b22b 100644
--- a/src/test/modeltests.lisp
+++ b/src/test/modeltests.lisp
@@ -11,3 +11,78 @@
  "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")
+
+(defmodelcommandtest "turtles-own 1"
+ "turtles-own [a b]
+to setup
+  crt 10 [
+    set a 2
+  ]
+end"
+ "setup"
+ "482947557971AC2A66CB35AA5D6850A489C45215")
+
+(defmodelcommandtest "turtles-own 2"
+ "turtles-own [a b]
+to setup
+  crt 10 [
+    set a 2
+    set b a + 1
+  ]
+end
+
+to go
+  ask turtles [ fd b ]
+end"
+ "setup go"
+ "F8A2BFD71A8A064C37DDB744217AB07CDB0686EB")
+
+(defmodelcommandtest "patches-own 1"
+ "patches-own [a]
+to setup
+  ask patches [
+    set a 2
+  ]
+end"
+ "setup"
+ "73FE87B52A2DAB0EC02DB23F26DB3B5336A61679")
+
+(defmodelcommandtest "patches-own 2"
+ "patches-own [a b]
+to setup
+  ask patches [
+    set a 2
+    set b a + 1
+  ]
+end
+
+to go
+  ask patches [ set pcolor b ]
+end"
+ "setup go"
+ "2972B3EC1285BDA17656401001E1AE667FA7F5AF")