/usr/share/acl2-8.0dfsg/books/make-event/test-case.lisp is in acl2-books-source 8.0dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | ; Copyright (C) 2013, Regents of the University of Texas
; Written by Matt Kaufmann
; License: A 3-clause BSD license. See the LICENSE file distributed with ACL2.
; Sandip Ray suggested that we might want to be able to evaluate arbitrary
; forms, but in this file, test-case should be applied to forms that return a
; single non-stobj value.
(in-package "ACL2")
(include-book "misc/assert" :dir :system)
(defmacro test-case (form &key (expected 'nil expected-p))
(let ((form (if expected-p
`(equal ,form ,expected)
form)))
(list 'assert! form)))
#| ; A more direct definition, not using the assert!.
(defmacro test-case (form &key (expected 'nil expected-p))
`(make-event
(let ((ans ,form)
(expected ,expected))
(if (or (null ,expected-p)
(equal ans expected))
(value `(value-triple ,ans))
(er soft 'test-case
"TEST-CASE expected ~y0, got ~y1."
expected ans)))))
|# ; |
(test-case (+ 3 4))
(test-case (+ 3 4) :expected 7)
(must-fail
(test-case (+ 3 4) :expected 8))
(test-case (equal (+ 3 4) 7))
(must-fail
(test-case (equal (+ 3 4) 8)))
|