From e04dc6db29340c38f11a272218fcbc9013c6f6af Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 31 May 2015 08:44:39 -0700 Subject: [PATCH] io.binary: adding some tests for signed>. --- core/io/binary/binary-tests.factor | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/core/io/binary/binary-tests.factor b/core/io/binary/binary-tests.factor index 8ed3a627d9..a386c6d3ca 100644 --- a/core/io/binary/binary-tests.factor +++ b/core/io/binary/binary-tests.factor @@ -8,6 +8,12 @@ IN: io.binary.tests B{ 0x11 0x22 0x33 } le> ] unit-test +{ 0x04030201 } [ B{ 1 2 3 4 } signed-le> ] unit-test +{ 0x01020304 } [ B{ 1 2 3 4 } signed-be> ] unit-test + +{ -12 } [ B{ 0xf4 0xff 0xff 0xff } signed-le> ] unit-test +{ -12 } [ B{ 0xff 0xff 0xff 0xf4 } signed-be> ] unit-test + [ 0x7a2c793b2ff08554 ] [ B{ 0x54 0x85 0xf0 0x2f 0x3b 0x79 0x2c 0x7a } le> ] unit-test