aboutsummaryrefslogtreecommitdiffstats
path: root/tests/test_XPrompt.hs
blob: fa5207dcc0a89b7a0825d12f4a4fc9b36b71c8a7 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
{-# OPTIONS -fglasgow-exts #-}
-------------------------------------
--
-- Tests for XPrompt and ShellPrompt
--
-------------------------------------

import Data.Char
import Test.QuickCheck

import Data.List

import XMonadContrib.XPrompt
import qualified XMonadContrib.ShellPrompt as S
 
instance Arbitrary Char where
    arbitrary     = choose ('\32', '\255')
    coarbitrary c = variant (ord c `rem` 4)


doubleCheck p = check (defaultConfig { configMaxTest = 1000}) p
deepCheck p = check (defaultConfig { configMaxTest = 10000}) p
deepestCheck p = check (defaultConfig { configMaxTest = 100000}) p

-- brute force check for exceptions
prop_split (str :: [Char]) =
    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
-- of the string.
prop_spliInSubListsAt (x :: Int) (str :: [Char]) =
    x < length str ==> result == take x str
    where result = case splitInSubListsAt x str of
                     [] -> []
                     x -> head x

-- skipLastWord is complementary to getLastWord, unless the only space
-- in the string is the final character, in which case skipLastWord
-- and getLastWord will produce the same result.
prop_skipGetLastWord (str :: [Char]) =
    skipLastWord str ++ getLastWord str == str || skipLastWord str == getLastWord str

-- newIndex and newCommand get only non empy lists
elemGen :: Gen ([String],String)
elemGen = do
  a <- arbitrary :: Gen [[Char]]
  let l = case filter (/= []) a of
            [] -> ["a"]
            x -> x
  e <- elements l
  return (l,e)

-- 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 ShellPrompt.rmPath"
  doubleCheck prop_rmPath
  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