From edc52ec1b055cd0effef463936fc54e6db94c20a Mon Sep 17 00:00:00 2001
From: Mark Evenson <evenson.not.org@gmail.com>
Date: Fri, 20 Sep 2024 22:24:47 +0200
Subject: [PATCH] t: cleanup arithmetic test

---
 t/arithmetic.lisp | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/t/arithmetic.lisp b/t/arithmetic.lisp
index 886df8fe0..bf037eefe 100644
--- a/t/arithmetic.lisp
+++ b/t/arithmetic.lisp
@@ -1,14 +1,16 @@
 ;;; <https://github.com/armedbear/abcl/issues/177>
 
-(prove:plan 2) ;;; why is this two tests?  
+(prove:plan 1) 
 
-(prove:is
- (let ((condition (handler-case (/ 6 0) (division-by-zero (c) c)))
-       result)
-   (and 
-    (arithmetic-error-operands condition)
-    (arithmetic-error-operation condition)))
- t
+(prove:ok
+ (let ((condition (handler-case (/ 6 0) (division-by-zero (c) c))))
+   (and
+    (equal 
+     (arithmetic-error-operands condition)
+     '(6 0))
+    (equal 
+     (arithmetic-error-operation condition)
+     '/)))
  "DIVISION-BY-ZERO problems with operands and operation")
 
 (prove:finalize)