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

   (:export :spec)
   (:documentation "Run tests from the specification."))

 (in-package :cl-yaml-test.spec)
 
 (def-suite spec
   :description "Test cases from the spec.")
 (in-suite spec)
 
 (defun parse-corresponding-file (yaml-file)
   (let ((json-file (make-pathname :defaults yaml-file
                                   :type "json")))
     (yason:parse json-file)))
 
 (test spec-tests
   (let ((directories (fad:list-directory
                       (asdf:system-relative-pathname :cl-yaml-test
                                                      #p"t/data/"))))
     (loop for directory in directories do
       (loop for file in (uiop:directory-files directory) do
         (when (string= (pathname-type file) "yaml")
           (format t "~%Spec: ~A" (pathname-name file))
           (let ((data (yaml:parse file))
                 (json-data (parse-corresponding-file file)))
             (is-true
              (generic-comparability:equals data json-data))))))))