From ae450b95b9bddc7339343e085afe586d1d871e76 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Sat, 4 Oct 2014 06:00:03 +0900
Subject: [PATCH] update betz (to implement pickle) and add its test

---
 extlib/benz  |  2 +-
 t/pickle.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 47 insertions(+), 1 deletion(-)
 create mode 100644 t/pickle.scm

diff --git a/extlib/benz b/extlib/benz
index 15889a5f..a7ae88e2 160000
--- a/extlib/benz
+++ b/extlib/benz
@@ -1 +1 @@
-Subproject commit 15889a5feb515bd67ee7dc2c6419d16703151a54
+Subproject commit a7ae88e224b797d2f094ff8c093b6bf5fbe5e7b7
diff --git a/t/pickle.scm b/t/pickle.scm
new file mode 100644
index 00000000..a4290cf0
--- /dev/null
+++ b/t/pickle.scm
@@ -0,0 +1,46 @@
+(import (picrin base)
+        (picrin test))
+
+(define (id obj) (unpickle (pickle obj)))
+
+(test #f (id #f))
+(test #t (id #t))
+(test 1 (id 1))
+(test -1 (id -1))
+(test 128 (id 128))
+(test -128 (id -128))
+(test 256 (id 256))
+(test -256 (id -256))
+(test 65536 (id 65536))
+(test -65536 (id -65536))
+(test 4294967296 (id 4294967296 ))
+(test -4294967296 (id -4294967296 ))
+
+(test 1.0 (id 1.0))
+(test -1.0 (id -1.0))
+(test (/ 3) (id (/ 3)))
+(test (/ -3) (id (/ -3)))
+
+(test #\a (id #\a))
+
+(test "" (id ""))
+(test (make-string 1 #\a) (id (make-string 1 #\a)))
+(test (make-string 32 #\a) (id (make-string 32 #\a)))
+(test (make-string 256 #\a) (id (make-string 256 #\a)))
+(test (make-string 65536 #\a) (id (make-string 65536 #\a)))
+
+(test () (id ()))
+(test (make-list 1 1) (id (make-list 1 1)))
+(test (make-list 16 1) (id (make-list 16 1)))
+#;(test (make-list 65536 1) (id (make-list 65536 1)))
+
+(test #() (id #()))
+(test (make-vector 1 1) (id (make-vector 1 1)))
+(test (make-vector 16 1) (id (make-vector 16 1)))
+(test (make-vector 65536 1) (id (make-vector 65536 1)))
+
+(test #u8() (id #u8()))
+(test (make-bytevector 1 1) (id (make-bytevector 1 1)))
+(test (make-bytevector 16 1) (id (make-bytevector 16 1)))
+(test (make-bytevector 256 1) (id (make-bytevector 256 1)))
+(test (make-bytevector 65536 1) (id (make-bytevector 65536 1)))