Move from github, collapse gltk and strictmath, add candle
[clnl] / src / test / clnl / modeltests.lisp
1 (in-package #:clnl-test)
2
3 (defmodelcommandtest "globals 1"
4  "globals [a]"
5  "set a 5 crt a"
6  "4D66EDE80A8F4CA820D80853E763446502EA4E4E")
7
8 (defmodelreportertest "globals 2"
9  "globals [a]"
10  "set a 5"
11  "a"
12  "5"
13  "F8507A0D88D681CCBF01898FEA263791F9DDCE63")
14
15 (defmodelcommandtest "to 1"
16  "globals [a]
17 to setup
18   set a 2
19 end
20
21 to go
22   crt a
23 end"
24  "setup go go"
25  "1A20E368DD101521791FB5D7C8461C1ED12EAE7A")
26
27 (defmodelcommandtest "to 2"
28  "globals [a]
29 to setup
30   set a 2
31 end
32
33 to go
34   setup
35   crt a
36 end"
37  "go"
38  "46C620AB8995266C4A2094C461BE197BBACEB8C3")
39
40 (defmodelcommandtest "turtles-own 1"
41  "turtles-own [a b]
42 to setup
43   crt 10 [
44     set a 2
45   ]
46 end"
47  "setup"
48  "482947557971AC2A66CB35AA5D6850A489C45215")
49
50 (defmodelcommandtest "turtles-own 2"
51  "turtles-own [a b]
52 to setup
53   crt 10 [
54     set a 2
55     set b a + 1
56   ]
57 end
58
59 to go
60   ask turtles [ fd b ]
61 end"
62  "setup go"
63  "F8A2BFD71A8A064C37DDB744217AB07CDB0686EB")
64
65 (defmodelcommandtest "patches-own 1"
66  "patches-own [a]
67 to setup
68   ask patches [
69     set a 2
70   ]
71 end"
72  "setup"
73  "73FE87B52A2DAB0EC02DB23F26DB3B5336A61679")
74
75 (defmodelcommandtest "patches-own 2"
76  "patches-own [a b]
77 to setup
78   ask patches [
79     set a 2
80     set b a + 1
81   ]
82 end
83
84 to go
85   ask patches [ set pcolor b ]
86 end"
87  "setup go"
88  "2972B3EC1285BDA17656401001E1AE667FA7F5AF")
89
90 (defmodelcommandtest "breeds 1"
91  "breed [wolves wolf]
92
93 to setup
94   create-turtles 50
95   create-turtles 50 [ fd 1 ]
96   create-wolves 50
97   set-default-shape wolves \"sheep\"
98   create-wolves 50 [ fd 1 ]
99 end
100
101 to go
102   ask turtles [ fd 1 ]
103   ask wolves [ fd 1 ]
104   ask turtles [ if 1 < count turtles-here [ fd 1 ] ]
105   ask wolves [ if 1 < count turtles-here [ fd 1 ] ]
106   ask turtles [ if 1 < count wolves-here [ fd 1 ] ]
107   ask wolves [ if 1 < count wolves-here [ fd 1 ] ]
108 end"
109  "setup go"
110  "2614B99F64ACFA2BD64D66B129C0A17F2150FADD")
111
112 (defmodelcommandtest "procedures stop"
113  "to setup
114   create-turtles 5
115   stop
116   create-turtles 5
117 end
118
119 to go
120   if 5 < count turtles [ stop ]
121   crt 1
122 end"
123  "setup go go"
124  "438848EF35C6B0D28D50961072C70FCC02BB4FD8")
125
126 (defmodelfiletest "UI 0" "resources/clnl/UI-test.nlogo"
127  "go"
128  "05D33A55C91B4A90B22F28A814C9EDB0F420FC09")
129
130 (defmodelfiletest "UI 1" "resources/clnl/UI-test.nlogo"
131  (":button \"setup\"" "crt 10 [ if new-turtles-green [ set color green ] ]")
132  "B64C556E61397493D4A17B79665E446C42E3EE3D")
133
134 (defmodelfiletest "UI 2" "resources/clnl/UI-test.nlogo"
135  (":button \"setup\" :button \"go\"" "crt 10 [ if new-turtles-green [ set color green ] ] go")
136  "3D086EFD6B3C1D1DF1155D35915D08B3BA72BA4F")
137
138 (defmodelfiletest "UI 3" "resources/clnl/UI-test.nlogo"
139  (":button \"setup\" :button \"go\" 1"
140   "crt 10 [ if new-turtles-green [ set color green ] ] go ask turtles [ rt 90 ] go")
141  "84C76F4C140672F6FBF28AFC16C45B010F7E1740")
142
143 (defmodelfiletest "UI 4" "resources/clnl/UI-test.nlogo"
144  (":button \"stopping\"" "repeat 80 [ create-and-move ]")
145  "7D11BDB52364BEF162C3D3E461AD8BFB8E3B438E"
146  t)
147
148 (defmodelfiletest "Wolf Sheep 1" "resources/clnl/models/Wolf Sheep Predation.nlogo"
149  "setup go go go go go go go go go go go go go go"
150  "9777CCF18935E52D8380C9C6DC02BFFBEE1F1149")
151
152 (defmodelfiletest "Wolf Sheep 2" "resources/clnl/models/Wolf Sheep Predation.nlogo"
153  "set grass? not grass? setup go go go go go go go go go go go go go go"
154  "FC38F01DC0058C5EFF93F2228535ED7C616ECFF0")