new file mode 100644

@@ -0,0 +1,9 @@

+(defsystem cl-yaml-test

+  :author "Fernando Borretti"

+  :license "MIT"

+  :depends-on (:cl-yaml

+               :fiveam)

+  :components ((:module "t"

+                :components

+                ((:file "cl-yaml"))))

+  :perform (load-op :after (op c) (asdf:clear-system c)))

new file mode 100644

@@ -0,0 +1,39 @@

+(defpackage cl-yaml-test

+  (:use :cl

+        :fiveam

+        :cffi

+        :yaml))

+(in-package :cl-yaml-test)

+

+(def-suite basic

+  :description "firing up a parser, setting input to something, etc.")

+

+(test (string-input nil basic)

+  (is (yaml::with-string-input "derp" 4)))

+

+(def-suite list

+  :description "Parsing lists")

+

+(test (flat-int nil list)

+  (is (equal (yaml:parse "[1,2,3]") (list 1 2 3))))

+

+(test (flat-str nil list)

+  (is (equal (yaml:parse "[\"foo\",\"bar\"]") (list "foo" "bar"))))

+

+(test (nested nil list)

+  (is (equal (yaml:parse "[[a,1],[b,2],[c,3]]") (list (list "a" 1)

+						      (list "b" 2)

+						      (list "c" 3)))))

+

+(def-suite map

+  :description "Parsing maps")

+

+(test (flat-map nil map)

+  (is (equal (yaml:parse "{a : 1, b : 2, c : 3}")

+	     (let ((hash (make-hash-table :test #'equalp)))

+	       (setf (gethash "a" hash) 1

+		     (gethash "b" hash) 2

+		     (gethash "c" hash) 3)

+	       hash))))

+

+(run!)