-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathOverflowSpec.purs
108 lines (64 loc) · 2.84 KB
/
OverflowSpec.purs
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
-- https://www.w3.org/TR/css-overflow-3/
module Test.OverflowSpec where
import Prelude
import Tecton
( auto
, clip
, ellipsis
, hidden
, inherit
, initial
, overflow
, overflowX
, overflowY
, scroll
, textOverflow
, unset
, visible
, (:=)
, (~)
)
import Test.Spec (Spec, describe)
import Test.Util (isRenderedFromInline)
spec :: Spec Unit
spec = do
let isRenderedFrom = isRenderedFromInline
describe "Overflow Module" do
describe "overflow-x property" do
"overflow-x:inherit" `isRenderedFrom` (overflowX := inherit)
"overflow-x:initial" `isRenderedFrom` (overflowX := initial)
"overflow-x:unset" `isRenderedFrom` (overflowX := unset)
"overflow-x:visible" `isRenderedFrom` (overflowX := visible)
"overflow-x:hidden" `isRenderedFrom` (overflowX := hidden)
"overflow-x:clip" `isRenderedFrom` (overflowX := clip)
"overflow-x:scroll" `isRenderedFrom` (overflowX := scroll)
"overflow-x:auto" `isRenderedFrom` (overflowX := auto)
describe "overflow-y property" do
"overflow-y:inherit" `isRenderedFrom` (overflowY := inherit)
"overflow-y:initial" `isRenderedFrom` (overflowY := initial)
"overflow-y:unset" `isRenderedFrom` (overflowY := unset)
"overflow-y:visible" `isRenderedFrom` (overflowY := visible)
"overflow-y:hidden" `isRenderedFrom` (overflowY := hidden)
"overflow-y:clip" `isRenderedFrom` (overflowY := clip)
"overflow-y:scroll" `isRenderedFrom` (overflowY := scroll)
"overflow-y:auto" `isRenderedFrom` (overflowY := auto)
describe "overflow property" do
"overflow:inherit" `isRenderedFrom` (overflow := inherit)
"overflow:initial" `isRenderedFrom` (overflow := initial)
"overflow:unset" `isRenderedFrom` (overflow := unset)
"overflow:visible" `isRenderedFrom` (overflow := visible)
"overflow:hidden" `isRenderedFrom` (overflow := hidden)
"overflow:clip" `isRenderedFrom` (overflow := clip)
"overflow:scroll" `isRenderedFrom` (overflow := scroll)
"overflow:auto" `isRenderedFrom` (overflow := auto)
"overflow:visible hidden" `isRenderedFrom` (overflow := visible ~ hidden)
"overflow:hidden clip" `isRenderedFrom` (overflow := hidden ~ clip)
"overflow:clip scroll" `isRenderedFrom` (overflow := clip ~ scroll)
"overflow:scroll auto" `isRenderedFrom` (overflow := scroll ~ auto)
"overflow:auto visible" `isRenderedFrom` (overflow := auto ~ visible)
describe "text-overflow property" do
"text-overflow:inherit" `isRenderedFrom` (textOverflow := inherit)
"text-overflow:initial" `isRenderedFrom` (textOverflow := initial)
"text-overflow:unset" `isRenderedFrom` (textOverflow := unset)
"text-overflow:clip" `isRenderedFrom` (textOverflow := clip)
"text-overflow:ellipsis" `isRenderedFrom` (textOverflow := ellipsis)