From 298a4337a8dfbe040745d2b2bb9fa79ed7bb2c14 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Sun, 12 May 2019 17:22:44 +0300
Subject: [PATCH] Add UTF-16 tests

---
 encoding-reader.scm            |   8 +++++++-
 test.scm => test-shift-jis.scm |   0
 test-utf16-be.scm              | Bin 0 -> 356 bytes
 test-utf16-le.scm              | Bin 0 -> 356 bytes
 4 files changed, 7 insertions(+), 1 deletion(-)
 rename test.scm => test-shift-jis.scm (100%)
 create mode 100644 test-utf16-be.scm
 create mode 100644 test-utf16-le.scm

diff --git a/encoding-reader.scm b/encoding-reader.scm
index 00be003..3875bb9 100644
--- a/encoding-reader.scm
+++ b/encoding-reader.scm
@@ -113,4 +113,10 @@
   (write x)
   (newline))
 
-(for-each writeln (read-declarations-from-file "test.scm"))
+(define (try-file filename)
+  (for-each writeln (read-declarations-from-file filename))
+  (newline))
+
+(try-file "test-shift-jis.scm")
+(try-file "test-utf16-be.scm")
+(try-file "test-utf16-le.scm")
diff --git a/test.scm b/test-shift-jis.scm
similarity index 100%
rename from test.scm
rename to test-shift-jis.scm
diff --git a/test-utf16-be.scm b/test-utf16-be.scm
new file mode 100644
index 0000000000000000000000000000000000000000..96c25d0e3ea4eee88094442f495a163946ea3ac7
GIT binary patch
literal 356
zcmX|+L2kk@5Jmqw2VhOZ1{PIa7NBm6TB#ypLwkS_++Z~%C?PGJgA4P<MaYt8#`FFk
zk4AdXP*3XBsU>a{R1-b-FP%~iot+ZSSX<r;Rmx$#9`y}fktL90It_&BOX@Fu>K*1;
zGrj6flN)7fBYI+qc8Gt$1h0LpTFr6q?!37kbmlF<?{q{lmBaUiELDb2#|czR*cQUa
zKc;t&4u`Ey{HB5{=+`K0gAjMB(S*2-M{lklT5Ca^M34X71DZp0J{#lK?&5x2?wZx0
Q&mwDFjqhKaV;Ngt0T+%rcK`qY

literal 0
HcmV?d00001

diff --git a/test-utf16-le.scm b/test-utf16-le.scm
new file mode 100644
index 0000000000000000000000000000000000000000..356d6bcd7ab2958ef6cf4280f818da767fe9a361
GIT binary patch
literal 356
zcmX|+L2kk@5Jmr*1F#OT35yEDf~so-5+Y(lIY0;|ScD`>8d}c5h5Kv}ij*09-v8r2
z(m;_W>eQ;C9^_O~E&m&nToseEdVH~t+-EA3!diXk1YOYeAY&#KgxBYs_xjcfW~#Xo
zEj4~oUhRpFnxl>I&)8sf4W~w*xVLZKyVkmM=itx!K{1oT_ls_bcM9DyjkJMnAZ&Q!
z@a@s!aMT~KDc~~ZB?_Owg-j(H7t&bt-gT{=7SwU@cxHEK>fn42%+5T_#iXV({cX}c
Px5YSH{f0fh^Qr#<SBg1-

literal 0
HcmV?d00001