X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2Ftest%2Fsimpletests.lisp;h=68b460db6c18eac2887c803d76d0025a408f71fb;hb=e473722;hp=cb7bbed041d4278658e49d9a23ea0e5d6dcd691f;hpb=4a9ed570e6d2c79ac7cac0a6a84d414ee658cd3e;p=clnl diff --git a/src/test/simpletests.lisp b/src/test/simpletests.lisp index cb7bbed..68b460d 100644 --- a/src/test/simpletests.lisp +++ b/src/test/simpletests.lisp @@ -1,6 +1,21 @@ -(in-package #:cl-nl-test) +(in-package #:clnl-test) -(defsimpletest "Nothing" "" "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B") -(defsimpletest "Simple crt" "crt 1" "2F08B31AC06C9D5339E6B3E953C2B4B71FDB9CDE") -(defsimpletest "Simple crt 2" "crt 5" "9FE588C2749CD9CE66CB0EA451EFB80476E881FB") -(defsimpletest "Simple crt and fd" "crt 5 ask turtles [ fd 1 ]" "BEB43404EDC7852985A9A7FC312481785FE553A0") +(defsimplecommandtest "Nothing" "" + "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B") + +(defsimplecommandtest "Simple crt" "crt 1" + "2F08B31AC06C9D5339E6B3E953C2B4B71FDB9CDE") + +(defsimplecommandtest "Simple crt 2" "crt 5" + "9FE588C2749CD9CE66CB0EA451EFB80476E881FB") + +(defsimplecommandtest "Simple crt and fd" "crt 5 ask turtles [ fd 1 ]" + "BEB43404EDC7852985A9A7FC312481785FE553A0") + +(defsimplecommandtest "Simple crt and fd random" "crt 5 ask turtles [ fd random-float 1 ]" + "F7AC3B3492CDFD01D1FB5BD69FAAA67E06D3A870") +;(defsimplecommandtest "Simple crt and fd random 2" "crt 30 ask turtles [ fd random-float 1 ]" +; "F7AC3B3492CDFD01D1FB5BD69FAAA67E06D3A870") ; we start getting floating errors, cool! + +(defsimplereportertest "Random 1" "random-float 5" "4.244088516651127" + "17D1BF7FF7BF2C7F3F5F7DD7CF67CFF2772CFFFC")