twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

test_XPrompt.hs: there is no ShellPrompt.rmPath

Browse Source
This commit is contained in:
"Valery V. Vorotyntsev"
2007-10-19 20:58:30 +00:00
parent 723e757910
commit ab94a40160
1 changed files with 0 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test_XPrompt.hs
View File

@@ -26,10 +26,6 @@ deepestCheck p = check (defaultConfig { configMaxTest = 100000}) p
prop_split (str :: [Char]) = prop_split (str :: [Char]) =
forAll (elements str) $ \e -> S.split e str == S.split e str forAll (elements str) $ \e -> S.split e str == S.split e str
-- check for exceptions
prop_rmPath (str :: [[Char]]) =
S.rmPath str == S.rmPath str
-- check if the first element of the new list is indeed the first part -- check if the first element of the new list is indeed the first part
-- of the string. -- of the string.
prop_spliInSubListsAt (x :: Int) (str :: [Char]) = prop_spliInSubListsAt (x :: Int) (str :: [Char]) =
@@ -68,8 +64,6 @@ prop_newCommandIndex =
main = do main = do
putStrLn "Testing ShellPrompt.split" putStrLn "Testing ShellPrompt.split"
deepCheck prop_split deepCheck prop_split
putStrLn "Testing ShellPrompt.rmPath"
doubleCheck prop_rmPath
putStrLn "Testing spliInSubListsAt" putStrLn "Testing spliInSubListsAt"
deepCheck prop_spliInSubListsAt deepCheck prop_spliInSubListsAt
putStrLn "Testing newIndex + newCommand" putStrLn "Testing newIndex + newCommand"