@@ -31,27 +31,27 @@ hexSpec = describe "hex-spec" do
3131
3232 it " can convert hex strings to utf8" do
3333 toUtf8 (unsafePartial (fromJust <<< mkHexString) " 6d79537472696e67" ) `shouldEqual` " myString"
34- toUtf8 (unsafePartial (fromJust <<< mkHexString) " 6d79537472696e6700" ) `shouldEqual` " myString\00 "
34+ toUtf8 (unsafePartial (fromJust <<< mkHexString) " 6d79537472696e6700" ) `shouldEqual` " myString\x00 "
3535 toUtf8 (unsafePartial (fromJust <<< mkHexString) " 65787065637465642076616c7565000000000000000000000000000000000000" )
36- `shouldEqual` " expected value\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00 "
36+ `shouldEqual` " expected value\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00 "
3737
3838 it " can convert strings to hex" do
3939 fromUtf8 " myString" `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 6d79537472696e67"
40- fromUtf8 " myString\00 " `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 6d79537472696e67"
41- fromUtf8 " expected value\00\00\00 " `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 65787065637465642076616c7565"
40+ fromUtf8 " myString\x00 " `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 6d79537472696e67"
41+ fromUtf8 " expected value\x00\x00\x00 " `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 65787065637465642076616c7565"
4242
4343 describe " ascii tests" do
4444
4545 it " can convert hex strings to ascii" do
4646
4747 toAscii (unsafePartial (fromJust <<< mkHexString) " 6d79537472696e67" ) `shouldEqual` " myString"
48- toAscii (unsafePartial (fromJust <<< mkHexString) " 6d79537472696e6700" ) `shouldEqual` " myString\0000 "
48+ toAscii (unsafePartial (fromJust <<< mkHexString) " 6d79537472696e6700" ) `shouldEqual` " myString\x0000 "
4949 -- toAscii ((fromJust <<< mkHexString) "0300000035e8c6d54c5d127c9dcebe9e1a37ab9b05321128d097590a3c100000000000006521df642ff1f5ec0c3a7aa6cea6b1e7b7f7cda2cbdf07362a85088e97f19ef94331c955c0e9321ad386428c")
50- -- `shouldEqual` "\0003\0000\0000\00005èÆÕL]\0012 |ξ\001a7 «\00052\0011 (ÐY\n<\0010\0000\0000\0000\0000\0000\0000e !ßd/ñõì\f:z¦Î¦±ç·÷Í¢Ëß\00076 *
\bñùC1ÉUÀé2\001aÓ B"
50+ -- `shouldEqual` "\x0003\x0000\x0000\x00005èÆÕL]\x0012 |ξ\x001a7 «\x00052\x0011 (ÐY\n<\x0010\x0000\x0000\x0000\x0000\x0000\x0000e !ßd/ñõì\f:z¦Î¦±ç·÷Í¢Ëß\x00076 *
\bñùC1ÉUÀé2\x001aÓ B"
5151
5252 it " can convert asci to hex" do
5353 fromAscii " myString" `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 6d79537472696e67"
54- fromAscii " myString\00 " `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 6d79537472696e6700"
54+ fromAscii " myString\x00 " `shouldEqual` unsafePartial (fromJust <<< mkHexString) " 6d79537472696e6700"
5555
5656 describe " json tests" do
5757
0 commit comments