r10983: new version

[kmrcl.git] / tests.lisp

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