X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=tests.lisp;h=e149575ba02cb992b29efc7aee3600f4f164b67b;hp=86e86bdbb19ac6f8067f6b0e8ada0b3f0e88c264;hb=4e8f8cbd773256bedf4b65a48a87077e68ee18de;hpb=6edcb840b821b4be95925fe39ce34ee5e1f229d7

diff --git a/tests.lisp b/tests.lisp
index 86e86bd..e149575 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -379,6 +379,33 @@
     (make-url "pg" :anchor "then" :vars '(("a" . "5") ("b" . "pi")))
   "pg?a=5&b=pi#then")
 
+(defclass test-unique ()
+  ((a :initarg :a)
+   (b :initarg :b)))
+     
+
+(deftest :unique.1
+    (let ((list (list (make-instance 'test-unique :a 1 :b 1)
+		      (make-instance 'test-unique :a 2 :b 2)
+		      (make-instance 'test-unique :a 3 :b 2))))
+      (values
+       (unique-slot-values list 'a)
+       (unique-slot-values list 'b)))
+  (1 2 3) (1 2))
+
+(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
 
 ;; Disable attrib class until understand changes in sbcl/cmucl