gistfile1.scala

package eu.rinfrastructures

import org.specs._

trait FunctionalMatchers {
	import org.specs.matcher.Matcher

	type byNameMatcherFunction [A] = (=> A) => (Boolean, String, String)
	type byValueMatcherFunction[A] = A      => (Boolean, String, String)

	implicit def byNameFunction2matcher[A] (f : byNameMatcherFunction[A]) = new Matcher[A] {
		def apply(v: => A) = f(v)
	}

	implicit def byValueFunction2matcher[A] (f : byValueMatcherFunction[A]) = new Matcher[A] {
		def apply(v: => A) = f(v)
	}	
}

trait ShortMatcher {
	// cannot use by-name functional literals 
	def fBeLazyEven(number: => Int) = {
		val b = number; (b % 2 == 0, b + " is even", b + " is odd")		
	}

	val beLazyEven = fBeLazyEven _
}


trait VeryShortMatcher {
	def beEven = (b: Int) => (true, "great", "failure")
}

object newSpecification extends Specification with FunctionalMatchers 
with ShortMatcher with VeryShortMatcher {

	"short matchers" should {
		"allow us to do" in {
			
			"it's terse".size must beEven
			"it's terse".size must beLazyEven
		}
	}
}