[bknr-cvs] r2556 - trunk/bknr/datastore/src/data

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Mon Feb 18 10:44:54 2008
New Revision: 2556

Modified:
   trunk/bknr/datastore/src/data/encoding-test.lisp
Log:
changed a bit the encoding tests


Modified: trunk/bknr/datastore/src/data/encoding-test.lisp
==============================================================================
--- trunk/bknr/datastore/src/data/encoding-test.lisp	(original)
+++ trunk/bknr/datastore/src/data/encoding-test.lisp	Mon Feb 18 10:44:54 2008
@@ -140,6 +140,9 @@
                (make-array '(2 2) :initial-contents '((1 1) (1 1))))
 
 (test-encoding array.3
+               (make-array '(2 2) :element-type 'fixnum :initial-element 3))
+
+(test-encoding array.3b
                (make-array '(2 2) :element-type '(mod 10) :initial-element 3))
 
 (test-encoding array.4
@@ -209,14 +212,15 @@
 ;; to (make-hash-table) with ecl.
 
 (test-encoding hash.1 (make-hash-table))
+(test-encoding hash.2 (make-hash-table :test #'equal))
 
-(defvar *hash* (let ((in (make-hash-table :test #'equal 
-                                          :rehash-threshold 0.4 :size 20
-                                          :rehash-size 40)))
-                 (dotimes (x 1000) (setf (gethash (format nil "~R" x) in) x))
-                 in))
+;; (defvar *hash* (let ((in (make-hash-table :test #'equal 
+;;                                           :rehash-threshold 0.4 :size 20
+;;                                           :rehash-size 40)))
+;;                  (dotimes (x 1000) (setf (gethash (format nil "~R" x) in) x))
+;;                  in))
 
-(test-encoding hash.2 *hash*)
+;; (test-encoding hash.3 *hash*)
 
 
 ;; ;; packages