From 80e2bd66f54bca88a749d40784828d29bae8995f Mon Sep 17 00:00:00 2001
From: Jacob Scearcy <jacobscearcy@gmail.com>
Date: Mon, 6 May 2024 06:42:35 -0700
Subject: =?UTF-8?q?=F0=9F=94=80=20Use=20vitest=20for=20runtime/vdom=20test?=
 =?UTF-8?q?ing.=20(#124)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* 🧪 move tests into test directory, bump birdie to ignore non-gleam files

* implement feedback

* add comments, update doc
---
 .../vdom-test-templates/src/client_test.gleam      | 64 ++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 test-apps/vdom-test-templates/src/client_test.gleam

(limited to 'test-apps/vdom-test-templates/src')

diff --git a/test-apps/vdom-test-templates/src/client_test.gleam b/test-apps/vdom-test-templates/src/client_test.gleam
new file mode 100644
index 0000000..ccbb65e
--- /dev/null
+++ b/test-apps/vdom-test-templates/src/client_test.gleam
@@ -0,0 +1,64 @@
+import gleam/int
+import gleam/list
+import lustre/attribute
+import lustre/element
+import lustre/element/html
+
+// VIEW HELPERS -----------------------------------------------------------------
+// Functions to get view definitions for testing client ffi, further testing could reuse examples
+pub fn smoke_test() {
+  html.div([], [html.p([], [element.text("smoke test")])])
+}
+
+pub fn dynamic_content_test(number: Int, some_string: String) {
+  html.div([], [
+    html.h1([], [element.text(some_string)]),
+    html.p([], [element.text(int.to_string(number))]),
+  ])
+}
+
+const mock_people = [
+  #("1dfg", "Person One", 18),
+  #("abc3", "Person Two", 24),
+  #("ga4d", "Person Three", 30),
+]
+
+pub fn fragment_test() {
+  let person_els =
+    element.fragment(
+      list.map(mock_people, fn(person) {
+        let #(_, person_name, age) = person
+        let person_el = [
+          html.td([], [element.text(person_name)]),
+          html.td([], [element.text(int.to_string(age))]),
+        ]
+        element.fragment([html.tr([], person_el)])
+      }),
+    )
+
+  html.table([], [
+    html.head([], [
+      html.tr([], [
+        html.th([], [element.text("Person Name")]),
+        html.th([], [element.text("Person Age")]),
+      ]),
+    ]),
+    html.body([], [person_els]),
+  ])
+}
+
+pub fn keyed_test() {
+  element.keyed(html.ul([], _), {
+    use #(id, person_name, age) <- list.map(mock_people)
+    let child =
+      html.tr([], [
+        html.td([], [element.text(person_name)]),
+        html.td([], [element.text(int.to_string(age))]),
+      ])
+    #(id, child)
+  })
+}
+
+pub fn disabled_attr_test(is_disabled: Bool) {
+  html.div([], [html.input([attribute.disabled(is_disabled)])])
+}
-- 
cgit v1.2.3