Implement fail-fast in runner

Report tracks number of omitted tests due to abort.

spec/report_spec.cr

@@ -71,6 +71,15 @@ describe Spectator::Report do
     end
   end
 
+  describe "#remaining_count" do
+    it "is the expected value" do
+      results = [] of Spectator::Result
+      remaining = 5
+      report = Spectator::Report.new(results, Time::Span.zero, remaining)
+      report.remaining_count.should eq(remaining)
+    end
+  end
+
   describe "#failed?" do
     context "with a failed test suite" do
       it "is true" do
@@ -87,6 +96,24 @@ describe Spectator::Report do
     end
   end
 
+  describe "#remaining?" do
+    context "with remaining tests" do
+      it "is true" do
+        results = [] of Spectator::Result
+        report = Spectator::Report.new(results, Time::Span.zero, 5)
+        report.remaining?.should be_true
+      end
+    end
+
+    context "without remaining tests" do
+      it "is false" do
+        results = [] of Spectator::Result
+        report = Spectator::Report.new(results, Time::Span.zero, 0)
+        report.remaining?.should be_false
+      end
+    end
+  end
+
   describe "#failures" do
     it "returns the expected results" do
       results = Array.new(5) { new_failure_result.as(Spectator::Result) }

spec/runner_spec.cr

@@ -1,9 +1,10 @@
 require "./spec_helper"
 
 # Creates a `Config` for Spectator that is suited for testing it.
-def spectator_test_config(formatter : Spectator::Formatting::Formatter? = nil)
+def spectator_test_config(formatter : Spectator::Formatting::Formatter? = nil, fail_fast = false)
   builder = Spectator::ConfigBuilder.new
   builder.formatter = formatter || Spectator::Formatting::SilentFormatter.new
+  builder.fail_fast = fail_fast
   builder.build
 end
 
@@ -26,6 +27,34 @@ describe Spectator::Runner do
       called.should eq([0, 1, 2, 3, 4])
     end
 
+    context "with fail-fast enabled" do
+      it "stops on the first failure" do
+        called = [] of Int32
+        group = SpyExample.create_group(10) do |index|
+          called << index
+          raise "Failure" if index > 5
+        end
+        suite = Spectator::TestSuite.new(group)
+        runner = Spectator::Runner.new(suite, spectator_test_config(fail_fast: true))
+        runner.run
+        called.should eq([0, 1, 2, 3, 4, 5, 6])
+      end
+
+      context "the report" do
+        it "has the remaining tests" do
+          spy = SpyFormatter.new
+          group = SpyExample.create_group(10) do |index|
+            raise "Failure" if index > 5
+          end
+          suite = Spectator::TestSuite.new(group)
+          runner = Spectator::Runner.new(suite, spectator_test_config(spy, true))
+          runner.run
+          report = spy.end_suite_calls.first
+          report.remaining_count.should eq(3)
+        end
+      end
+    end
+
     context "the formatter" do
       it "#start_suite is called once" do
         spy = SpyFormatter.new