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")