X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=tests.lisp;h=9a84a7b67f96eec72ee7ffc5cd45922462cb0b84;hb=4298b0107c7d773ad7e2ee3b0837f8927da41578;hp=b555555c170c45c182922c8a46decfd23e700238;hpb=78b62107690123d8d7a1a400e4a1d744408a05b1;p=kmrcl.git

diff --git a/tests.lisp b/tests.lisp
index b555555..9a84a7b 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -396,7 +396,15 @@
 (deftest :unique.2
     (unique-slot-values nil 'a)
   nil)
-     
+
+(deftest :nwp.1     
+       (number-within-percentage 1. 1.1 9)
+  nil)
+
+(deftest :nwp.2
+       (number-within-percentage 1. 1.1 11)
+  t)
+  
 	   
  ;;; MOP Testing