Merge pull request #1394 from mathics/realdigits-testing

Move many RealDigits tests to unit tests

Author: rocky

mathics/builtin/numeric.py

@@ -1436,14 +1436,21 @@ class RealDigits(Builtin):
     >> RealDigits[123.55555]
      = {{1, 2, 3, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0}, 3}
 
-    >> RealDigits[0.000012355555]
-     = {{1, 2, 3, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0}, -4}
+    Return an explicit recurring decimal form:
+    >> RealDigits[19 / 7]
+     = {{2, {7, 1, 4, 2, 8, 5}}, 1}
 
-    >> RealDigits[-123.55555]
-     = {{1, 2, 3, 5, 5, 5, 5, 5, 0, 0, 0, 0, 0, 0, 0, 0}, 3}
+    The 10000th digit of  is an 8:
+    >> RealDigits[Pi, 10, 1, -10000]
+    = {{8}, -9999}
 
-    #> RealDigits[0.004]
-     = {{4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, -2}
+    20 digits starting with the coefficient of 10^-5:
+    >> RealDigits[Pi, 10, 20, -5]
+     = {{9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6, 4, 3}, -4}
+
+    RealDigits gives Indeterminate if more digits than the precision are requested:
+    >> RealDigits[123.45, 10, 18]
+     = {{1, 2, 3, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Indeterminate, Indeterminate}, 3}
 
     #> RealDigits[-1.25, -1]
      : Base -1 is not a real number greater than 1.
@@ -1453,77 +1460,22 @@ class RealDigits(Builtin):
     >> RealDigits[Pi, 10, 25]
      = {{3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6, 4, 3}, 1}
 
-    #> RealDigits[19 / 7, 10, 25]
-     = {{2, 7, 1, 4, 2, 8, 5, 7, 1, 4, 2, 8, 5, 7, 1, 4, 2, 8, 5, 7, 1, 4, 2, 8, 5}, 1}
-
-    Return an explicit recurring decimal form:
-    >> RealDigits[19 / 7]
-     = {{2, {7, 1, 4, 2, 8, 5}}, 1}
-
-    #> RealDigits[100 / 21]
-     = {{{4, 7, 6, 1, 9, 0}}, 1}
-
-    #> RealDigits[1.234, 2, 15]
-     = {{1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1}, 1}
-
-    20 digits starting with the coefficient of 10^-5:
-    >> RealDigits[Pi, 10, 20, -5]
-     = {{9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6, 4, 3}, -4}
-
-    #> RealDigits[Pi, 10, 20, 5]
-     = {{0, 0, 0, 0, 0, 3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9}, 6}
+    #> RealDigits[-Pi]
+     : The number of digits to return cannot be determined.
+     = RealDigits[-Pi]
 
-    The 10000th digit of  is an 8:
-    >> RealDigits[Pi, 10, 1, -10000]
-     = {{8}, -9999}
+    #> RealDigits[I, 7]
+     : The value I is not a real number.
+    = RealDigits[I, 7]
 
     #> RealDigits[Pi]
      : The number of digits to return cannot be determined.
      = RealDigits[Pi]
 
-    #> RealDigits[20 / 3]
-     = {{{6}}, 1}
-
-    #> RealDigits[3 / 4]
-     = {{7, 5}, 0}
-
-    #> RealDigits[23 / 4]
-     = {{5, 7, 5}, 1}
-
     #> RealDigits[3 + 4 I]
      : The value 3 + 4 I is not a real number.
      = RealDigits[3 + 4 I]
 
-    #> RealDigits[abc]
-     = RealDigits[abc]
-
-    #> RealDigits[abc, 2]
-     = RealDigits[abc, 2]
-
-    #> RealDigits[45]
-     = {{4, 5}, 2}
-
-    #> RealDigits[{3.14, 4.5}]
-     = {{{3, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 1}, {{4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 1}}
-
-    #> RealDigits[123.45, 40]
-     = {{3, 3, 18, 0, 0, 0, 0, 0, 0, 0}, 2}
-
-    #> RealDigits[0.00012345, 2]
-     = {{1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0}, -12}
-
-    #> RealDigits[12345, 2, 4]
-     = {{1, 1, 0, 0}, 14}
-
-    #> RealDigits[123.45, 2, 15]
-     = {{1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1}, 7}
-
-    RealDigits gives Indeterminate if more digits than the precision are requested:
-    >> RealDigits[123.45, 10, 18]
-     = {{1, 2, 3, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Indeterminate, Indeterminate}, 3}
-
-    #> RealDigits[0.000012345, 2]
-     = {{1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1}, -16}
 
     #> RealDigits[3.14, 10, 1.5]
      : Non-negative machine-sized integer expected at position 3 in RealDigits[3.14, 10, 1.5].
@@ -1533,77 +1485,6 @@ class RealDigits(Builtin):
      : Machine-sized integer expected at position 4 in RealDigits[3.14, 10, 1, 1.5].
      = RealDigits[3.14, 10, 1, 1.5]
 
-    #> RealDigits[Pi, 10, 20, -5]
-     = {{9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6, 4, 3}, -4}
-
-    #> RealDigits[305.0123, 10, 17, 0]
-     = {{5, 0, 1, 2, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, Indeterminate, Indeterminate, Indeterminate}, 1}
-
-    #> RealDigits[220, 140]
-     = {{1, 80}, 2}
-
-    # #> RealDigits[Sqrt[3], 10, 50]
-    # = {{1, 7, 3, 2, 0, 5, 0, 8, 0, 7, 5, 6, 8, 8, 7, 7, 2, 9, 3, 5, 2, 7, 4, 4, 6, 3, 4, 1, 5, 0, 5, 8, 7, 2, 3, 6, 6, 9, 4, 2, 8, 0, 5, 2, 5, 3, 8, 1, 0, 3}, 1}
-
-    #> RealDigits[0]
-     = {{0}, 1}
-
-    #> RealDigits[1]
-     = {{1}, 1}
-
-    #> RealDigits[0, 10, 5]
-     = {{0, 0, 0, 0, 0}, 0}
-
-    #> RealDigits[11/23]
-     = {{{4, 7, 8, 2, 6, 0, 8, 6, 9, 5, 6, 5, 2, 1, 7, 3, 9, 1, 3, 0, 4, 3}}, 0}
-
-    #> RealDigits[1/97]
-     = {{{1, 0, 3, 0, 9, 2, 7, 8, 3, 5, 0, 5, 1, 5, 4, 6, 3, 9, 1, 7, 5, 2, 5, 7, 7, 3, 1, 9, 5, 8, 7, 6, 2, 8, 8, 6, 5, 9, 7, 9, 3, 8, 1, 4, 4, 3, 2, 9, 8, 9, 6, 9, 0, 7, 2, 1, 6, 4, 9, 4, 8, 4, 5, 3, 6, 0, 8, 2, 4, 7, 4, 2, 2, 6, 8, 0, 4, 1, 2, 3, 7, 1, 1, 3, 4, 0, 2, 0, 6, 1, 8, 5, 5, 6, 7, 0}}, -1}
-
-    #> RealDigits[1/97, 2]
-     = {{{1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0}}, -6}
-
-    #> RealDigits[1/197, 260, 5]
-     = {{1, 83, 38, 71, 69}, 0}
-
-    #> RealDigits[1/197, 260, 5, -6]
-     = {{246, 208, 137, 67, 80}, -5}
-
-    #> RealDigits[Pi, 260, 20]
-     = {{3, 36, 211, 172, 124, 173, 210, 42, 162, 76, 23, 206, 122, 187, 23, 245, 241, 225, 254, 98}, 1}
-
-    #> RealDigits[Pi, 260, 5]
-     = {{3, 36, 211, 172, 124}, 1}
-
-    #> RealDigits[1/3]
-     = {{{3}}, 0}
-
-    #> RealDigits[1/2, 7]
-     = {{{3}}, 0}
-
-    #> RealDigits[3/2, 7]
-     = {{1, {3}}, 1}
-
-    #> RealDigits[-3/2, 7]
-     = {{1, {3}}, 1}
-
-    #> RealDigits[3/2, 6]
-     = {{1, 3}, 1}
-
-    #> RealDigits[1, 7, 5]
-     = {{1, 0, 0, 0, 0}, 1}
-
-    #> RealDigits[I, 7]
-     : The value I is not a real number.
-     = RealDigits[I, 7]
-
-    #> RealDigits[-Pi]
-     : The number of digits to return cannot be determined.
-     = RealDigits[-Pi]
-
-    #> RealDigits[Round[x + y]]
-     = RealDigits[Round[x + y]]
-
     """
 
     attributes = ("Listable",)