X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Ftest%2Fviewtests.lisp;h=2f5eabbc9d8e805fea41d80e1af484826b9c06f1;hp=d3d45dbe96cc4d2af9bb8b93f0aad92082fd8131;hb=89cb3482de1fefc2d8e5f67e1e04a0790e8cd243;hpb=b018550f2029475c8bececad3c6658048c8c80f0

diff --git a/src/test/viewtests.lisp b/src/test/viewtests.lisp
index d3d45db..2f5eabb 100644
--- a/src/test/viewtests.lisp
+++ b/src/test/viewtests.lisp
@@ -1,16 +1,34 @@
 (in-package #:clnl-test)
 
 (defviewtest "Nothing" ""
- "1AF55686BD9B18D1CCE6AAF6BF18E81E6957F466")
+ "62B8B468D5ED63CDFB567C984E0CAB53DBD03CEB")
 
 (defviewtest "Basic 1" "crt 1"
- "A41D8146DD81EF27AF2B97955C66E982CFA0A465")
+ "BB7774BC721E16BD92B18228BBBAC8D7BAAA6271")
 
 (defviewtest "Basic 2" "crt 10 ask turtles [ fd 1 ]"
- '("DEC2ED793C08A1680DD601BD3E9B81927994C123" "788EAE5B41CE031672672C372EDBCDFD9B309E64"))
+ '("D7A3F7FC99CB46A9AC07A5FFAC8DBE4F3C8DFAEE" "CDDDB68DC28E1D1EE72AE3C3474E91381E45D7AB"))
 
 (defviewtest "Wrapping" "crt 10 ask turtles [ fd 6 ]"
- '("DCDA6106352BBB6B52878B7AA443BCD5B7D124FC" "36922B55C2307FF4C7F2240B0A84C6D7B52427F9"))
+ '("51DACC1A8EE0758F94E8C3C1EC46467D46F796D0" "E08B45180949AB58E3F75A07DDC3CC07BC71DFDB"))
 
 (defviewtest "Die" "crt 10 ask turtles [ fd 1 ] ask turtles [ die ]"
- "1AF55686BD9B18D1CCE6AAF6BF18E81E6957F466")
+ "62B8B468D5ED63CDFB567C984E0CAB53DBD03CEB")
+
+(defviewtest "rt" "crt 20 ask turtles [ fd 2 rt 100 fd 2 ]"
+ '("1C325D14717E92D6368EF3D0276250A49AC94E3C" "6B8AE7C1F8AAB44934EFC17D3F8DC02EA93D42D0"))
+
+(defviewtest "lt" "crt 20 ask turtles [ fd 2 lt 100 fd 2 ]"
+ '("5A9976BA3BFF49B9232CC8285E40709B43BB97C6" "24F764D346E607CD10C1CDA83CEF0091FDFBC280"))
+
+(defviewtest "pcolor green" "ask patches [ set pcolor green ]"
+ "90F5F4870955B9FF02224F00E3C9814B8A6F766E")
+
+(defviewtest "size" "crt 10 ask turtles [ fd 2 set size 3 ] "
+ '("E71BD61118B3B735DE4ADD2EF7897465084DD372" "6A4D9F29F10EAFCF5AB6156CCB35680EF4E41677"))
+
+(defviewtest "sheep" "set-default-shape turtles \"sheep\" crt 10 ask turtles [ fd 2 set size 3 ] "
+ '("6D86C178B84836F064C0084E9A0BDE3BACCA28A2" "33DD3FA4103731FA6A2EA675104CEEFCE16ADF54"))
+
+(defviewtest "wolves" "set-default-shape turtles \"wolf\" crt 10 ask turtles [ fd 2 set size 3 ] "
+ '("D455A70DBAD3195F23328B58B4D123934FEA0DC0" "4C108D1B2ED37A9C2152BE816E2B8947861333DE"))