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