-
Notifications
You must be signed in to change notification settings - Fork 0
/
env_test.elv
34 lines (29 loc) · 769 Bytes
/
env_test.elv
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
use ./env
use ./test
test:assert {
set-env TEST_HAS_ELEM1 'a:b:c'
env:has-elem &delimiter=':' TEST_HAS_ELEM1 'b'
}
test:refute {
set-env TEST_HAS_ELEM2 'a:b:c'
env:has-elem &delimiter=$nil TEST_HAS_ELEM2 'non-existant'
}
test:refute {
set-env TEST_HAS_ELEM3 'a:b:c'
env:has-elem &delimiter='' TEST_HAS_ELEM3 'non-existant'
}
test:assert {
env:set TESTVAR1234 '/path1:/path2'
env:append TESTVAR1234 '/path3'
==s (env:get TESTVAR1234) '/path1:/path2:/path3'
}
# Invalid delimiter
test:fail {
env:set TESTVAR1234 '/path1:/path2'
env:append TESTVAR1234 '/path3' &delimiter=''
}
test:assert {
env:set TESTVAR1234 '/path1:/path2'
env:prepend TESTVAR1234 '/path3'
==s (env:get TESTVAR1234) '/path3:/path1:/path2'
}