typeable/elm-ui
1
0
Fork 0
mirror of https://github.com/typeable/elm-ui.git synced 2024-11-23 01:50:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

compare numbers by rounding || flooring

Browse Source
This commit is contained in:
Matthew Griffith 2018-09-19 09:31:33 -04:00
parent 43f03783bb
commit 79df3d1eff
1 changed files with 41 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

106
tests/src/Testable/Element.elm
View File

@ -1040,6 +1040,10 @@ onLeft element =
}
compare x vs y =
vs (round x) (round y) || vs (floor x) (floor y)
{-| -}
inFront : Testable.Element msg -> Testable.Attr msg
inFront element =
@ -1048,79 +1052,51 @@ inFront element =
, element = element
, label = "inFront"
, test =
\found _ ->
let
horizontalCheck =
if found.self.bbox.width > found.parent.bbox.width then
[ (found.self.bbox.right <= found.parent.bbox.right)
|| (found.self.bbox.left >= found.parent.bbox.left)
]
else
[ found.self.bbox.right <= found.parent.bbox.right
, found.self.bbox.left >= found.parent.bbox.left
]
verticalCheck =
if found.self.bbox.width > found.parent.bbox.width then
[ (found.self.bbox.top >= found.parent.bbox.top)
|| (found.self.bbox.bottom <= found.parent.bbox.bottom)
]
else
[ found.self.bbox.top >= found.parent.bbox.top
, found.self.bbox.bottom <= found.parent.bbox.bottom
]
in
Expect.true "within the confines of the parent"
(List.all ((==) True)
(List.concat
[ horizontalCheck
, verticalCheck
]
)
)
withinHelper
}
withinHelper found _ =
let
horizontalCheck =
if found.self.bbox.width > found.parent.bbox.width then
[ compare found.self.bbox.right (<=) found.parent.bbox.right
|| compare found.self.bbox.left (>=) found.parent.bbox.left
]
else
[ compare found.self.bbox.right (<=) found.parent.bbox.right
, compare found.self.bbox.left (>=) found.parent.bbox.left
]
verticalCheck =
if found.self.bbox.width > found.parent.bbox.width then
[ compare found.self.bbox.top (>=) found.parent.bbox.top
|| compare found.self.bbox.bottom (<=) found.parent.bbox.bottom
]
else
[ compare found.self.bbox.top (>=) found.parent.bbox.top
, compare found.self.bbox.bottom (<=) found.parent.bbox.bottom
]
in
Expect.true "within the confines of the parent"
(List.all ((==) True)
(List.concat
[ horizontalCheck
, verticalCheck
]
)
)
{-| -}
behindContent : Testable.Element msg -> Testable.Attr msg
behindContent element =
Testable.Nearby
{ location = Testable.Behind
, element = element
, label = "behind"
, label = "behindContent"
, test =
\found _ ->
let
horizontalCheck =
if found.self.bbox.width > found.parent.bbox.width then
[ (found.self.bbox.right <= found.parent.bbox.right)
|| (found.self.bbox.left >= found.parent.bbox.left)
]
else
[ found.self.bbox.right <= found.parent.bbox.right
, found.self.bbox.left >= found.parent.bbox.left
]
verticalCheck =
if found.self.bbox.width > found.parent.bbox.width then
[ (found.self.bbox.top >= found.parent.bbox.top)
|| (found.self.bbox.bottom <= found.parent.bbox.bottom)
]
else
[ found.self.bbox.top >= found.parent.bbox.top
, found.self.bbox.bottom <= found.parent.bbox.bottom
]
in
Expect.true "within the confines of the parent"
(List.all ((==) True)
(List.concat
[ horizontalCheck
, verticalCheck
]
)
)
withinHelper
}