OSDN Git Service

add test
authorMIZUNO Hiroki <mzpppp@gmail.com>
Sun, 18 May 2008 14:08:40 +0000 (23:08 +0900)
committerMIZUNO Hiroki <mzpppp@gmail.com>
Sun, 18 May 2008 14:08:40 +0000 (23:08 +0900)
test/test_bytes.ml

index 98a78e1..50c24bc 100644 (file)
@@ -52,4 +52,5 @@ test label =
       Label.make () in
       assert_equal [] @@ backpatch [];
       assert_equal [0;0xFD;0xFF;0xFF] @@ backpatch [u8 0;label l;label_ref l];
-      assert_equal [0;0;0;0] @@ backpatch [u8 0;label_ref l;label l]
+      assert_equal [0;0;0;0] @@ backpatch [u8 0;label_ref l;label l];
+      assert_equal [42;1;0;0;43] @@ backpatch [u8 42;label_ref l;u8 43;label l]