Make read -t 0 test more forgiving towards other flags

This commit is contained in:
Vidar Holen 2019-10-12 20:45:36 -07:00
parent 91abd979f2
commit 7473d4a743
4 changed files with 20 additions and 8 deletions

View file

@ -676,7 +676,7 @@ prop_checkReadExpansions7 = verifyNot checkReadExpansions "read $1"
prop_checkReadExpansions8 = verifyNot checkReadExpansions "read ${var?}"
checkReadExpansions = CommandCheck (Exactly "read") check
where
options = getGnuOpts "sreu:n:N:i:p:a:"
options = getGnuOpts flagsForRead
getVars cmd = fromMaybe [] $ do
opts <- options cmd
return . map snd $ filter (\(x,_) -> x == "" || x == "a") opts