From 1e452efbc159bcd553871a44cb697413cc6fc1bd Mon Sep 17 00:00:00 2001
From: Paul Phillips <paulp@improving.org>
Date: Mon, 19 Oct 2009 22:17:19 +0000
Subject: Another bunch of work on Numeric, Range, Generi...

Another bunch of work on Numeric, Range, GenericRange, BigDecimal, and a
pile of test cases for various aspects of GenericRange.
---
 test/files/run/range.scala | 54 ++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 47 insertions(+), 7 deletions(-)

(limited to 'test')

diff --git a/test/files/run/range.scala b/test/files/run/range.scala
index 7d30dc30c2..97d7a84acc 100644
--- a/test/files/run/range.scala
+++ b/test/files/run/range.scala
@@ -1,14 +1,54 @@
-object Test extends Application{
+import scala.collection.immutable.{ Range, GenericRange }
+
+object Test {
   def rangeForeach(range : Range) = {
     val buffer = new scala.collection.mutable.ListBuffer[Int];
     range.foreach(buffer += _);
     assert(buffer.toList == range.iterator.toList, buffer.toList+"/"+range.iterator.toList)
   }
 
-  rangeForeach(1 to 10);
-  rangeForeach(1 until 10);
-  rangeForeach(10 to 1 by -1);
-  rangeForeach(10 until 1 by -1);
-  rangeForeach(10 to 1 by -3);
-  rangeForeach(10 until 1 by -3);
+  case class GR[T](val x: T)(implicit val num: Integral[T]) {
+    import num._
+
+    def negated = GR[T](-x)
+
+    def gr1 = GenericRange(x, x, x)
+    def gr2 = GenericRange.inclusive(x, x, x)
+    def gr3 = GenericRange(x, x * fromInt(10), x)
+    def gr4 = GenericRange.inclusive(x, x * fromInt(10), x)
+
+    def check = assert(
+      gr1.isEmpty && !gr2.isEmpty &&
+      gr3.size == 9 && gr4.size == 10 &&
+      (gr3.toList ::: negated.gr3.toList).sum == num.zero &&
+      !(gr3 contains (x * fromInt(10))) &&
+      (gr4 contains (x * fromInt(10)))
+    )
+  }
+
+  def main(args: Array[String]): Unit = {
+    implicit val imp1 = Numeric.BigDecimalAsIfIntegral
+    implicit val imp2 = Numeric.DoubleAsIfIntegral
+
+    val _grs = List[GR[_]](
+      GR(BigDecimal(5.0)),
+      GR(BigInt(5)),
+      GR(5L),
+      GR(5.0d),
+      GR(2.toByte)
+    )
+    val grs = _grs ::: (_grs map (_.negated))
+    grs foreach (_.check)
+
+    assert(GenericRange(1, 10, 1) sameElements (1 until 10))
+    assert(GenericRange.inclusive(1, 10, 1) sameElements (1 to 10))
+    assert(GenericRange.inclusive(1, 100, 3) sameElements (1 to 100 by 3))
+
+    rangeForeach(1 to 10);
+    rangeForeach(1 until 10);
+    rangeForeach(10 to 1 by -1);
+    rangeForeach(10 until 1 by -1);
+    rangeForeach(10 to 1 by -3);
+    rangeForeach(10 until 1 by -3);
+  }
 }
-- 
cgit v1.2.3