long-decimal 0.01.00 → 0.01.01

data/test/testrandpower.rb

@@ -0,0 +1,72 @@
+#!/usr/bin/env ruby
+#
+# testrandpower.rb -- runit test for long-decimal.rb
+#
+# CVS-ID:    $Header: /var/cvs/long-decimal/long-decimal/test/testrandpower.rb,v 1.7 2006/05/01 12:22:12 bk1 Exp $
+# CVS-Label: $Name: ALPHA_01_01 $
+# Author:    $Author: bk1 $ (Karl Brodowsky)
+#
+
+require "runit/testcase"
+require "runit/cui/testrunner"
+require "runit/testsuite"
+require "crypt/ISAAC"
+
+load "test/testlongdeclib.rb"
+load "test/testrandlib.rb"
+
+#
+# test class for LongDecimal and LongDecimalQuot
+#
+class TestRandomPower_class < RUNIT::TestCase
+  include TestLongDecHelper
+  include TestRandomHelper
+
+  @RCS_ID='-$Id: testrandpower.rb,v 1.7 2006/05/01 12:22:12 bk1 Exp $-'
+
+  # for how many seconds should this test run? change to different
+  # value on demand
+  @@duration = 1000000
+
+  #
+  # test the calculation of the eyponential function
+  #
+  def test_random_power
+    cnt  = 0
+    scnt = 0
+    t0   = Time.new
+    while (true) do
+      t1 = Time.new
+      d  = t1 - t0
+      break if d >= @@duration
+      xarr, eprec1, lprec1, sprec1, pprec1, xs = random_arr
+      yarr, eprec2, lprec2, sprec2, pprec2, ys = random_arr
+      prec = (pprec1+pprec2) >> 1
+      xarr.each do |x|
+        puts(" t=#{Time.new-t1} x=#{x}: ")
+        next if x <= 0
+        # next if (x < 1.1)
+        # next if (x < 1)
+        # next if (x < 0.99)
+        yarr.each do |y|
+          # next if x < 0.001 && y < 0
+          next if y.abs > LongMath::MAX_EXP_ABLE * 2
+          next if ((1+x.to_i) ** y.to_i.abs).abs > LongMath::MAX_FLOATABLE
+          next if ((1+(1/x).to_i) ** y.to_i.abs).abs > LongMath::MAX_FLOATABLE
+          next if (Math.log(x) * y.to_f).abs > LongMath::MAX_EXP_ABLE * 2
+          puts("\ncnt=#{cnt} scnt=#{scnt} x=#{x} y=#{y} scx=#{x.scale} scy=#{y.scale} prec=#{prec}")
+          scnt += 1
+          # puts(" t=#{Time.new-t1} x=#{x} y=#{y}: ")
+          check_power_floated(x, y, prec)
+        end
+      end
+      cnt += 1
+    end
+    puts("done #{cnt} tests\n")
+  end
+
+end
+
+RUNIT::CUI::TestRunner.run(TestRandomPower_class.suite)
+
+# end of file testrandpower.rb

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.8.11
 specification_version: 1
 name: long-decimal
 version: !ruby/object:Gem::Version 
-  version: 0.01.00
-date: 2006-04-11 00:00:00 +02:00
+  version: 0.01.01
+date: 2006-05-01 00:00:00 +02:00
 summary: LongDecimal for numbers with fixed point
 require_paths: 
 - lib
@@ -260,7 +260,9 @@ files:
 - doc/classes/LongDecimalRoundingMode/RoundingModeClass.src/M000152.html
 - lib/long-decimal.rb
 - test/testlongdecimal.rb
+- test/testrandpower.rb
 - test/testlongdeclib.rb
+- test/testrandlib.rb
 - test/testrandom.rb
 test_files: 
 - test/testlongdecimal.rb