Added $PWD as a variable likely to contain spaces

This commit is contained in:
Vidar Holen 2013-07-23 21:03:43 -07:00
parent f348661e7e
commit cd1368b434
1 changed files with 4 additions and 1 deletions

View File

@ -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