tests: Add tests for javascript G-expressions.

* tests/javascript.scm: Import (guix gexp) and (ice-9 match).
(gexp->sexp-rec): New function.
("evaluate parameter reference (without context)", "evaluate parameter
reference with string interpolation (without context)", "evaluate
parameter reference with string interpolation of JSON trees (without
context)", "evaluate parameter reference with node (without context)",
"evaluate parameter reference with string interpolation using
node (without context)", "evaluate parameter reference with string
interpolation of JSON trees using node (without context)"): New tests.

1 files changed, 76 insertions, 0 deletions

diff --git a/tests/javascript.scm b/tests/javascript.scm
index b6c4753..c766ac3 100644
--- a/tests/javascript.scm
+++ b/tests/javascript.scm
@@ -17,9 +17,22 @@
 ;;; along with ravanan.  If not, see <https://www.gnu.org/licenses/>.
 
 (use-modules (srfi srfi-64)
+             (guix gexp)
+             (ice-9 match)
              (ravanan work monads)
              (ravanan javascript))
 
+(define (gexp->sexp-rec exp)
+  "Recursively convert G-expression @var{exp} into an approximate S-expression."
+  (match exp
+    ((? gexp? exp)
+     (gexp->sexp-rec (gexp->approximate-sexp exp)))
+    ((head tail ...)
+     (cons (gexp->sexp-rec head)
+           (map gexp->sexp-rec tail)))
+    (atom
+     atom)))
+
 (test-begin "javascript")
 
 (test-equal "evaluate parameter reference"
@@ -66,4 +79,67 @@
                                     ("bar" . 2))
                                    ("vector" . #(0 1 2 3))))))
 
+(test-equal "evaluate parameter reference (without context)"
+  '(string-join
+    (map (lambda (token)
+           (if (string? token) token (scm->json-string (canonicalize-json token))))
+         (list (json-ref inputs "message" "bar" "foo" 2)))
+    "")
+  (gexp->sexp-rec
+   (evaluate-parameter-reference "$(inputs.message['bar'][\"foo\"][2])")))
+
+(test-equal "evaluate parameter reference with string interpolation (without context)"
+  '(string-join
+    (map (lambda (token)
+           (if (string? token) token (scm->json-string (canonicalize-json token))))
+         (list (json-ref runtime "cores")
+               "foo"
+               (json-ref inputs "threads")
+               (json-ref inputs "output_filename")))
+    "")
+  (gexp->sexp-rec
+   (evaluate-parameter-reference "$(runtime.cores)foo$(inputs.threads)$(inputs.output_filename)")))
+
+(test-equal "evaluate parameter reference with string interpolation of JSON trees (without context)"
+  '(string-join
+    (map (lambda (token)
+           (if (string? token) token (scm->json-string (canonicalize-json token))))
+         (list "foo" (json-ref inputs "vector") (json-ref inputs "object")))
+    "")
+  (gexp->sexp-rec
+   (evaluate-parameter-reference "foo$(inputs.vector)$(inputs.object)")))
+
+(test-equal "evaluate parameter reference with node (without context)"
+  '(string-join
+    (map (lambda (token)
+           (if (string? token) token (scm->json-string (canonicalize-json token))))
+         (list (evaluate-javascript (*approximate*) "(inputs.n + 1)" "")))
+    "")
+  (gexp->sexp-rec
+   (evaluate-parameter-reference "$(inputs.n + 1)")))
+
+(test-equal "evaluate parameter reference with string interpolation using node (without context)"
+  '(string-join
+    (map (lambda (token)
+           (if (string? token) token (scm->json-string (canonicalize-json token))))
+         (list (json-ref runtime "cores")
+               "foo"
+               (evaluate-javascript (*approximate*) "(inputs.threads*2)" "")
+               (json-ref inputs "output_filename")))
+    "")
+  (gexp->sexp-rec
+   (evaluate-parameter-reference "$(runtime.cores)foo$(inputs.threads*2)$(inputs.output_filename)")))
+
+(test-equal "evaluate parameter reference with string interpolation of JSON trees using node (without context)"
+  '(string-join
+    (map (lambda (token)
+           (if (string? token) token (scm->json-string (canonicalize-json token))))
+         (list "foo"
+               (json-ref inputs "vector")
+               (json-ref inputs "object")
+               (evaluate-javascript (*approximate*) "(inputs.object.foo*20)" "")))
+    "")
+  (gexp->sexp-rec
+   (evaluate-parameter-reference "foo$(inputs.vector)$(inputs.object)$(inputs.object.foo*20)")))
+
 (test-end "javascript")