-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathColorSpec.purs
50 lines (32 loc) · 1.07 KB
/
ColorSpec.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
module Test.ColorSpec where
import Prelude
import Color (hsl)
import Tecton
( color
, currentColor
, inherit
, initial
, opacity
, transparent
, unset
, (:=)
)
import Test.Spec (Spec, describe)
import Test.Util (isRenderedFromInline)
spec :: Spec Unit
spec = do
let isRenderedFrom = isRenderedFromInline
describe "Color Module" do
describe "color property" do
"color:inherit" `isRenderedFrom` (color := inherit)
"color:initial" `isRenderedFrom` (color := initial)
"color:unset" `isRenderedFrom` (color := unset)
"color:transparent" `isRenderedFrom` (color := transparent)
"color:currentColor" `isRenderedFrom` (color := currentColor)
"color:#0000ff" `isRenderedFrom` (color := hsl 240.0 1.0 0.5)
describe "opacity property" do
"opacity:inherit" `isRenderedFrom` (opacity := inherit)
"opacity:initial" `isRenderedFrom` (opacity := initial)
"opacity:unset" `isRenderedFrom` (opacity := unset)
"opacity:0" `isRenderedFrom` (opacity := 0)
"opacity:0.5" `isRenderedFrom` (opacity := 0.5)