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

Fix overflow test for footer.

Browse Source
This commit is contained in:
Aaron Friel 2017-03-01 18:21:00 -06:00
parent 3acd358438
commit 5a6d387130
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