X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Falien%2Fendian%2Fendian-tests.factor;h=6c083df8e7398ef6016a1fca682f5b63fd2937c1;hp=53901a39384534097f4ce3e3e15f639b06cc4c3e;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/basis/alien/endian/endian-tests.factor b/basis/alien/endian/endian-tests.factor index 53901a3938..6c083df8e7 100644 --- a/basis/alien/endian/endian-tests.factor +++ b/basis/alien/endian/endian-tests.factor @@ -20,37 +20,37 @@ STRUCT: endian-struct { l be64 } ; CONSTANT: endian-bytes-0f B{ - HEX: 0 HEX: ff - HEX: 0 HEX: ff - HEX: 0 HEX: ff - HEX: 0 HEX: ff - - HEX: 0 HEX: 0 HEX: 0 HEX: ff - HEX: 0 HEX: 0 HEX: 0 HEX: ff - HEX: 0 HEX: 0 HEX: 0 HEX: ff - HEX: 0 HEX: 0 HEX: 0 HEX: ff - - HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff - HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff - HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff - HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: ff + 0x0 0xff + 0x0 0xff + 0x0 0xff + 0x0 0xff + + 0x0 0x0 0x0 0xff + 0x0 0x0 0x0 0xff + 0x0 0x0 0x0 0xff + 0x0 0x0 0x0 0xff + + 0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff + 0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff + 0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff + 0x0 0x0 0x0 0x0 0x0 0x0 0x0 0xff } CONSTANT: endian-bytes-f0 B{ - HEX: ff HEX: 0 - HEX: ff HEX: 0 - HEX: ff HEX: 0 - HEX: ff HEX: 0 - - HEX: ff HEX: 0 HEX: 0 HEX: 0 - HEX: ff HEX: 0 HEX: 0 HEX: 0 - HEX: ff HEX: 0 HEX: 0 HEX: 0 - HEX: ff HEX: 0 HEX: 0 HEX: 0 - - HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 - HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 - HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 - HEX: ff HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 HEX: 0 + 0xff 0x0 + 0xff 0x0 + 0xff 0x0 + 0xff 0x0 + + 0xff 0x0 0x0 0x0 + 0xff 0x0 0x0 0x0 + 0xff 0x0 0x0 0x0 + 0xff 0x0 0x0 0x0 + + 0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0 + 0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0 + 0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0 + 0xff 0x0 0x0 0x0 0x0 0x0 0x0 0x0 } : endian-test-struct-0f ( -- obj ) @@ -59,36 +59,36 @@ CONSTANT: endian-bytes-f0 B{ : endian-test-struct-f0 ( -- obj ) endian-bytes-f0 endian-struct memory>struct ; -[ HEX: ff00 ] [ endian-test-struct-0f a>> ] unit-test +[ 0xff00 ] [ endian-test-struct-0f a>> ] unit-test [ -256 ] [ endian-test-struct-0f b>> ] unit-test -[ HEX: 00ff ] [ endian-test-struct-0f c>> ] unit-test -[ HEX: 00ff ] [ endian-test-struct-0f d>> ] unit-test +[ 0x00ff ] [ endian-test-struct-0f c>> ] unit-test +[ 0x00ff ] [ endian-test-struct-0f d>> ] unit-test -[ HEX: ff000000 ] [ endian-test-struct-0f e>> ] unit-test +[ 0xff000000 ] [ endian-test-struct-0f e>> ] unit-test [ -16777216 ] [ endian-test-struct-0f f>> ] unit-test -[ HEX: 000000ff ] [ endian-test-struct-0f g>> ] unit-test -[ HEX: 000000ff ] [ endian-test-struct-0f h>> ] unit-test +[ 0x000000ff ] [ endian-test-struct-0f g>> ] unit-test +[ 0x000000ff ] [ endian-test-struct-0f h>> ] unit-test -[ HEX: ff00000000000000 ] [ endian-test-struct-0f i>> ] unit-test +[ 0xff00000000000000 ] [ endian-test-struct-0f i>> ] unit-test [ -72057594037927936 ] [ endian-test-struct-0f j>> ] unit-test -[ HEX: 00000000000000ff ] [ endian-test-struct-0f k>> ] unit-test -[ HEX: 00000000000000ff ] [ endian-test-struct-0f l>> ] unit-test +[ 0x00000000000000ff ] [ endian-test-struct-0f k>> ] unit-test +[ 0x00000000000000ff ] [ endian-test-struct-0f l>> ] unit-test -[ HEX: ff00 ] [ endian-test-struct-f0 c>> ] unit-test +[ 0xff00 ] [ endian-test-struct-f0 c>> ] unit-test [ -256 ] [ endian-test-struct-f0 d>> ] unit-test -[ HEX: 00ff ] [ endian-test-struct-f0 a>> ] unit-test -[ HEX: 00ff ] [ endian-test-struct-f0 b>> ] unit-test +[ 0x00ff ] [ endian-test-struct-f0 a>> ] unit-test +[ 0x00ff ] [ endian-test-struct-f0 b>> ] unit-test -[ HEX: ff000000 ] [ endian-test-struct-f0 g>> ] unit-test +[ 0xff000000 ] [ endian-test-struct-f0 g>> ] unit-test [ -16777216 ] [ endian-test-struct-f0 h>> ] unit-test -[ HEX: 000000ff ] [ endian-test-struct-f0 e>> ] unit-test -[ HEX: 000000ff ] [ endian-test-struct-f0 f>> ] unit-test +[ 0x000000ff ] [ endian-test-struct-f0 e>> ] unit-test +[ 0x000000ff ] [ endian-test-struct-f0 f>> ] unit-test -[ HEX: ff00000000000000 ] [ endian-test-struct-f0 k>> ] unit-test +[ 0xff00000000000000 ] [ endian-test-struct-f0 k>> ] unit-test [ -72057594037927936 ] [ endian-test-struct-f0 l>> ] unit-test -[ HEX: 00000000000000ff ] [ endian-test-struct-f0 i>> ] unit-test -[ HEX: 00000000000000ff ] [ endian-test-struct-f0 j>> ] unit-test +[ 0x00000000000000ff ] [ endian-test-struct-f0 i>> ] unit-test +[ 0x00000000000000ff ] [ endian-test-struct-f0 j>> ] unit-test [ t ] [ endian-test-struct-0f binary [ write ] with-byte-writer endian-bytes-0f = ] unit-test