Prims - Implement rt, lt

[clnl] / src / test / viewtests.lisp

diff --git a/src/test/viewtests.lisp b/src/test/viewtests.lisp
index d3d45dbe96cc4d2af9bb8b93f0aad92082fd8131..a5ccd6f203f6624217fad82647ade9a49f8941e4 100644 (file)
--- a/src/test/viewtests.lisp
+++ b/src/test/viewtests.lisp
@@ -14,3 +14,9 @@
 
 (defviewtest "Die" "crt 10 ask turtles [ fd 1 ] ask turtles [ die ]"
  "1AF55686BD9B18D1CCE6AAF6BF18E81E6957F466")
+
+(defviewtest "rt" "crt 20 ask turtles [ fd 2 rt 100 fd 2 ]"
+ '("32CBE504D9BE79DD62163ECD684DAA54901C8DA2" "7DF601FF1857672EBFADC8414C0744AA2841E117"))
+
+(defviewtest "lt" "crt 20 ask turtles [ fd 2 lt 100 fd 2 ]"
+ '("B3DC43E676A804A5C42200E688D5AA6921DF95F2" "236B06E6383BC75B7C9E1E7BBF4B7D416AE72411"))