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

   1 (in-package #:clnl-test)
   2
   3 (defviewtest "Nothing" ""
   4  "1AF55686BD9B18D1CCE6AAF6BF18E81E6957F466")
   5
   6 (defviewtest "Basic 1" "crt 1"
   7  "A41D8146DD81EF27AF2B97955C66E982CFA0A465")
   8
   9 (defviewtest "Basic 2" "crt 10 ask turtles [ fd 1 ]"
  10  '("DEC2ED793C08A1680DD601BD3E9B81927994C123" "788EAE5B41CE031672672C372EDBCDFD9B309E64"))
  11
  12 (defviewtest "Wrapping" "crt 10 ask turtles [ fd 6 ]"
  13  '("DCDA6106352BBB6B52878B7AA443BCD5B7D124FC" "36922B55C2307FF4C7F2240B0A84C6D7B52427F9"))
  14
  15 (defviewtest "Die" "crt 10 ask turtles [ fd 1 ] ask turtles [ die ]"
  16  "1AF55686BD9B18D1CCE6AAF6BF18E81E6957F466")
  17
  18 (defviewtest "rt" "crt 20 ask turtles [ fd 2 rt 100 fd 2 ]"
  19  '("32CBE504D9BE79DD62163ECD684DAA54901C8DA2" "7DF601FF1857672EBFADC8414C0744AA2841E117"))
  20
  21 (defviewtest "lt" "crt 20 ask turtles [ fd 2 lt 100 fd 2 ]"
  22  '("B3DC43E676A804A5C42200E688D5AA6921DF95F2" "236B06E6383BC75B7C9E1E7BBF4B7D416AE72411"))