diff options
Diffstat (limited to 'tests/test_XPrompt.hs')
| -rw-r--r-- | tests/test_XPrompt.hs | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/tests/test_XPrompt.hs b/tests/test_XPrompt.hs index f82c036..a4c6236 100644 --- a/tests/test_XPrompt.hs +++ b/tests/test_XPrompt.hs @@ -10,8 +10,8 @@ import Test.QuickCheck import Data.List -import XMonad.XPrompt -import qualified XMonad.ShellPrompt as S +import XMonad.Prompt +import qualified XMonad.Prompt.Shell as S instance Arbitrary Char where arbitrary = choose ('\32', '\255') @@ -50,26 +50,27 @@ elemGen = do e <- elements l return (l,e) +{- newIndex and newCommand have since been renamed or are no longer used + -- newIndex calculates the index of the next completion in the -- completion list, so the index must be within the range of the -- copletions list prop_newIndex_range = forAll elemGen $ \(l,c) -> newIndex c l >= 0 && newIndex c l < length l +-} -- this is actually the definition of newCommand... -- just to check something. +{- prop_newCommandIndex = forAll elemGen $ \(l,c) -> (skipLastWord c ++ (l !! (newIndex c l))) == newCommand c l +-} main = do putStrLn "Testing ShellPrompt.split" deepCheck prop_split putStrLn "Testing spliInSubListsAt" deepCheck prop_spliInSubListsAt - putStrLn "Testing newIndex + newCommand" - deepCheck prop_newCommandIndex putStrLn "Testing skip + get lastWord" deepCheck prop_skipGetLastWord - putStrLn "Testing range of XPrompt.newIndex" - deepCheck prop_newIndex_range - + |