From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sun, 29 Nov 2015 18:17:33 +0000 (-0600)
Subject: Fix tests to check for equality
X-Git-Tag: v0.1.0~32
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=3aaecc5f55f9b340ff21f5a3dd4a374eb1d8d42f

Fix tests to check for equality

* tests/test-agenda.scm: Tests were checking for test-assert
  where they should have been checking for test-equal.
---

diff --git a/tests/test-agenda.scm b/tests/test-agenda.scm
index 628fb1e..922b2d3 100644
--- a/tests/test-agenda.scm
+++ b/tests/test-agenda.scm
@@ -393,23 +393,23 @@
   (enq! q local-func-gets-break)
   (start-agenda (make-agenda #:queue q)
                 #:stop-condition (true-after-n-times 10))
-  (test-assert (speaker)
-               '("Time for exception fun!\n"
-                 "Here we go...\n"
-                 "in here now!\n"
-                 "Well that was fun :)\n")))
+  (test-equal (speaker)
+              '("Time for exception fun!\n"
+                "Here we go...\n"
+                "in here now!\n"
+                "Well that was fun :)\n")))
 
 (let ((q (make-q)))
   (set! speaker (speak-it))
   (enq! q (wrap (local-func-gets-break #:with-indirection #t)))
   (start-agenda (make-agenda #:queue q)
                 #:stop-condition (true-after-n-times 10))
-  (test-assert (speaker)
-               '("Time for exception fun!\n"
-                 "bebop\n"
-                 "Here we go...\n"
-                 "in here now!\n"
-                 "Well that was fun :)\n")))
+  (test-equal (speaker)
+              '("Time for exception fun!\n"
+                "bebop\n"
+                "Here we go...\n"
+                "in here now!\n"
+                "Well that was fun :)\n")))
 
 ;; Make sure catching tools work