assert: Clean up tests, update license
This commit is contained in:
parent
9ef3cb2c2e
commit
b9ac8323a0
|
|
@ -1,5 +1,5 @@
|
||||||
;; SPDX-License-Identifier: AGPL-3.0
|
;; SPDX-License-Identifier: AGPL-3.0-or-later
|
||||||
;; Version: 1.0.0
|
;; Version: 1.0.1
|
||||||
;; Description: Assert
|
;; Description: Assert
|
||||||
;; Additional Libraries: retropikzel/assert/warning.sld retropikzel/assert/ignore.sld
|
;; Additional Libraries: retropikzel/assert/warning.sld retropikzel/assert/ignore.sld
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,6 @@
|
||||||
(scheme write)
|
(scheme write)
|
||||||
(scheme read)
|
(scheme read)
|
||||||
(retropikzel tap)
|
(retropikzel tap)
|
||||||
(retropikzel debug)
|
|
||||||
(retropikzel assert)
|
(retropikzel assert)
|
||||||
(srfi 64))
|
(srfi 64))
|
||||||
|
|
||||||
|
|
@ -15,8 +14,6 @@
|
||||||
(assert integer? b "b must be integer")
|
(assert integer? b "b must be integer")
|
||||||
(+ a b))
|
(+ a b))
|
||||||
|
|
||||||
(write (plus 5 5))
|
|
||||||
(newline)
|
|
||||||
(test-equal 10 (plus 5 5))
|
(test-equal 10 (plus 5 5))
|
||||||
|
|
||||||
(test-equal 'error
|
(test-equal 'error
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue