Filtering...

constant-value-tests

books/std/system/constant-value-tests

Included Books

constant-value assert-equal must-succeed-star
other
(in-package "ACL2")
include-book
(include-book "constant-value")
include-book
(include-book "std/testing/assert-equal" :dir :system)
include-book
(include-book "std/testing/must-succeed-star" :dir :system)
other
(assert-equal (constant-value '*primitive-formals-and-guards* (w state))
  *primitive-formals-and-guards*)
other
(must-succeed* (defconst *c* 17)
  (assert-equal (constant-value '*c* (w state)) 17))
other
(must-succeed* (defconst *c* ''6)
  (assert-equal (constant-value '*c* (w state)) ''6))