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
|
; Standard Testing Library
;
; Copyright (C) 2020 Kestrel Institute (http://www.kestrel.edu)
;
; License: A 3-clause BSD license. See the LICENSE file distributed with ACL2.
;
; Authors:
; Alessandro Coglio (coglio@kestrel.edu)
; Eric Smith (eric.smith@kestrel.edu)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(in-package "ACL2")
(include-book "assert-qmark")
(include-book "std/testing/assert-equal" :dir :system)
(include-book "std/testing/must-fail" :dir :system)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(assert-equal (assert? t 444) 444)
(assert-equal (assert? t 444 'my-ctx "my msg") 444)
(assert-equal (assert? t 444 'my-ctx (msg "my ~@0" "msg")) 444)
(assert-equal (let ((x 4) (y 3)) (assert? (> x y) 444)) 444)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(must-fail
(progn (value-triple (assert? nil 444))))
(must-fail
(progn (value-triple (assert? nil 444 'my-ctx "my msg"))))
(must-fail
(progn (value-triple (assert? nil 444 'my-ctx (msg "my ~@0" "msg")))))
(must-fail
(progn (value-triple (let ((x 4) (y 3)) (assert? (< x y) 444)))))
|
