|
Last change
on this file was
15279,
checked in by Mark Evenson, 4 years ago
|
|
t: Test arithmetic for operands and operations
|
|
File size:
364 bytes
|
| Line | |
|---|
| 1 | ;;; <https://github.com/armedbear/abcl/issues/177> |
|---|
| 2 | |
|---|
| 3 | (prove:plan 2) ;;; why is this two tests? |
|---|
| 4 | |
|---|
| 5 | (prove:is |
|---|
| 6 | (let ((condition (handler-case (/ 6 0) (division-by-zero (c) c))) |
|---|
| 7 | result) |
|---|
| 8 | (and |
|---|
| 9 | (arithmetic-error-operands condition) |
|---|
| 10 | (arithmetic-error-operation condition))) |
|---|
| 11 | t |
|---|
| 12 | "DIVISION-BY-ZERO problems with operands and operation") |
|---|
| 13 | |
|---|
| 14 | (prove:finalize) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
