new file mode 100644

@@ -0,0 +1,10 @@

+(defsystem cl-yaml-test

+  :author "Fernando Borretti <eudoxiahp@gmail.com>"

+  :license "MIT"

+  :depends-on (:cl-yaml

+               :fiveam)

+  :components ((:module "t"

+                :serial t

+                :components

+                ((:file "parser")

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

new file mode 100644

@@ -0,0 +1,6 @@

+(in-package :cl-user)

+(defpackage cl-yaml-test

+  (:use :cl :fiveam))

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

+

+(run! 'cl-yaml-test.parser:parser)

new file mode 100644

@@ -0,0 +1,14 @@

+(in-package :cl-user)

+(defpackage cl-yaml-test.parser

+  (:use :cl :fiveam)

+  (:export :parser))

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

+

+(def-suite parser

+  :description "YAML parser tests.")

+(in-suite parser)

+

+(test lists

+  (is

+   (equal (yaml.parser:parse "[a, b, c]")

+          (list :document (list "a" "b" "c")))))