(in-package :cl-user)
 (defpackage cl-yaml-test.emitter
   (:use :cl :fiveam)

   (:import-from :alexandria
                 :alist-hash-table)

   (:export :emitter)
   (:documentation "Emitter tests."))

 (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"))

 
 (define-test-cases (integers)
   (1
    "1")
   (123
    "123")
   (+123
    "123")
   (-123
    "-123"))
 
 (define-test-cases (floats)
   (1.23
    "1.23")
   (6.62607e-34
    "6.62607e-34"))

 
 (define-test-cases (lists)
   ((list 1 2 3)

    "[1, 2, 3]")
   ((vector 1 2 3)

    "[1, 2, 3]"))

 
 (test hash-tables
   (let ((table (alexandria:alist-hash-table
                 (list (cons "a" 1)
                       (cons "b" 2)))))
     (is
      (equal (yaml:emit-to-string table)

             "{ \"b\": 2, \"a\": 1 }"))))

 
 (test toplevel-function
   (is
     (equal (yaml:emit-to-string 1)

            "1"))
   (is
     (equal (with-output-to-string (stream)
              (yaml:emit 1 stream))

            "1")))