X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2Ftest%2Fviewtests.lisp;h=ac39a155fbbaac72d5b7318aef9dc2d207e17448;hb=f00d5c7c0e0b18f334da14c2e4107a7f1f68b45f;hp=0eca5ababf14fef5a27be794313664abb251088b;hpb=471de83db1aee70065808cbc061867e3320bf4b7;p=clnl

diff --git a/src/test/viewtests.lisp b/src/test/viewtests.lisp
index 0eca5ab..ac39a15 100644
--- a/src/test/viewtests.lisp
+++ b/src/test/viewtests.lisp
@@ -1,7 +1,25 @@
 (in-package #:clnl-test)
 
+(defviewtest "Nothing" ""
+ "62B8B468D5ED63CDFB567C984E0CAB53DBD03CEB")
+
 (defviewtest "Basic 1" "crt 1"
- "FE38C1C9873FD97451A41EB89CE47E60DAB0DD03")
+ "67F7062D7485C3A31D0065549AB8BED71A48BFEE")
 
 (defviewtest "Basic 2" "crt 10 ask turtles [ fd 1 ]"
- '("99673570760F0A2E3B49B858AFC8CCDAE16C78D5" "9A7CB6E13203687AB09CBA4CEFF7912534D69542"))
+ '("FC3B914602A7F41C5044B7A605DFF36D866B3A7F" "E09857180035872901B8BE27FE5470FD3D987966"))
+
+(defviewtest "Wrapping" "crt 10 ask turtles [ fd 6 ]"
+ '("72065F4E85CAE90DCFAE85AFC5A09295D46CD3D0" "CAABD296A8C72B18401F19C14C0DC83BB07718A9"))
+
+(defviewtest "Die" "crt 10 ask turtles [ fd 1 ] ask turtles [ die ]"
+ "62B8B468D5ED63CDFB567C984E0CAB53DBD03CEB")
+
+(defviewtest "rt" "crt 20 ask turtles [ fd 2 rt 100 fd 2 ]"
+ '("7E4DB3DBDE0F1C7D821629B89B8DC20ECFBF06AD" "9143414BB6DF425455C7ACBA6620FD51C9EC5E3A"))
+
+(defviewtest "lt" "crt 20 ask turtles [ fd 2 lt 100 fd 2 ]"
+ '("BF49775097BBFAE12E42D6F13FAFC93090B7ACAC" "ABAEAF8DDD68E7F0FED6CB243F27DB312588A1E8"))
+
+(defviewtest "pcolor green" "ask patches [ set pcolor green ]"
+ "90F5F4870955B9FF02224F00E3C9814B8A6F766E")