79ebc4ba261614016a578dd439c870a25c936286
[clnl] / src / test / 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")