From 25a98964b5109aa55b71a8a26886c59903193548 Mon Sep 17 00:00:00 2001 From: Martin Odersky Date: Thu, 6 Oct 2005 13:14:33 +0000 Subject: *** empty log message *** --- test-nsc/files/pos/bug31.scala | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100755 test-nsc/files/pos/bug31.scala (limited to 'test-nsc/files/pos/bug31.scala') diff --git a/test-nsc/files/pos/bug31.scala b/test-nsc/files/pos/bug31.scala new file mode 100755 index 0000000000..92f33bfd02 --- /dev/null +++ b/test-nsc/files/pos/bug31.scala @@ -0,0 +1,29 @@ +object Main { + + trait Ensure[a] { + def ensure(postcondition: a => Boolean): a + } + + def require[a](precondition: => Boolean)(command: => a): Ensure[a] = + if (precondition) + new Ensure[a] { + def ensure(postcondition: a => Boolean): a = { + val result = command; + if (postcondition(result)) result + else error("Assertion error") + } + } + else + error("Assertion error"); + + def arb[a](s: List[a]) = + require (! s.isEmpty) { + s.head + } ensure (result => s contains result); + + def main(args: Array[String]) = { + val s = List(1, 2); + System.out.println(arb(s)) + } + +} -- cgit v1.2.3