M tests.hex → tests.hex

@@ -86,6 +86,15 @@ ("hello" 0x0 0x3 slice "hell" ==)
     ;36
 
     ("aaaaa" len 0x5 ==)
+    ((0x1 0x3 puts "aaa") len 0x4 ==)
+    ((0x2 0x3 0x4) 0x2 get 0x4 ==)
+    ("abcde" 0x1 get "b" ==)
+    ;40
+
+    ("abdef" "c" 0x2 insert "abcdef" ==)
+    ("bcdef" "a" 0x0 insert "abcdef" ==)
+    ("abcde" "f" 0x5 insert "abcdef" ==)
+    ;((0x1 0x2 0x3) 0x4 0x4 insert (0x1 0x2 0x3 0x4) ==)
 ) "tests" store