1 (in-package #:clnl-test)
3 (defsimplecommandtest "Nothing" ""
4 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
6 (defsimplecommandtest "Simple crt" "crt 1"
7 "2F08B31AC06C9D5339E6B3E953C2B4B71FDB9CDE")
9 (defsimplecommandtest "Simple crt 2" "crt 5"
10 "9FE588C2749CD9CE66CB0EA451EFB80476E881FB")
12 (defsimplecommandtest "Simple crt and fd random" "crt 30 ask turtles [ fd random-float 1 ]"
13 "DED34D1D6492244E9E3813DE8DBF258F96636879")
15 (defsimplecommandtest "Simple crt and fd" "crt 5 ask turtles [ fd 1 ]"
16 "BEB43404EDC7852985A9A7FC312481785FE553A0")
18 (defsimplecommandtest "Wrapping 1" "crt 5 ask turtles [ fd 5 ]"
19 "1098A56973DA04E7AEA7659C40E3FF3EC7862B02")
21 (defsimplecommandtest "Wrapping 2" "crt 5 ask turtles [ fd random-float 5 ]"
22 "1419DFA66EFB7F08FB30C7B63B256547212EB915")
24 (defsimplecommandtest "Wrapping 3" "crt 10 ask turtles [ fd -5 ]"
25 "53E4ECBD3C49FC8D3466563641CFCD7DCB5CD2AF")
27 (defsimplecommandtest "Wrapping 4" "crt 10 ask turtles [ fd random-float -5 ]"
28 "1258CE9CC93B52367E797F4C497BF95760EC7175")
30 (defsimplereportertest "Random 1" "random-float 5" "4.244088516651127"
31 "17D1BF7FF7BF2C7F3F5F7DD7CF67CFF2772CFFFC")
33 (defsimplereportertest "= 1" "5 = 5" "true"
34 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
36 (defsimplereportertest "= 2" "5 = 4" "false"
37 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
39 (defsimplereportertest "!= 1" "5 != 5" "false"
40 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
42 (defsimplereportertest "!= 2" "5 != 4" "true"
43 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
45 (defsimplereportertest "- 1" "5 - 5" "0"
46 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
48 (defsimplereportertest "- 2" "5 - 6" "-1"
49 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
51 (defsimplereportertest "- 3" "random-float 5 - random-float 5" "3.349608870016444"
52 "811837B74F63D10ABBC01DD59C1E7556706D9F7A")
54 (defsimplereportertest "+ 1" "5 + 5" "10"
55 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
57 (defsimplereportertest "+ 2" "5 + -6" "-1"
58 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
60 (defsimplereportertest "+ 3" "random-float 6 + random-float 6" "6.166281795942972"
61 "811837B74F63D10ABBC01DD59C1E7556706D9F7A")
63 (defsimplereportertest "* 1" "5 * 5" "25"
64 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
66 (defsimplereportertest "* 2" "5 * -6" "-30"
67 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
69 (defsimplereportertest "* 3" "random-float 4 * random-float 7" "4.251800892259665"
70 "811837B74F63D10ABBC01DD59C1E7556706D9F7A")
72 (defsimplereportertest "/ 1" "5 / 5" "1"
73 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
75 (defsimplereportertest "/ 2" "5 / -6" "-0.8333333333333334"
76 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
78 (defsimplereportertest "/ 3" "random-float 4 / random-float 7" "2.7112896835726876"
79 "811837B74F63D10ABBC01DD59C1E7556706D9F7A")
81 (defsimplereportertest "< 1" "5 < 5" "false"
82 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
84 (defsimplereportertest "< 2" "5 < 6" "true"
85 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
87 (defsimplereportertest "< 3" "random-float 4 < random-float 7" "false"
88 "811837B74F63D10ABBC01DD59C1E7556706D9F7A")
90 (defsimplereportertest "<= 1" "5 <= 5" "true"
91 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
93 (defsimplereportertest "<= 2" "5 <= 6" "true"
94 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
96 (defsimplereportertest "<= 3" "random-float 4 <= random-float 7" "false"
97 "811837B74F63D10ABBC01DD59C1E7556706D9F7A")
99 (defsimplereportertest "any? 1" "any? turtles" "false"
100 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
102 (defreportertestwithsetup "any? 2" "crt 10" "any? turtles" "true"
103 "A925E39EC022967568D238D31F70F0A375024A89")
105 (defsimplecommandtest "die 1" "crt 10 ask turtles [ die ]"
106 "A665C1BF95E1F9CAAE9B9F8B2FBE3DAA45453136")
108 (defreportertestwithsetup "any? 3" "crt 10 ask turtles [ die ]" "any? turtles" "false"
109 "A665C1BF95E1F9CAAE9B9F8B2FBE3DAA45453136")
111 (defsimplecommandtest "rt 1" "crt 100 ask turtles [ fd random-float 5 rt random-float 180 fd random-float 4 ]"
112 "186B05DEFF6771BE791D54AB36A36874EC6E04FE")
114 (defsimplecommandtest "rt 2" "crt 100 ask turtles [ fd random-float 5 rt random-float 1080 fd random-float 4 ]"
115 "154C05DF7810C0FF5D7DDE51B76E1012FFB2C0E1")
117 (defsimplecommandtest "lt 1" "crt 100 ask turtles [ fd random-float 5 lt random-float 180 fd random-float 4 ]"
118 "D4B3844FE453C05E57537D6BA94C4B42C84655C6")
120 (defsimplecommandtest "lt 2" "crt 100 ask turtles [ fd random-float 5 lt random-float 1080 fd random-float 4 ]"
121 "07DEB6F4F007DB86CD8F2C2E10BD4E35CAD2B0CE")
123 (defsimplecommandtest "if 1" "if 5 = 5 [ crt 10 ]"
124 "A925E39EC022967568D238D31F70F0A375024A89")
126 (defsimplecommandtest "if 2" "if 5 = 4 [ crt 10 ]"
127 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
129 (defsimplecommandtest "ifelse 1" "ifelse 5 = 5 [ crt 10 ] [crt 5 ] if-else 5 = 5 [ crt 10 ] [ crt 5 ]"
130 "2CF70DC9135754E77B64422C10E947E776E731E6")
132 (defsimplecommandtest "ifelse 2" "ifelse 5 = 4 [ crt 10 ] [ crt 5 ] if-else 5 = 4 [ crt 10 ] [ crt 5 ]"
133 "A925E39EC022967568D238D31F70F0A375024A89")
135 (defsimplereportertest "colors 1" "green" "55"
136 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
138 (defsimplereportertest "colors 2" "black" "0"
139 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
141 (defsimplecommandtest "let 1" "let a 5 crt a"
142 "9FE588C2749CD9CE66CB0EA451EFB80476E881FB")
144 (defsimplecommandtest "let 2" "let a 5 let b 6 crt (a + b)"
145 "4ABB6822402929878AB9E5A1084B9E4AE1F01D5B")
147 (defsimplecommandtest "ticks 1" "reset-ticks tick"
148 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
150 (defreportertestwithsetup "ticks 1" "reset-ticks tick tick" "ticks" "2"
151 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
153 (defreportertestwithsetup "of / who 1" "crt 10" "[ who ] of turtles" "[5 9 4 3 7 0 1 2 6 8]"
154 "3F39BD2D8D5A1B2333E6C0DB665DBE3DCD5A75CE")
156 (defreportertestwithsetup "set / pcolor" "ask patches [ set pcolor green ]" "[ pcolor ] of patches"
157 "[55 55 55 55 55 55 55 55 55]"
158 "3E246C518581E004BC65EFB074A09BA2EEBB2910")
160 (defsimplereportertest "one-of 1" "one-of patches" "(patch -1 -1)"
161 "0BDACB8E9D2BB768C01826E993B47D83D39FBD0C")
163 (defsimplereportertest "one-of 2" "one-of turtles" "nobody"
164 "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
166 (defreportertestwithsetup "one-of 3" "crt 10" "one-of turtles" "(turtle 5)"
167 "A056ED8BF26A69FB4437E79F263E362C27F8820E")
169 (defsimplecommandtest "color 1" "crt 10 ask turtles [ set color green ]"
170 "20943094E2C70D5A12AC6EEB29E8E9E2D21BD87D")
172 (defsimplecommandtest "label 1" "crt 10 ask turtles [ set label who ]"
173 "96BF63544678A06E0D9A5062613CE1CAD638FCD5")
175 (defsimplecommandtest "label-color 1" "crt 10 ask turtles [ set label-color green ]"
176 "70AB2BAA0BFD312256DDE6C02EE2B9C23E9B3532")
178 (defsimplecommandtest "size 1" "crt 10 ask turtles [ set size 5 ]"
179 "8837CF2681A2091B0664FAA2C32062B19F548ED6")
181 (defsimplereportertest "random 1" "random 100000" "85402"
182 "17D1BF7FF7BF2C7F3F5F7DD7CF67CFF2772CFFFC")
184 (defreportertestwithsetup "random 2" "crt 10" "[ random 1000000 ] of turtles"
185 "[512564 490953 127774 976371 218233 692751 909837 655769 977588 485347]"
186 "2048ED1C553B0342D5DE1302577394CD09DE88DA")
188 (defsimplecommandtest "setxy 1" "crt 10 ask turtles [ setxy random-xcor random-ycor ]"
189 "B02FD5B864A129AED5254A68C499607F7F6EA236")