From 261e55a918ed99f9b46c8a14bdd801fc74dd94c9 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 25 Aug 2010 17:51:44 -0700 Subject: [PATCH] serialize, io.streams.byte-array: fix unit tests for utf8 encoding strictness --- basis/serialize/serialize-tests.factor | 2 +- core/io/streams/byte-array/byte-array-tests.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/serialize/serialize-tests.factor b/basis/serialize/serialize-tests.factor index 9213a54004..639cc1e2b0 100644 --- a/basis/serialize/serialize-tests.factor +++ b/basis/serialize/serialize-tests.factor @@ -45,7 +45,7 @@ CONSTANT: objects { 1 2 "three" } V{ 1 2 "three" } SBUF" hello world" - "hello \u123456 unicode" + "hello \u012345 unicode" \ dup [ \ dup dup ] T{ serialize-test f "a" 2 } diff --git a/core/io/streams/byte-array/byte-array-tests.factor b/core/io/streams/byte-array/byte-array-tests.factor index 9772de6262..1c7826719c 100644 --- a/core/io/streams/byte-array/byte-array-tests.factor +++ b/core/io/streams/byte-array/byte-array-tests.factor @@ -11,7 +11,7 @@ IN: io.streams.byte-array.tests [ B{ BIN: 11110101 BIN: 10111111 BIN: 10000000 BIN: 10111111 BIN: 11101111 BIN: 10000000 BIN: 10111111 BIN: 11011111 BIN: 10000000 CHAR: x } ] [ { BIN: 101111111000000111111 BIN: 1111000000111111 BIN: 11111000000 CHAR: x } >string utf8 [ write ] with-byte-writer ] unit-test -[ { BIN: 101111111000000111111 } t ] [ { BIN: 11110101 BIN: 10111111 BIN: 10000000 BIN: 10111111 } utf8 stream-contents dup >array swap string? ] unit-test +[ { BIN: 1111111000000111111 } t ] [ { BIN: 11110001 BIN: 10111111 BIN: 10000000 BIN: 10111111 } utf8 stream-contents dup >array swap string? ] unit-test [ B{ 121 120 } 0 ] [ B{ 0 121 120 0 0 0 0 0 0 } binary