Add initial string and JSON conversion functions

Upgrade cljs-bean when using shadow-cljs to get :keywordize-keys
functionality.

shadow-cljs.edn

@@ -3,7 +3,7 @@
                 "node_modules/@lonocloud/resolve-deps/src"]
 
  :dependencies [[funcool/promesa "8.0.450"]
-                [cljs-bean "1.8.0"]]
+                [cljs-bean "1.9.0"]]
 
  :builds
  {:dctest

src/dctest/expressions.cljs

@@ -2,7 +2,7 @@
 ;; Licensed under EPL 2.0
 
 (ns dctest.expressions
-  (:require [cljs-bean.core :refer [->clj]]
+  (:require [cljs-bean.core :refer [->clj ->js]]
             [clojure.edn :as edn]
             [clojure.pprint :refer [pprint]]
             [clojure.string :as S]
@@ -17,11 +17,21 @@
   #{"env" "process" "step"})
 
 (def stdlib
+  ;; {name {:arity number :fn (fn [context & args] ..)}}
   {
    ;; Test status functions
    "always"  {:arity 0 :fn (constantly true)}
    "success" {:arity 0 :fn #(not (get-in % [:state :failed]))}
    "failure" {:arity 0 :fn #(boolean (get-in % [:state :failed]))}
+
+   ;; Conversion functions
+   "fromJSON" {:arity 1 :fn #(->clj (js/JSON.parse %2) :keywordize-keys false)}
+   "toJSON"   {:arity 1 :fn #(js/JSON.stringify (->js %2))}
+
+   ;; String functions
+   "contains"   {:arity 2 :fn #(S/includes? %2 %3)}
+   "startsWith" {:arity 2 :fn #(S/starts-with? %2 %3)}
+   "endsWith"   {:arity 2 :fn #(S/ends-with? %2 %3)}
    })
 
 (def supported-methods

test/dctest/expressions_test.cljs

@@ -167,6 +167,29 @@
        false {:failed false}
        true {:failed true})
 
+  ;; Conversion functions
+  (are [expected expr] (= expected (expr/read-eval {} expr))
+       "{}"    "toJSON({})"
+       {}      "fromJSON(\"{}\")"
+
+       ;; roundtrip
+       1           "fromJSON(toJSON(1))"
+       {"a" 5}     "fromJSON(toJSON({\"a\": 5}))"
+       "{\"a\":5}" "toJSON(fromJSON(toJSON({\"a\": 5})))"
+       )
+
+   ;; String functions
+  (are [expected expr] (= expected (expr/read-eval {} expr))
+       true  "contains('Hello World', 'World')"
+       false "contains('Hello Worl', 'World')"
+
+       true  "startsWith('Hello World', 'Hello')"
+       false "startsWith('Hello World', 'World')"
+
+       false "endsWith('Hello World', 'Hello')"
+       true  "endsWith('Hello World', 'World')"
+       )
+
   ;; Check function names/args
   (are [text] (thrown-with-msg? js/Error #"Unchecked errors"
                                 (expr/read-eval {:state {:failed false}} text))