add test

jank-lang · Jan 30, 2025 · d191c5d · d191c5d
1 parent 362b4d0
commit d191c5d
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/compiler+runtime/test/bash/clojure.string/pass-test b/compiler+runtime/test/bash/clojure.string/pass-test
@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+set -xeuo pipefail
+jank --module-path src run-main clojure-string.self-test | grep ':success'
diff --git a/compiler+runtime/test/bash/clojure.string/src/clojure_string/self_test.jank b/compiler+runtime/test/bash/clojure.string/src/clojure_string/self_test.jank
@@ -0,0 +1,10 @@
+(ns clojure-test.self-test
+  (:require [clojure.string :as str]))
+
+(defn -main []
+  (assert (= "" (str/reverse "")))
+  (assert (= "tset-a" (str/reverse "a-test" "a")))
+  (assert (str/starts-with? "" ""))
+  (assert (str/starts-with? "a-test" "a"))
+  (assert (not (str/starts-with? "a-test" "b")))
+  :success)