[#263] add more clj-yaml functions, run tests from source
This commit is contained in:
parent
26473b8a42
commit
7fa410b404
4 changed files with 30 additions and 2 deletions
23
script/lib_tests/clj_yaml_tests
Executable file
23
script/lib_tests/clj_yaml_tests
Executable file
|
|
@ -0,0 +1,23 @@
|
||||||
|
#!/usr/bin/env bash
|
||||||
|
|
||||||
|
set -eo pipefail
|
||||||
|
|
||||||
|
if [ "$BABASHKA_TEST_ENV" = "native" ]; then
|
||||||
|
BB_CMD="./bb"
|
||||||
|
else
|
||||||
|
BB_CMD="lein bb"
|
||||||
|
fi
|
||||||
|
|
||||||
|
$BB_CMD -e "
|
||||||
|
(require '[clojure.java.io :as io])
|
||||||
|
(def test-file (io/file (System/getProperty \"java.io.tmpdir\") \"core_test.clj\"))
|
||||||
|
(io/copy
|
||||||
|
(io/input-stream \"https://raw.githubusercontent.com/clj-commons/clj-yaml/master/test/clj_yaml/core_test.clj\")
|
||||||
|
test-file)
|
||||||
|
(load-file test-file)
|
||||||
|
(require '[clojure.test :as t])
|
||||||
|
(let [{:keys [:test :pass :fail :error]} (t/run-tests 'clj-yaml.core-test)]
|
||||||
|
(when-not (pos? test)
|
||||||
|
(System/exit 1))
|
||||||
|
(System/exit (+ fail error)))
|
||||||
|
"
|
||||||
|
|
@ -12,3 +12,4 @@ script/lib_tests/babashka_curl_test
|
||||||
script/lib_tests/cprop_test
|
script/lib_tests/cprop_test
|
||||||
script/lib_tests/comb_test
|
script/lib_tests/comb_test
|
||||||
script/lib_tests/arrangement_test
|
script/lib_tests/arrangement_test
|
||||||
|
script/lib_tests/clj_yaml_test
|
||||||
|
|
|
||||||
|
|
@ -112,7 +112,9 @@
|
||||||
java.util.zip.InflaterInputStream
|
java.util.zip.InflaterInputStream
|
||||||
java.util.zip.DeflaterInputStream
|
java.util.zip.DeflaterInputStream
|
||||||
java.util.zip.GZIPInputStream
|
java.util.zip.GZIPInputStream
|
||||||
java.util.zip.GZIPOutputStream]
|
java.util.zip.GZIPOutputStream
|
||||||
|
org.yaml.snakeyaml.error.YAMLException
|
||||||
|
]
|
||||||
:constructors [clojure.lang.Delay
|
:constructors [clojure.lang.Delay
|
||||||
clojure.lang.MapEntry
|
clojure.lang.MapEntry
|
||||||
clojure.lang.LineNumberingPushbackReader
|
clojure.lang.LineNumberingPushbackReader
|
||||||
|
|
|
||||||
|
|
@ -7,5 +7,7 @@
|
||||||
(def yns (vars/->SciNamespace 'clj-yaml.core nil))
|
(def yns (vars/->SciNamespace 'clj-yaml.core nil))
|
||||||
|
|
||||||
(def yaml-namespace
|
(def yaml-namespace
|
||||||
{'generate-string (copy-var yaml/generate-string yns)
|
{'mark (copy-var yaml/mark yns)
|
||||||
|
'unmark (copy-var yaml/unmark yns)
|
||||||
|
'generate-string (copy-var yaml/generate-string yns)
|
||||||
'parse-string (copy-var yaml/parse-string yns)})
|
'parse-string (copy-var yaml/parse-string yns)})
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue