Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 0a4d1de911
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (15 sloc) 0.385 kb
let bad = "
{ foo\"a\":\"b\" }
"
let good = "
{ \"a\":\"b\" }
"
let _ =
Printf.printf "Parsing good JSON ... %!";
let _ = Jsonrpc.of_string good in
begin try
Printf.printf "OK\nParsing bad JSON ... %!";
let _ = Jsonrpc.of_string bad in
failwith "The bad JSON should have generated a parse failure"
with e -> Printf.printf "Caught %s:\nOK\n%!" (Printexc.to_string e)
end
Jump to Line
Something went wrong with that request. Please try again.