Will Anderson
83 lines
2.8 KiB
EmacsLisp
83 lines
2.8 KiB
EmacsLisp
// test_env.el - native test suite for runtime/env.el
|
|
//
|
|
// Covers: env() for reading environment variables, args() returning a list,
|
|
// state_set/get/del/keys via the env module re-exports, uuid_new/uuid_v4
|
|
// format validation.
|
|
|
|
test "env-missing-returns-empty" {
|
|
let v: String = env("__EL_NO_SUCH_VAR_XYZ__")
|
|
assert v == "", "missing env var returns empty string"
|
|
}
|
|
|
|
test "env-path-is-set" {
|
|
// PATH is expected to be set in virtually any UNIX environment.
|
|
let v: String = env("PATH")
|
|
assert str_len(v) > 0, "PATH env var is non-empty"
|
|
}
|
|
|
|
test "env-home-is-set" {
|
|
// HOME is present on macOS/Linux test environments.
|
|
let v: String = env("HOME")
|
|
assert str_len(v) > 0, "HOME env var is non-empty"
|
|
}
|
|
|
|
test "args-returns-list" {
|
|
let a: [String] = args()
|
|
// Even with no arguments, the list should be non-null (at minimum the
|
|
// program name is argv[0]).
|
|
let n: Int = native_list_len(a)
|
|
assert n >= 0, "args returns a list (may be empty if runtime strips argv)"
|
|
}
|
|
|
|
test "uuid-new-format" {
|
|
let id: String = uuid_new()
|
|
// UUID v4: xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx (36 chars)
|
|
let n: Int = str_len(id)
|
|
assert n == 36, "uuid_new returns 36-character string"
|
|
// Check the dashes at correct positions
|
|
let d1: String = str_char_at(id, 8)
|
|
let d2: String = str_char_at(id, 13)
|
|
let d3: String = str_char_at(id, 18)
|
|
let d4: String = str_char_at(id, 23)
|
|
assert d1 == "-", "dash at position 8"
|
|
assert d2 == "-", "dash at position 13"
|
|
assert d3 == "-", "dash at position 18"
|
|
assert d4 == "-", "dash at position 23"
|
|
}
|
|
|
|
test "uuid-v4-format" {
|
|
let id: String = uuid_v4()
|
|
let n: Int = str_len(id)
|
|
assert n == 36, "uuid_v4 returns 36-character string"
|
|
// The version nibble must be '4'
|
|
let version_char: String = str_char_at(id, 14)
|
|
assert version_char == "4", "uuid_v4 version nibble is '4'"
|
|
}
|
|
|
|
test "uuid-uniqueness" {
|
|
let id1: String = uuid_new()
|
|
let id2: String = uuid_new()
|
|
assert !str_eq(id1, id2), "two uuid_new calls produce different UUIDs"
|
|
}
|
|
|
|
test "env-state-set-get-via-env-module" {
|
|
// runtime/env.el re-exports state_set / state_get.
|
|
state_set("env_test_key", "env_test_val")
|
|
let v: String = state_get("env_test_key")
|
|
assert v == "env_test_val", "state_set/get work via env module"
|
|
state_del("env_test_key")
|
|
let after: String = state_get("env_test_key")
|
|
assert after == "", "state_del removes key"
|
|
}
|
|
|
|
test "env-state-keys-json-via-env-module" {
|
|
state_set("esk_a", "1")
|
|
state_set("esk_b", "2")
|
|
let ks: String = state_keys()
|
|
assert str_starts_with(ks, "["), "state_keys returns JSON array"
|
|
assert str_contains(ks, "esk_a"), "esk_a in keys"
|
|
assert str_contains(ks, "esk_b"), "esk_b in keys"
|
|
state_del("esk_a")
|
|
state_del("esk_b")
|
|
}
|