shithub: mc

ref: 90d9a10c0234f5868c2e86882aae72fc931d53fd
dir: /lib/std/test/env.myr/

use std
use testr

const main = {
	var e, v

	/* set */
	for var i = 0; i < 100; i++
		e = std.fmt("ENV{}", i)
		v = std.fmt("VAL{}", i)
		std.setenv(e, v)
		std.slfree(e)
		std.slfree(v)
	;;

	for var i = 0; i < 100; i++
		e = std.fmt("ENV{}", i)
		v = std.fmt("VAL{}", i)
		std.assert(std.eq(std.getenvv(e, v), v), "get of {} failed", e)
		std.slfree(e)
		std.slfree(v)
	;;

	for var i = 0; i < 100; i++
		e = std.fmt("ENV{}", i)
		v = std.fmt("VAL{}", 100-i)
		std.setenv(e, v)
		std.slfree(e)
		std.slfree(v)
	;;
	for var i = 0; i < 100; i++
		e = std.fmt("ENV{}", i)
		v = std.fmt("VAL{}", 100-i)
		std.assert(std.eq(std.getenvv(e, v), v), "get of {} failed", e)
		std.slfree(e)
		std.slfree(v)
	;;
}