pangram: update to latest (#736)

* pangram: add generator and regenerate tests

[no important files changed]

* Update exercises/practice/pangram/.meta/generator.tpl

Co-authored-by: Anastasios Chatzialexiou <16361161+tasxatzial@users.noreply.github.com>

* Update exercises/practice/pangram/.meta/generator.tpl

Co-authored-by: Anastasios Chatzialexiou <16361161+tasxatzial@users.noreply.github.com>

* Update exercises/practice/pangram/.meta/generator.tpl

Co-authored-by: Anastasios Chatzialexiou <16361161+tasxatzial@users.noreply.github.com>

* Dont' HTML escape

* Fix strings

---------

Co-authored-by: Anastasios Chatzialexiou <16361161+tasxatzial@users.noreply.github.com>

Author: ErikSchierboom

exercises/practice/pangram/.meta/generator.tpl

@@ -0,0 +1,8 @@
+(ns pangram-test
+  (:require [clojure.test :refer [deftest testing is]]
+            pangram))
+{{#test_cases.isPangram}}
+(deftest pangram?_test_{{idx}}
+  (testing "{{description}}"
+    (is ({{#expected}}true?{{else}}false?{{/expected}} (pangram/pangram? {{string input.sentence}})))))
+{{/test_cases.isPangram~}}

generators/src/templates.clj

@@ -4,17 +4,24 @@
             [hbs.ext :refer :all :exclude [hash]]
             [clojure.string :as str]
             [log]
-            [paths]))
+            [paths])
+  (:import [com.github.jknack.handlebars EscapingStrategy]))
 
 (defhelper list-helper [ctx options]
   (safe-str (str "'" (seq ctx))))
 
-(register-helper! *hbs* "list" list-helper)
-(register-helper! *hbs* "ifequals" ifequals)
-(register-helper! *hbs* "ifgreater" ifgreater)
-(register-helper! *hbs* "ifless" ifless)
-(register-helper! *hbs* "ifcontains" ifcontains)
-(register-helper! *hbs* "ifempty" ifempty)
+(defhelper string-helper [ctx options]
+  (safe-str (str "\"" (str/escape ctx char-escape-string) "\"")))
+
+(def reg (. *hbs* with EscapingStrategy/NOOP))
+
+(register-helper! reg "list" list-helper)
+(register-helper! reg "string" string-helper)
+(register-helper! reg "ifequals" ifequals)
+(register-helper! reg "ifgreater" ifgreater)
+(register-helper! reg "ifless" ifless)
+(register-helper! reg "ifcontains" ifcontains)
+(register-helper! reg "ifempty" ifempty)
 
 (def exercises-with-template
   (->> paths/exercises-dir
@@ -50,5 +57,5 @@
 (defn generate-test-files [slug test-cases]
   (let [template (slurp (paths/generator-template-file slug))
         data (test-cases->data slug test-cases)]
-    (->> (render template data)
+    (->> (render reg template data)
          (spit (paths/tests-file slug)))))