19 lines
801 B
Clojure
19 lines
801 B
Clojure
|
(ns babashka.yaml-test
|
||
|
|
(:require [babashka.test-utils :as test-utils]
|
||
|
|
[clojure.string :as str]
|
||
|
|
[clojure.test :refer [deftest is testing]]))
|
||
|
|
|
||
|
|
(def simple-yaml-str "topic: [point 1, point 2]")
|
||
|
|
|
||
|
|
(deftest yaml-edn-read-test
|
||
|
|
(let [parsed-edn (test-utils/bb nil (str "(yaml/parse-string \"" simple-yaml-str "\")"))
|
||
|
|
emitted-yaml (test-utils/bb parsed-edn "(yaml/generate-string *input*)")]
|
||
|
|
(is (every? #(str/includes? emitted-yaml %) ["topic:" "point 1" "point 2"]))))
|
||
|
|
|
||
|
|
(def round-trip-prog
|
||
|
|
(str "(yaml/generate-string (read-string (pr-str (yaml/parse-string \"" simple-yaml-str "\"))))"))
|
||
|
|
|
||
|
|
(deftest yaml-data-readers-test
|
||
|
|
(let [emitted-yaml (test-utils/bb nil round-trip-prog)]
|
||
|
|
(is (every? #(str/includes? emitted-yaml %) ["topic:" "point 1" "point 2"]))))
|