diff options
author | Arun Isaac | 2024-10-04 00:33:09 +0100 |
---|---|---|
committer | Arun Isaac | 2024-10-04 16:56:01 +0100 |
commit | 618fcf35d69cfc0cbeaf50dd2229697cb09a1c9c (patch) | |
tree | a947c112930fe6baac58654e8d22f4a504912d4f /tests | |
parent | 1f5a362bfba9b611311d32903fdcd39b14f6f7c3 (diff) | |
download | ravanan-618fcf35d69cfc0cbeaf50dd2229697cb09a1c9c.tar.gz ravanan-618fcf35d69cfc0cbeaf50dd2229697cb09a1c9c.tar.lz ravanan-618fcf35d69cfc0cbeaf50dd2229697cb09a1c9c.zip |
javascript: Implement parameter reference javascript subset language.
* ravanan/javascript.scm, tests/javascript.scm: New files.
* ravanan/command-line-tool.scm: Import (ravanan javascript).
(coerce-expression): Use evaluate-simple-parameter-reference.
(interpolate-parameter-references)[tokenize]: Move to (ravanan
javascript) as tokenize-parameter-references.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/javascript.scm | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/tests/javascript.scm b/tests/javascript.scm new file mode 100644 index 0000000..5f23153 --- /dev/null +++ b/tests/javascript.scm @@ -0,0 +1,53 @@ +;;; ravanan --- High-reproducibility CWL runner powered by Guix +;;; Copyright © 2024 Arun Isaac <arunisaac@systemreboot.net> +;;; +;;; This file is part of ravanan. +;;; +;;; ravanan is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; ravanan is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with ravanan. If not, see <https://www.gnu.org/licenses/>. + +(use-modules (srfi srfi-64) + (ravanan work monads) + (ravanan javascript)) + +(test-begin "javascript") + +(test-equal "evaluate parameter reference" + "c" + (from-maybe + (evaluate-simple-parameter-reference "$(inputs.message['bar'][\"foo\"][2])" + '(("inputs" ("message" ("bar" ("foo" . #("a" "b" "c" "d"))))))) + #f)) + +(test-equal "evaluate parameter reference with string interpolation" + "24foo12foobar" + (from-maybe + (evaluate-simple-parameter-reference "$(runtime.cores)foo$(inputs.threads)$(inputs.output_filename)" + '(("inputs" + ("threads" . 12) + ("output_filename" . "foobar")) + ("runtime" ("cores" . 24)))) + #f)) + +(test-equal "evaluate parameter reference with string interpolation of JSON trees" + "foo[0,1,2,3]{\"bar\":2,\"foo\":1}" + (from-maybe + (evaluate-simple-parameter-reference "foo$(inputs.vector)$(inputs.object)" + '(("inputs" + ("object" + ("foo" . 1) + ("bar" . 2)) + ("vector" . #(0 1 2 3))))) + #f)) + +(test-end "javascript") |