"Truth will sooner come out from error than from confusion."
                                           ---Francis Bacon

require 'mac_bacon'

describe 'A new array' do
  before do
    @ary = Array.new
  end

  it 'should be empty' do
    @ary.should.be.empty
    @ary.should.not.include 1
  end

  it 'should have zero size' do
    @ary.size.should.equal 0
    @ary.size.should.be.close 0.1, 0.5
  end

  it 'should raise on trying fetch any index' do
    lambda { @ary.fetch 0 }.
      should.raise(IndexError).
      message.should.match(/out of array/)

    # Alternatively:
    should.raise(IndexError) { @ary.fetch 0 }
  end

  it 'should have an object identity' do
    @ary.should.not.be.same_as Array.new
  end

  it 'should perform a long running operation' do
    @ary.performSelector("addObject:", withObject:"soup", afterDelay:0.5)
    wait 0.6 do
      @ary.size.should.be 1
    end
  end

  # Custom assertions are trivial to do, they are lambdas returning a
  # boolean vale:
  palindrome = lambda { |obj| obj == obj.reverse }
  it 'should be a palindrome' do
    @ary.should.be.a palindrome
  end

  it 'should have super powers' do
    should.flunk "no super powers found"
  end
end

$ macbacon whirlwind.rb
A new array
  - should be empty
  - should have zero size
  - should raise on trying fetch any index
  - should have an object identity
  - should perform a long running operation
  - should be a palindrome
  - should have super powers [MISSING]

Bacon::Error: no super powers found
	./whirlwind.rb:44:in `block': A new array - should have super powers

Bacon::Error: empty specification: A new array should have super powers

7 specifications (10 requirements), 1 failures, 0 errors

$ macbacon -q whirlwind.rb
......F
Bacon::Error: no super powers found
	./whirlwind.rb:39: A new array - should have super powers
	./whirlwind.rb:38
	./whirlwind.rb:3

7 tests, 10 assertions, 1 failures, 0 errors

$ macbacon -p whirlwind.rb
ok 1        - should be empty
ok 2        - should have zero size
ok 3        - should raise on trying fetch any index
ok 4        - should have an object identity
ok 5        - should be a palindrome
ok 6        - should perform a long running operation
not ok 7    - should have super powers: FAILED
# Bacon::Error: no super powers found
# 	./whirlwind.rb:44: A new array - should have super powers
1..7
# 7 tests, 10 assertions, 1 failures, 0 errors

$ macbacon -p whirlwind.rb | taptap -q
Tests took 0.00 seconds.
FAILED tests 7
   7) should have super powers: FAILED

Failed 1/7 tests, 83.33% okay.

$ macbacon -k whirlwind.rb
ok - should be empty
ok - should have zero size
ok - should raise on trying fetch any index
ok - should have an object identity
ok - should be a palindrome
ok - should perform a long running operation
not ok - should have super powers: FAILED
# Bacon::Error: no super powers found
# 	./whirlwind.rb:4: A new array - should have super powers

$ bacon -k whirlwind.rb | kn-sum
7 tests, 1 failed (83.3333% succeeded)

shared "an empty container" do
  it "should have size zero" do
  end

  it "should be empty" do
  end
end

describe "A new array" do
  behaves_like "an empty container"
end

def shorter_than(max_size)
  lambda { |obj| obj.size < max_size }
end

[1,2,3].should.be shorter_than(5)

describe "Deals with the UI" do
  self.run_on_main_thread = true

  it "runs on the main thread" do
    # ...
  end
end

it 'should perform a long running operation' do
  # Here a method call is scheduled to be performed ~0.5 seconds in the future
  @ary.performSelector("addObject:", withObject:"soup", afterDelay:0.5)
  wait 0.6 do
    # This block is executed ~0.6 seconds in the future
    @ary.size.should.be 1
  end
end

def aDelegateCallbackMethod(sender)
  @delegateCallbackMethodCalled = true
  resume
end

it 'should wait until notified' do
  # Here a method is called that in the near future will result in the object calling back the delegate
  @object.delegate = self
  @object.startLongRunningMethod
  wait do
    # This block is executed once aDelegateCallbackMethod is called
    @delegateCallbackMethodCalled.should == true
  end
end

describe "specs that will wait for resume" do
  self.timeout = 20 # seconds
end

class AKeyValueObservableClass
  attr_accessor :an_attribute

  def compute_an_attribute
    # trust me, this takes a few ms
    self.an_attribute = 'changed'
  end
end

it 'should wait until AKeyValueObservableClass#an_attribute changes' do
  # Here a method is called that in the near future will update the 'an_attribute' value of the object
  observable.compute_an_attribute
  wait_for_change observable, 'an_attribute' do
    # This block is executed once 'an_attribute' has changed value
    observable.an_attribute.should == 'changed'
  end
end

describe "PreferencesController" do
  before do
    @controller = PreferencesController.new
    nib_path = File.join(SRC_ROOT, 'app/views/PreferencesWindow.xib')
    @top_level_objects = load_nib(nib_path, @controller)
  end

  # tests...

end

-s, --specdox            do AgileDox-like output (default)
-q, --quiet              do Test::Unit-like non-verbose output
-p, --tap                do TAP (Test Anything Protocol) output
-k, --knock              do Knock output
-o, --output FORMAT      do FORMAT (SpecDox/TestUnit/Tap) output
-Q, --no-backtrace       don't print backtraces
-a, --automatic          gather tests from ./test/, include ./lib/
-c, --concurrent         runs multiple specs concurrently on multiple GCD threads
-n, --name NAME          runs tests matching regexp NAME
-t, --testcase TESTCASE  runs tests in TestCases matching regexp TESTCASE

>> require 'mac_bacon'
>> (1 + 1).should.equal 2
=> true
>> (6*9).should.equal 42
=> false