code.consxy.com Git - clnl/blob - 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")
 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 "Wolf Sheep 1" "resources/models/Wolf Sheep Predation.nlogo"
 127  "setup go go go go go go go go go go go go go go"
 128  "9777CCF18935E52D8380C9C6DC02BFFBEE1F1149")
 129
 130 (defmodelfiletest "Wolf Sheep 2" "resources/models/Wolf Sheep Predation.nlogo"
 131  "set grass? not grass? setup go go go go go go go go go go go go go go"
 132  "FC38F01DC0058C5EFF93F2228535ED7C616ECFF0")
 133
 134 (defmodelfiletest "Fire 1" "resources/models/Fire.nlogo"
 135  "setup go go go go go go go go go go go go go go"
 136  "EDFD37E1EDC7B32499040274980756B68897F9FA")
 137