Treat harness more like a facade

src/spectator/expectations/value_expectation_partial.cr

@@ -23,7 +23,7 @@ module Spectator::Expectations
     def to(matcher : Matchers::ValueMatcher(ExpectedType)) : Nil forall ExpectedType
       expectation = ValueExpectation.new(self, matcher)
       result = expectation.eval
-      Internals::Harness.current.reporter.report(result)
+      Internals::Harness.current.report_expectation(result)
     end
 
     # Asserts that the `#actual` value *does not* match some criteria.
@@ -31,7 +31,7 @@ module Spectator::Expectations
     def to_not(matcher : Matchers::ValueMatcher(ExpectedType)) : Nil forall ExpectedType
       expectation = ValueExpectation.new(self, matcher)
       result = expectation.eval(true)
-      Internals::Harness.current.reporter.report(result)
+      Internals::Harness.current.report_expectation(result)
     end
 
     # ditto

src/spectator/internals/harness.cr

@@ -34,12 +34,22 @@ module Spectator::Internals
     # Retrieves the current running example.
     getter example : Example
 
-    # Provides access to the expectation reporter.
+    # Reports the outcome of an expectation.
-    getter reporter = Expectations::ExpectationReporter.new
+    # An exception will be raised when a failing result is given.
+    def report_expectation(result : Expectations::Expectation::Result) : Nil
+      @reporter.report(result)
+    end
+
+    # Generates the reported expectation results from the example.
+    # This should be run after the example has finished.
+    def expectation_results : Expectations::ExpectationResults
+      @reporter.results
+    end
 
     # Creates a new harness.
     # The example the harness is for should be passed in.
     private def initialize(@example)
+      @reporter = Expectations::ExpectationReporter.new
     end
   end
 end

src/spectator/runnable_example.cr

@@ -13,7 +13,7 @@ module Spectator
         group.run_after_each_hooks
         group.run_after_all_hooks
       end
-      expectations = Internals::Harness.current.reporter.results
+      expectations = Internals::Harness.current.expectation_results
       translate_result(result, expectations)
     end