From 6d4d5f273b01d85dd970b888df7b0c554c1477ea Mon Sep 17 00:00:00 2001
From: Carl Gay <carlgay@gmail.com>
Date: Sat, 30 Sep 2023 21:21:01 +0000
Subject: [PATCH] Don't print expected failures in "failures" report

Fixes #99
---
 reports.dylan | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/reports.dylan b/reports.dylan
index 71c295a..eff568e 100644
--- a/reports.dylan
+++ b/reports.dylan
@@ -258,11 +258,13 @@ end method;
 define method print-failures-report
     (result :: <result>, stream :: <stream>) => ()
   if (result.result-status ~= $passed)
-    print-result-info (result, stream,
-                       test: method (result)
-                               let status = result.result-status;
-                               status ~== $passed & status ~== $skipped
-                             end);
+    print-result-info(result, stream,
+                      test: method (result)
+                              select (result.result-status)
+                                $passed, $skipped, $expected-failure => #f;
+                                otherwise => #t;
+                              end
+                            end);
     format(stream, "\n");
   end;
   print-summary-report(result, stream);