(* Make sure that nonsensical tests fail properly instead of *)
(* causing a segfault (see bug #129) *)
module Pass_bad_tests =
let k = [ key "a" ]*
test k put "aaa" after insb "a" "/a[4]" = *
test k put "aaa" after insa "a" "/a[4]" = *
test k put "aa" after set "x[func()]" "foo" = *
(* Make sure we reset internal error flags after the above *)
test k get "aa" = { "a" } { "a" }
test k put "aa" after rm "/a[func()]" = *
test k put "aa" after clear "/a[func()]" = *