@@ -9,4 +9,5 @@

                 ((:file "float")

                  (:file "scalar")

                  (:file "parser")

+                 (:file "emitter")

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

@@ -6,3 +6,4 @@

 (run! 'cl-yaml-test.float:float)

 (run! 'cl-yaml-test.scalar:scalar)

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

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

new file mode 100644

@@ -0,0 +1,25 @@

+(in-package :cl-user)

+(defpackage cl-yaml-test.emitter

+  (:use :cl :fiveam)

+  (:export :emitter))

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

+

+;;; Macros

+

+(defmacro define-test-cases ((name) &rest pairs)

+  `(test ,name

+     ,@(loop for (form string) in pairs collecting

+         `(is (equal (yaml.emitter:emit-to-string ,form)

+                     ,string)))))

+

+;;; Tests

+

+(def-suite emitter

+  :description "YAML emitter tests.")

+(in-suite emitter)

+

+(define-test-cases (boolean)

+  (t

+   "true")

+  (nil

+   "false"))

@@ -1,6 +1,8 @@

 (in-package :cl-user)

 (defpackage cl-yaml-test.parser

   (:use :cl :fiveam)

+  (:import-from :alexandria

+                :alist-hash-table)

   (:export :parser))

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