WIP

Author: gdonald

.github/workflows/ci.yml

@@ -3,6 +3,9 @@ on: [push, pull_request]
 jobs:
   test:
     runs-on: ubuntu-latest
+    env:
+      HAML_BENCH_ITERS: 10
+      HAML_RUN_BENCH: 1
     steps:
       - uses: actions/checkout@v4
       - uses: Raku/setup-raku@v1
@@ -23,3 +26,5 @@ jobs:
         run: zef install --/test App::Prove6
       - name: Run tests
         run: ./test.raku
+      - name: Run benchmarks
+        run: behave --benchmark specs/bench/

META6.json

@@ -8,7 +8,7 @@
   "auth": "zef:gdonald",
   "depends": [],
   "build-depends": [],
-  "test-depends": ["Test", "Test::META"],
+  "test-depends": ["Test", "Test::META", "BDD::Behave"],
   "provides": {
     "Template::HAML": "lib/Template/HAML.rakumod",
     "Template::HAML::Actions": "lib/Template/HAML/Actions.rakumod",

bench/render.raku

@@ -0,0 +1,30 @@
+use lib 'lib';
+use BDD::Behave;
+use Template::HAML;
+
+describe 'attribute value HTML escaping', {
+  it 'escapes &', {
+    expect(HAML.render(:src(Q[%a{title: 'tom & jerry'}] ~ "\n")))
+      .to.eq("<a title='tom &amp; jerry'></a>\n");
+  }
+
+  it 'escapes < and >', {
+    expect(HAML.render(:src(Q[%a{title: '<script>'}] ~ "\n")))
+      .to.eq("<a title='&lt;script&gt;'></a>\n");
+  }
+
+  it 'escapes a single quote to &#39;', {
+    expect(HAML.render(:src(Q[%a{title: "don't"}] ~ "\n")))
+      .to.eq("<a title='don&#39;t'></a>\n");
+  }
+
+  it 'escapes a double quote to &quot;', {
+    expect(HAML.render(:src(Q[%a{title: 'a "quoted" word'}] ~ "\n")))
+      .to.eq("<a title='a &quot;quoted&quot; word'></a>\n");
+  }
+
+  it 'escapes combined &, <, > in one value', {
+    expect(HAML.render(:src(Q[%a{title: 'a & b < c'}] ~ "\n")))
+      .to.eq("<a title='a &amp; b &lt; c'></a>\n");
+  }
+}

specs/attrs/attr-escape-spec.raku

@@ -0,0 +1,25 @@
+use lib 'lib';
+use BDD::Behave;
+use Template::HAML;
+
+describe 'attribute emission order', {
+  it 'emits id and class first, then the rest in insertion order', {
+    expect(HAML.render(:src(Q<%a{title: 't', class: 'c', id: 'i', href: '/'}> ~ "\n")))
+      .to.eq("<a id='i' class='c' title='t' href='/'></a>\n");
+  }
+
+  it 'preserves insertion order for plain keys', {
+    expect(HAML.render(:src(Q<%a{c: 3, a: 1, b: 2}> ~ "\n")))
+      .to.eq("<a c='3' a='1' b='2'></a>\n");
+  }
+
+  it 'emits shorthand id first even with literal pairs after', {
+    expect(HAML.render(:src(Q<%a#main{href: '/', class: 'cls'}> ~ "\n")))
+      .to.eq("<a id='main' class='cls' href='/'></a>\n");
+  }
+
+  it 'emits shorthand class after id and before remaining keys', {
+    expect(HAML.render(:src(Q<%a.foo{href: '/', id: 'm'}> ~ "\n")))
+      .to.eq("<a id='m' class='foo' href='/'></a>\n");
+  }
+}