guile-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: srfi 64 vs guile.


From: Per Bothner
Subject: Re: srfi 64 vs guile.
Date: Fri, 11 Aug 2006 22:48:36 -0700
User-agent: Thunderbird 1.5.0.2 (X11/20060501)

r. clayton wrote:

I ran guile on a debian testing system updated weekly and did

  $ guile
  guile> (version)
  "1.6.8"
  guile> (load "srfi-64.scm")
  guile> (load "t.scm")
  %%%% Starting test vec-test  (Writing full log to "vec-test.log")
  FAIL
  # of expected passes      2
  # of unexpected failures  1

Oops.  My fault.  Please try the attached patch.
--
        --Per Bothner
address@hidden   http://per.bothner.com/
Index: testing.scm
===================================================================
--- testing.scm (revision 5381)
+++ testing.scm (working copy)
@@ -646,7 +646,6 @@
      (let ()
        (if (%test-on-test-begin r)
           (let ()
-            (test-result-set! r 'expected-value exp)
             (let ((res (%test-evaluate-with-catch expr)))
               (test-result-set! r 'actual-value res)
               (%test-on-test-end r res))))
@@ -725,11 +724,11 @@
        (let* ((r (test-runner-get))
              (name tname))
         (test-result-alist! r '((test-name . tname)))
-        (%test-comp1body r expr)))
+        (%test-comp1body r test-expression)))
       ((test-assert test-expression)
        (let* ((r (test-runner-get)))
         (test-result-alist! r '())
-        (%test-comp1body r expr)))))
+        (%test-comp1body r test-expression)))))
   (define-syntax %test-comp2
     (syntax-rules ()
       ((%test-comp2 comp tname expected expr)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]