Don't print expected failures in "failures" report

Fixes dylan-lang#99
cgay · Sep 30, 2023 · 6d4d5f2 · 6d4d5f2
1 parent a89ee44
commit 6d4d5f2
Showing 1 changed file with 7 additions and 5 deletions.
diff --git 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);