ref: f86a95697db4370ac5fc12432aa20117d0754139
dir: /lib/json/test/parse.myr/
use std use json use testr const main = { strtest() filetest() } const strtest = { testr.run([ [.name="null", .fn={ctx var j = std.try(json.parse("null")) match j | &(`json.Null): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; json.free(j) }], [.name="bool", .fn={ctx var j = std.try(json.parse("true")) match j | &(`json.Bool true): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; j = std.try(json.parse("false")) match j | &(`json.Bool false): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; json.free(j) }], [.name="num", .fn={ctx var j = std.try(json.parse("123")) match j | &(`json.Num 123.0): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; json.free(j) }], [.name="str", .fn={ctx var j = std.try(json.parse("\"some str\"")) match j | &(`json.Str "some str"): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; json.free(j) }], [.name="arr", .fn={ctx var j = std.try(json.parse("[\"some str\", 123, false]")) match j | &(`json.Arr a): match a[0] | &(`json.Str "some str"): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; match a[1] | &(`json.Num 123.0): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; match a[2] | &(`json.Bool false): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; | val: testr.fail(ctx, "wrong value {}", val) ;; json.free(j) }], [.name="obj", .fn={ctx var j = std.try(json.parse("{\"key\": 123, \"another\": \"foo\"}")) match j | &(`json.Obj a): match a[0] | ("key", &(`json.Num 123.0)): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; match a[1] | ("another", &(`json.Str "foo")): std.put("ok\n") | val: testr.fail(ctx, "wrong value {}", val) ;; | val: testr.fail(ctx, "wrong value {}", val) ;; json.free(j) }], ][:]) } const filetest = { var dir, data, path dir = std.try(std.diropen("test/inputs")) for f : std.byentry(dir) path = std.pathcat("test/inputs", f) data = std.try(std.slurp(path)) /* 'n' indicates expected failure, 'y' indicates expected success, 'i' indicates implementation defined */ match std.decode(f) | 'n': testr.run([ [.name=f, .fn={ctx match json.parse(data) | `std.Err e: /* ok */ | `std.Ok r: testr.fail(ctx, "succeeded : parsing malformed json: {}\n", r) std.die("hah") ;; }] ][:]) | 'y': testr.run([ [.name=f, .fn={ctx match json.parse(data) | `std.Err e: testr.fail(ctx, "failed to parse json\n") | `std.Ok r: json.free(r) ;; }] ][:]) | '_': std.put("skip: {}\n", f) | 'i': std.put("ignoring implementation defined test {}\n", f) | wat: if !std.eq(f, "LICENSE") std.fatal("unknown test '{}': needs to start with y or n\n", f) ;; ;; std.slfree(data) std.slfree(path) ;; }