Added $PWD as a variable likely to contain spaces
This commit is contained in:
parent
f348661e7e
commit
cd1368b434
|
@ -1445,11 +1445,14 @@ prop_checkSpacefulnessF = verifyNotFull checkSpacefulness "local foo=$1"
|
||||||
prop_checkSpacefulnessG = verifyNotFull checkSpacefulness "declare foo=$1"
|
prop_checkSpacefulnessG = verifyNotFull checkSpacefulness "declare foo=$1"
|
||||||
prop_checkSpacefulnessH = verifyFull checkSpacefulness "echo foo=$1"
|
prop_checkSpacefulnessH = verifyFull checkSpacefulness "echo foo=$1"
|
||||||
prop_checkSpacefulnessI = verifyNotFull checkSpacefulness "$1 --flags"
|
prop_checkSpacefulnessI = verifyNotFull checkSpacefulness "$1 --flags"
|
||||||
|
prop_checkSpacefulnessJ = verifyFull checkSpacefulness "echo $PWD"
|
||||||
|
|
||||||
checkSpacefulness t =
|
checkSpacefulness t =
|
||||||
doVariableFlowAnalysis readF writeF (Map.fromList defaults) t
|
doVariableFlowAnalysis readF writeF (Map.fromList defaults) t
|
||||||
where
|
where
|
||||||
defaults = map (\x -> (show x, True)) [0..10]
|
defaults =
|
||||||
|
let values = ["PWD"] ++ (map show [0..10]) in
|
||||||
|
zip values (repeat True)
|
||||||
|
|
||||||
hasSpaces name = do
|
hasSpaces name = do
|
||||||
map <- get
|
map <- get
|
||||||
|
|
Loading…
Reference in New Issue