Commit 41afa2da authored by Daniel Kochmański's avatar Daniel Kochmański

complex-float: add some tests

Most of things is covered in ANSI-TESTS anway, these are just smoke
tests for some functionality and taking into account internal
implementation details.
parent 044858cf
......@@ -206,12 +206,17 @@
"Assert that `body' signals a condition of type `condition'."
`(%signals ',condition (lambda () ,form) ,@args))
(defmacro finishes (form)
`(handler-case (progn
,form
(passed))
(serious-condition (c)
(failed (make-condition 'test-failure
:name *test-name*
:format-control "Expected to finish, but got ~s"
:format-arguments (list (type-of c)))))))
(defmacro finishes (form &rest args)
(if args
`(handler-case (progn ,form (passed))
(serious-condition (c)
(failed (make-condition 'test-failure
:name *test-name*
:format-control ,(car args)
:format-arguments (list ,@(cdr args))))))
`(handler-case (progn ,form (passed))
(serious-condition (c)
(failed (make-condition 'test-failure
:name *test-name*
:format-control "Expected to finish, but got ~s"
:format-arguments (list (type-of c))))))))
......@@ -24,7 +24,8 @@
(:file "ieee-fp" :if-feature :ieee-floating-point)
(:file "package-extensions")
(:file "hash-tables")
(:file "external-formats" :if-feature :unicode)))
(:file "external-formats" :if-feature :unicode)
(:file "complex")))
(:module stress-tests
:default-component-class asdf:cl-source-file.lsp
:components
......
......@@ -22,7 +22,7 @@
;;;; Declare the suites
(suite 'ecl-tests
'(executable ieee-fp eprocess package-ext hash-tables ansi+ mixed
cmp emb ffi mop mp run-program eformat))
cmp emb ffi mop mp run-program eformat complex))
(suite 'make-check
'(executable ieee-fp eprocess package-ext hash-tables ansi+ mixed
......
This diff is collapsed.
......@@ -157,7 +157,7 @@
#C(1.0l0 6.0f0)
#C(1.0l0 7.0d0)
#C(1/2 1/3)
))
#C(42 12)))
(defparameter *numbers*
(append *integers*
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment