[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv6719/tests

Modified Files:
	testserializer.lisp 
Log Message:
Package name fixes caught by SBCL tests

--- /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2007/02/01 04:03:30	1.13
+++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2007/02/01 04:37:25	1.14
@@ -391,4 +391,33 @@
 	      (eq (get-value f2 h) f2))))
    t t t t t t t t)
 
-	  
+(defparameter +little-endian+ nil)
+(defparameter +big-endian+ t)
+
+(defun determine-endianness ()
+  (with-buffer-streams (bs)
+    (%serialize 1 bs *store-controller*)
+    (elephant-memutil::buffer-read-byte bs) 
+    ;; If little endian, switch defaults
+    (when (= (elephant-memutil::buffer-read-byte bs) 1)
+      (setf +little-endian+ t)
+      (setf +big-endian+ nil))))
+
+;;
+;; Manually write bytes
+;; Verify read out using serializer
+;;
+	
+;;(deftest read-32-bit-fixnum 
+;;    (progn nil)
+;;    t)
+
+;;(deftest read-64-bit-fixnum
+;;    (progn nil)
+;;    t)
+
+;;
+;; Clear the buffer stream
+;; Use serializer to write fixnum if 64-bit
+;; Verify bytes and length of output
+;; 
\ No newline at end of file