(in-package :cl-user)
(defpackage cl-yaml-test.bench
  (:use :cl :fiveam)
  (:export :bench)
  (:documentation "Benchmarks."))
(in-package :cl-yaml-test.bench)

;;; Utilities

(defmacro bench (string)
  `(finishes
     (format t "~%Benchmarking: ~S" ,string)
     (time
      (benchmark:with-timing (1000)
        (yaml:parse ,string)))))


;;; Tests

(def-suite bench
  :description "Benchmarking.")
(in-suite bench)

(test scalar
  (bench "123")
  (bench "1.234")
  (bench "test")
  (bench "null")
  (bench "[1, 2, 3]")
  (bench "{ a: 1, b: 2}"))