(defpackage :pegrep-tests
  (:use :cl :fiveam)
  (:export :run!
	       :all-tests
	       :test-quasi))

(in-package :pegrep-tests)

(def-suite all-tests
    :description "The master suite of all pegrep tests.")

(in-suite all-tests)

(defun test-pegrep ()
  (run! 'all-tests))

(test canary-test
      (is (eq 1 1)
          "Something is really wrong, the tests aren't working..."))

;; (test inverse-canary-test
;;       (is (eq 1 0)
;;           "This failure is expected!"))