Prims - Implement clear-all, ca

[clnl] / src / test / simpletests.lisp

diff --git a/src/test/simpletests.lisp b/src/test/simpletests.lisp
index f4ac4f96234459ad7c5000ef9f35d46648bab35a..d85675db12428ec64b7a8d8c0ad0d20604f4b9a7 100644 (file)
--- a/src/test/simpletests.lisp
+++ b/src/test/simpletests.lisp
@@ -250,3 +250,6 @@
 
 (defsimplereportertest "round 3" "round 2.5" "3"
  "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
+
+(defsimplecommandtest "clear-all 1" "crt 10 ask patches [ set pcolor random 100 ] clear-all"
+ "7B5DF28923D7FD72158018A876DE8ED02CFB0882")