object Main extends Application {
  object TAP {
    var number:Int = 1
 
    var directive = ""
 
    def plan (planNum:Int) {
      println(
        "1.." + planNum
      )
    }
 
    def skip (desc:String)(block: => Unit) {
      directive = "SKIP " + desc
      block
      directive = ""
    }
 
    def todo (desc:String)(block: => Unit) {
      directive = "TODO " + desc
      block
      directive = ""
    }
 
    def ok (bool:Boolean, desc:String) {
      println(
        (if (bool) "ok" else "not ok") + " " + number +
        (if (desc.isEmpty) "" else " - " + desc) +
        (if (directive.isEmpty) "" else " # " + directive)
      )
      number += 1
    }
 
    def is (self:Any, other:Any, desc:String) {
      ok(self == other, desc)
    }
  }
 
  class TestObject (self:Any) {
    def is (other:Int) {
      TAP.is(self, other, "")
    }
 
    def is (other:TestDescription) {
      TAP.is(self, other.self, other.description)
    }
  }
 
  class TestDescription (_self:Any) {
    val self : Any = _self
    var description : String = ""
    def apply (desc:String) = {
      description = desc
      this
    }
  }
 
  implicit def testobj (o:Any):TestObject = new TestObject(o)
  implicit def testdesc (o:Any):TestDescription = new TestDescription(o)
 
  TAP.plan(1)
  TAP.is(1, 1, "foo")
 
  1 is 1 ("Trivial")
 
  TAP.todo("foobar") {
    TAP.is(1, 1, "foo")
  }
}
 
Main