shithub: mc

ref: 0d7d70e5b1a4b5c7ae618d6d04fb30848b18c08f
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)
	;;
}