Add ability to mark example skipped/pending mid-test

src/spectator/dsl/expectations.cr

@@ -1,4 +1,5 @@
 require "../block"
+require "../example_pending"
 require "../expectation"
 require "../expectation_failed"
 require "../location"
@@ -13,6 +14,18 @@ module Spectator::DSL
       raise ExpectationFailed.new(Location.new(_file, _line), message)
     end
 
+    # Mark the current test as pending and immediately abort.
+    # A reason can be specified with *message*.
+    def pending(message = "No reason given")
+      raise ExamplePending.new(message)
+    end
+
+    # Mark the current test as skipped and immediately abort.
+    # A reason can be specified with *message*.
+    def skip(message = "No reason given")
+      raise ExamplePending.new(message)
+    end
+
     # Starts an expectation.
     # This should be followed up with `Assertion::Target#to` or `Assertion::Target#to_not`.
     # The value passed in will be checked to see if it satisfies the conditions of the specified matcher.

src/spectator/example_pending.cr

@@ -0,0 +1,6 @@
+module Spectator
+  # Exception that indicates an example is pending and should be skipped.
+  # When raised within a test, the test should abort.
+  class ExamplePending < Exception
+  end
+end

src/spectator/harness.cr

@@ -1,4 +1,5 @@
 require "./error_result"
+require "./example_pending"
 require "./expectation"
 require "./mocks"
 require "./pass_result"
@@ -119,6 +120,8 @@ module Spectator
         PassResult.new(elapsed, @expectations)
       when ExpectationFailed
         FailResult.new(elapsed, error, @expectations)
+      when ExamplePending
+        PendingResult.new(elapsed, @expectations)
       else
         ErrorResult.new(elapsed, error, @expectations)
       end