shithub: mc

ref: e8121eb38f6c825fc4638d84521c51dc6cfe761b
dir: /lib/std/test/env.myr/

View raw version
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)
	;;
}