23 lines
481 B
Common Lisp
23 lines
481 B
Common Lisp
(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!"))
|