code.consxy.com Git - clnl/blob - 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")