aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-23 12:15:06 +03:00
Code Issues Projects Releases Wiki Activity

[tests] Fix bugs

Browse Source 
* 'waitUntil' probably doesn't work on 'shouldBe...'
* 'waitUntil' definitely doesn't work on something that merely
  returns a Bool (it needs an 'expect')
This commit is contained in:
Artyom 2016-08-28 22:33:24 +03:00
parent 2e80f496ad
commit 9faffc15b2
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/WebSpec.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE IncoherentInstances #-}
@ -76,9 +77,10 @@ mainPageTests = session "main page" $ using Firefox $ do
height `shouldBeInRange` (60, 70)
-- and now it shall be overflowing
setWindowSize (700, 500)
(_, height2) <- elemSize e
waitUntil 2 $
height2 `shouldBeInRange` (90, 140)
waitUntil 2 (expect . inRange (90, 140) . snd =<< elemSize e)
`catch` \(_::ExpectFailed) -> return ()
height2 <- snd <$> elemSize e
height2 `shouldBeInRange` (90, 140)
categoryTests :: Spec
categoryTests = session "categories" $ using Firefox $ do
@ -396,7 +398,7 @@ changesURL :: WD a -> WD a
changesURL x = do
url <- getCurrentURL
a <- x
waitUntil 2 ((/= url) <$> getCurrentURL)
waitUntil 2 (expect =<< ((/= url) <$> getCurrentURL))
return a
getBackAfterwards :: WD a -> WD a