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

Merge pull request #148 from aelve/footerTestFix

Browse Source 
Fix overflow test for footer.
This commit is contained in:
Artyom Kazak 2017-03-04 14:48:36 +03:00 committed by GitHub
commit e13a7fc832
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/WebSpec.hs
View File

@ -68,13 +68,13 @@ mainPageTests = session "main page" $ using [chromeCaps] $ do
footer <- select "#footer"
(width, height) <- elemSize footer
width `shouldBeInRange` (750, 850)
height `shouldBeInRange` (60, 70)
height `shouldBeInRange` (30, 70)
wd "overflows when shrunk" $ do
-- and now it shall be overflowing
setWindowSize (700, 500)
waitUntil wait_delay (expect . inRange (90, 140) . snd =<< elemSize footer)
`catch` \(_::ExpectFailed) -> return ()
height2 <- snd <$> elemSize footer
height2 `shouldBeInRange` (90, 140)
setWindowSize (600, 500)
footer <- select "#footer"
(_, height) <- elemSize footer
height `shouldBeInRange` (71, 140)
categoryTests :: Spec
categoryTests = session "categories" $ using [chromeCaps] $ do