Commit0b2683f5Recorded1 Apr 2026Repositorysigil-web-styles
Update test expectations for current default palette and typography values
Changed
test/test-styles.sgl | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)Diff
test/test-styles.sglmodified
@@ -29,8 +29,8 @@
29
(assert-true (string? (palette-error default-palette)))) 30
31
(test "default palette uses black+gold"−32
(assert-equal "#0d0d0d" (palette-background default-palette))−33
(assert-equal "#d4a017" (palette-primary default-palette)))+32
(assert-equal "#0a0a0a" (palette-background default-palette))+33
(assert-equal "#f0c040" (palette-primary default-palette))) 34
35
(test "make-palette creates custom palette" 36
(let ((p (make-palette@@ -44,15 +44,15 @@
44
(test "palette->css-vars generates :root block" 45
(let ((css (css->string (palette->css-vars default-palette)))) 46
(assert-true (string-contains? css ":root"))−47
(assert-true (string-contains? css "--color-bg: #0d0d0d"))−48
(assert-true (string-contains? css "--color-primary: #d4a017")))))+47
(assert-true (string-contains? css "--color-bg: #0a0a0a"))+48
(assert-true (string-contains? css "--color-primary: #f0c040"))))) 49
50
(test-group "typography" 51
(test "typography-styles generates body styles" 52
(let ((css (css->string (typography-styles)))) 53
(assert-true (string-contains? css "body")) 54
(assert-true (string-contains? css "font-family"))−55
(assert-true (string-contains? css "line-height: 1.6")))))+55
(assert-true (string-contains? css "line-height: 1.7"))))) 56
57
(test-group "components" 58
(test "card-styles generates .card"@@ -113,7 +113,7 @@
113
(test "generates complete stylesheet with default palette" 114
(let ((css (theme-stylesheet))) 115
(assert-true (string-contains? css ":root"))−116
(assert-true (string-contains? css "--color-bg: #0d0d0d"))+116
(assert-true (string-contains? css "--color-bg: #0a0a0a")) 117
(assert-true (string-contains? css ".card")) 118
(assert-true (string-contains? css ".table")) 119
(assert-true (string-contains? css ".header"))