shard-spectator/spec/internals/harness_spec.cr

require "../spec_helper"

describe Spectator::Internals::Harness do
  describe "#run" do
    it "runs an example" do
      run_count = 0
      spy = SpyExample.create do
        run_count += 1
      end
      Spectator::Internals::Harness.run(spy)
      run_count.should eq(1)
    end

    context "with a passing exmaple" do
      it "returns a passing result" do
        example = PassingExample.create
        result = Spectator::Internals::Harness.run(example)
        result.should be_a(Spectator::SuccessfulResult)
      end
    end

    context "with a failing example" do
      it "returns a failing result" do
        example = FailingExample.create
        result = Spectator::Internals::Harness.run(example)
        result.should be_a(Spectator::FailedResult)
      end
    end
  end

  describe "#current" do
    it "references the current harness" do
      harness = nil.as(Spectator::Internals::Harness?)
      spy = SpyExample.create do
        harness = Spectator::Internals::Harness.current
      end
      Spectator::Internals::Harness.run(spy)
      harness.should be_a(Spectator::Internals::Harness)
    end
  end

  describe "#example" do
    it "references the current example" do
      example = nil.as(Spectator::Example?)
      spy = SpyExample.create do
        example = Spectator::Internals::Harness.current.example
      end
      Spectator::Internals::Harness.run(spy)
      example.should be(spy)
    end
  end

  describe "#report_expectation" do
    context "with a successful result" do
      it "stores the result" do
        error = nil.as(Exception?)
        expectation = new_satisfied_expectation
        spy = SpyExample.create do
          harness = Spectator::Internals::Harness.current
          harness.report_expectation(expectation)
        end
        result = Spectator::Internals::Harness.run(spy)
        result.should be_a(Spectator::SuccessfulResult)
        result.as(Spectator::SuccessfulResult).expectations.should contain(expectation)
      end
    end

    context "with a failed result" do
      it "raises an error" do
        error = nil.as(Exception?)
        spy = SpyExample.create do
          harness = Spectator::Internals::Harness.current
          begin
            harness.report_expectation(new_unsatisfied_expectation)
          rescue ex
            error = ex
          end
        end
        Spectator::Internals::Harness.run(spy)
        error.should be_a(Spectator::ExampleFailed)
      end

      it "stores the result" do
        error = nil.as(Exception?)
        expectation = new_unsatisfied_expectation
        spy = SpyExample.create do
          harness = Spectator::Internals::Harness.current
          harness.report_expectation(expectation)
        end
        result = Spectator::Internals::Harness.run(spy)
        result.should be_a(Spectator::FailedResult)
        result.as(Spectator::FailedResult).expectations.should contain(expectation)
      end
    end
  end

  describe "#expectation_results" do
    it "contains the reported results" do
      expectations = [new_satisfied_expectation, new_unsatisfied_expectation]
      spy = SpyExample.create do
        harness = Spectator::Internals::Harness.current
        expectations.each do |expectation|
          harness.report_expectation(expectation)
        end
      end
      result = Spectator::Internals::Harness.run(spy)
      reported_results = result.as(Spectator::FailedResult).expectations.to_a
      (expectations - reported_results).size.should eq(0)
    end
  end
end