aboutsummaryrefslogtreecommitdiffstats
path: root/tests/test_XPrompt.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test_XPrompt.hs')
-rw-r--r--tests/test_XPrompt.hs15
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
-
+