@@ -1,7 +1,8 @@

 (in-package :cl-user)

 (defpackage cl-yaml-test.bench

   (:use :cl :fiveam)

-  (:export :bench))

+  (:export :bench)

+  (:documentation "Benchmarks."))

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

 ;;; Utilities

@@ -9,8 +10,9 @@

 (defmacro bench (string)

   `(finishes

      (format t "~%Benchmarking: ~S" ,string)

-     (benchmark:with-timing 1000

-       (yaml:parse ,string))))

+     (time

+      (benchmark:with-timing (1000)

+        (yaml:parse ,string)))))

 ;;; Tests

@@ -1,6 +1,7 @@

 (in-package :cl-user)

 (defpackage cl-yaml-test

-  (:use :cl :fiveam))

+  (:use :cl :fiveam)

+  (:documentation "Run all test suites."))

 (in-package :cl-yaml-test)

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

@@ -3,7 +3,8 @@

   (:use :cl :fiveam)

   (:import-from :alexandria

                 :alist-hash-table)

-  (:export :emitter))

+  (:export :emitter)

+  (:documentation "Emitter tests."))

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

 ;;; Macros

@@ -1,7 +1,8 @@

 (in-package :cl-user)

 (defpackage cl-yaml-test.float

   (:use :cl :fiveam)

-  (:export :float))

+  (:export :float)

+  (:documentation "Test floating-point number support."))

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

 (def-suite float

@@ -3,7 +3,8 @@

   (:use :cl :fiveam)

   (:import-from :alexandria

                 :alist-hash-table)

-  (:export :parser))

+  (:export :parser)

+  (:documentation "Parser tests."))

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

 (def-suite parser

@@ -1,7 +1,8 @@

 (in-package :cl-user)

 (defpackage cl-yaml-test.scalar

   (:use :cl :fiveam)

-  (:export :scalar))

+  (:export :scalar)

+  (:documentation "Scalar parsing tests."))

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

 ;;; Macros

@@ -1,7 +1,8 @@

 (in-package :cl-user)

 (defpackage cl-yaml-test.spec

   (:use :cl :fiveam)

-  (:export :spec))

+  (:export :spec)

+  (:documentation "Run tests from the specification."))

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

 (def-suite spec