shithub: mc

ref: 6a113c23192c0877185aadddbc58b943ed68dd7b
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)
	;;
}