From 33f7ee3eb4cca7714af50924bc47bd9e533f98c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= <mkoeppe@mail.math.uni-magdeburg.de>
Date: Tue, 3 Jun 2003 22:13:23 +0000
Subject: [PATCH] Fix tests.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4859 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 .../test-suite/guile/list_vector_runme.scm    | 35 ++++++++++---------
 Examples/test-suite/list_vector.i             |  4 +--
 2 files changed, 21 insertions(+), 18 deletions(-)

diff --git a/Examples/test-suite/guile/list_vector_runme.scm b/Examples/test-suite/guile/list_vector_runme.scm
index c5ffa0784..d062b7a65 100644
--- a/Examples/test-suite/guile/list_vector_runme.scm
+++ b/Examples/test-suite/guile/list_vector_runme.scm
@@ -3,26 +3,29 @@
 ;; current module.  That's enough for such a simple test.
 (dynamic-call "scm_init_list_vector_module" (dynamic-link "./liblist_vector.so"))
 
-(define-macro (check form)
-  `(if (not ,form)
-       (error "Check failed: " ',form)))
+(define-macro (check-equality form1 form2)
+  `(let ((result1 ,form1)
+	 (result2 ,form2))
+     (if (not (equal? result1 result2))
+	 (error "Check failed:"
+		(list 'equal? ',form1 ',form2)
+		result1 result2))))
 
-(check (= (sum-list '(1 3 4 6 7)) 21))
-(check (= (sum-vector #(2 4 6 7 9)) 28))
-(check (equal? (one-to-seven-list) '(1 2 3 4 5 6 7)))
-(check (equal? (one-to-seven-vector) #(1 2 3 4 5 6 7)))
+(check-equality (sum-list '(1 3 4 6 7)) 21.0)
+(check-equality (sum-vector #(2 4 6 7 9)) 28.0)
+(check-equality (one-to-seven-list) '(1 2 3 4 5 6 7))
+(check-equality (one-to-seven-vector) #(1 2 3 4 5 6 7))
 
-(check (= (sum-list2 '(1 3 4 6 7)) 21))
-(check (= (sum-vector2 #(2 4 6 7 9)) 28))
-(check (equal? (one-to-seven-list2) '(1 2 3 4 5 6 7)))
-(check (equal? (one-to-seven-vector2) #(1 2 3 4 5 6 7)))
+(check-equality (sum-list2 '(1 3 4 6 7)) 21.0)
+(check-equality (sum-vector2 #(2 4 6 7 9)) 28.0)
+(check-equality (one-to-seven-list2) '(1 2 3 4 5 6 7))
+(check-equality (one-to-seven-vector2) #(1 2 3 4 5 6 7))
 
-(check (= (sum-lists '(1 2 3) '(4 5 6) '(7 8 9)) 45.0))
-(check (= (sum-lists2 '(1 2 3) '(4 5 6) '(7 8 9)) 45.0))
-(check (equal? (call-with-values produce-lists list)
+(check-equality (sum-lists '(1 2 3) '(4 5 6) '(7 8 9)) 45.0)
+(check-equality (sum-lists2 '(1 2 3) '(4 5 6) '(7 8 9)) 45.0)
+(check-equality (call-with-values produce-lists list)
 	       '(#(0 1 2 3 4)
 		 #(0 1 4 9 16)
-		 #(0.0 1.5 3.0 4.5 6.0))))
-
+		 #(0.0 1.5 3.0 4.5 6.0)))
 
 (exit 0)
diff --git a/Examples/test-suite/list_vector.i b/Examples/test-suite/list_vector.i
index 244d10a0a..7f907d4f5 100644
--- a/Examples/test-suite/list_vector.i
+++ b/Examples/test-suite/list_vector.i
@@ -114,7 +114,7 @@ double sum_lists(int len,
 		 int *list3)
 {
   int i;
-  double sum;
+  double sum = 0.0;
   for (i = 0; i<len; i++)
     sum += (list1[i] + list2[i] + list3[i]);
   return sum;
@@ -126,7 +126,7 @@ double sum_lists2(size_t len,
 		  int *list3)
 {
   size_t i;
-  double sum;
+  double sum = 0.0;
   for (i = 0; i<len; i++)
     sum += (list1[i] + list2[i] + list3[i]);
   return sum;