Prims - Implement color, label, label-color, size

[clnl] / src / test / viewtests.lisp

diff --git a/src/test/viewtests.lisp b/src/test/viewtests.lisp
index 630280c81f23787cceab29d6298e97c959ee8b2a..9135e47106404886ab65dfd89c252caaaa5df4fb 100644 (file)
--- a/src/test/viewtests.lisp
+++ b/src/test/viewtests.lisp
@@ -20,3 +20,9 @@
 
 (defviewtest "lt" "crt 20 ask turtles [ fd 2 lt 100 fd 2 ]"
  '("BF49775097BBFAE12E42D6F13FAFC93090B7ACAC" "ABAEAF8DDD68E7F0FED6CB243F27DB312588A1E8"))
+
+(defviewtest "pcolor green" "ask patches [ set pcolor green ]"
+ "90F5F4870955B9FF02224F00E3C9814B8A6F766E")
+
+(defviewtest "size" "crt 10 ask turtles [ fd 2 set size 3 ] "
+ '("66E47E4579C2CA48CA672052B99F25DE94456D3A" "0A8EC908783A913CD15E9A0F19E6B8DBBA4EF5D9"))