github
0 of 4 new or added lines in 1 file covered. (0.0%)
79 existing lines in 12 files now uncovered.3222 of 4490 relevant lines covered (71.76%)
11.4 hits per line
|
UNCOV
1
|
environment |
× |
|
UNCOV
2
|
getEnvUnix: aKey |
× |
|
UNCOV
3
|
"Answer an environment dictionary."
|
× |
|
UNCOV
4
|
| index str key env | |
× |
|
UNCOV
5
|
env := Dictionary new.
|
× |
|
UNCOV
6
|
index := 1.
|
× |
|
UNCOV
7
|
[(str := self primEnvironmentAt: index) notNil] whileTrue: [ |
× |
|
UNCOV
8
|
key := (str copyUpTo: $=). |
× |
|
UNCOV
9
|
key = aKey ifTrue: [ |
× |
|
UNCOV
10
|
^ (str copyFrom: ((str indexOf: $=) + 1) to: (str size)) ].
|
× |
|
UNCOV
11
|
index := index + 1].
|
× |
|
UNCOV
12
|
^ nil |
× |