code.consxy.com Git - clnl/blob - src/test/viewtests.lisp

   1 (in-package #:clnl-test)
   2
   3 (defviewtest "Nothing" ""
   4  "62B8B468D5ED63CDFB567C984E0CAB53DBD03CEB")
   5
   6 (defviewtest "Basic 1" "crt 1"
   7  "67F7062D7485C3A31D0065549AB8BED71A48BFEE")
   8
   9 (defviewtest "Basic 2" "crt 10 ask turtles [ fd 1 ]"
  10  '("FC3B914602A7F41C5044B7A605DFF36D866B3A7F" "E09857180035872901B8BE27FE5470FD3D987966"))
  11
  12 (defviewtest "Wrapping" "crt 10 ask turtles [ fd 6 ]"
  13  '("72065F4E85CAE90DCFAE85AFC5A09295D46CD3D0" "CAABD296A8C72B18401F19C14C0DC83BB07718A9"))
  14
  15 (defviewtest "Die" "crt 10 ask turtles [ fd 1 ] ask turtles [ die ]"
  16  "62B8B468D5ED63CDFB567C984E0CAB53DBD03CEB")
  17
  18 (defviewtest "rt" "crt 20 ask turtles [ fd 2 rt 100 fd 2 ]"
  19  '("7E4DB3DBDE0F1C7D821629B89B8DC20ECFBF06AD" "9143414BB6DF425455C7ACBA6620FD51C9EC5E3A"))
  20
  21 (defviewtest "lt" "crt 20 ask turtles [ fd 2 lt 100 fd 2 ]"
  22  '("BF49775097BBFAE12E42D6F13FAFC93090B7ACAC" "ABAEAF8DDD68E7F0FED6CB243F27DB312588A1E8"))