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

diff --git a/src/test/viewtests.lisp b/src/test/viewtests.lisp
index 3455b28..2f5eabb 100644
--- a/src/test/viewtests.lisp
+++ b/src/test/viewtests.lisp
@@ -26,3 +26,9 @@
 
 (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"))