From 0365eb112310a07d6216a03329069ab8d6aa349d Mon Sep 17 00:00:00 2001
From: Loic Denuziere <loic@denuziere.net>
Date: Sun, 15 May 2022 12:22:56 +0200
Subject: [PATCH] test: Add regression test for #256: template attributes are
 lowercased

---
 tests/Unit.Client/Templating.fs | 8 ++++++++
 tests/Unit/Tests/Templating.fs  | 5 +++++
 2 files changed, 13 insertions(+)

diff --git a/tests/Unit.Client/Templating.fs b/tests/Unit.Client/Templating.fs
index 99ed977c..c56e7363 100644
--- a/tests/Unit.Client/Templating.fs
+++ b/tests/Unit.Client/Templating.fs
@@ -173,6 +173,10 @@ type BindTester() =
 
 type ``Regression #11`` = Template<"""<span class="${Hole}">${Hole}</span>""">
 
+type ``Regression #256`` = Template<"""<svg width="200" height="200" version="1.1" viewBox="0 0 100 100" class="regression-256" xmlns="http://www.w3.org/2000/svg">
+    <circle cx="50" cy="50" r="45" fill="${CircleFill}" stroke="${CircleStroke}" stroke-width="3"/>
+</svg>""">
+
 let Tests() =
     div {
         attr.id "test-fixture-templating"
@@ -200,6 +204,10 @@ let Tests() =
         ``Regression #11``()
             .Hole("regression-11")
             .Elt()
+        ``Regression #256``()
+            .CircleFill("red")
+            .CircleStroke("black")
+            .Elt()
         comp<EventTester>
         comp<BindTester>
     }
diff --git a/tests/Unit/Tests/Templating.fs b/tests/Unit/Tests/Templating.fs
index da09865a..e36a799a 100644
--- a/tests/Unit/Tests/Templating.fs
+++ b/tests/Unit/Tests/Templating.fs
@@ -233,3 +233,8 @@ module Templating =
     [<Test>]
     let ``Regression #11: common hole in attrs and children``() =
         test <@ elt.ByClass("regression-11").Text = "regression-11" @>
+
+    [<Test>]
+    let ``Regression #256: attribute name case is respected``() =
+        test <@ elt.ByClass("regression-256").GetDomAttribute("viewbox") |> isNull @>
+        test <@ elt.ByClass("regression-256").GetDomAttribute("viewBox") = "0 0 100 100" @>