facets-glimmer 3.2.0

data/test/standard/math/test_beta.rb

@@ -0,0 +1,19 @@
+require 'facets/math/beta'
+
+test_case Math do
+
+  class_method :beta do
+    test do
+      Math.beta(1.0, 1.0).range(1.0e-6).assert === 1.0
+      Math.beta(1.0, 2.0).range(1.0e-6).assert === 0.5
+      Math.beta(1.0, 3.0).range(1.0e-6).assert === 1.0 /  3.0
+      Math.beta(2.0, 1.0).range(1.0e-6).assert === 0.5
+      Math.beta(2.0, 2.0).range(1.0e-6).assert === 1.0 /  6.0
+      Math.beta(2.0, 3.0).range(1.0e-6).assert === 1.0 / 12.0
+      Math.beta(3.0, 1.0).range(1.0e-6).assert === 1.0 /  3.0
+      Math.beta(3.0, 2.0).range(1.0e-6).assert === 1.0 / 12.0
+      Math.beta(3.0, 3.0).range(1.0e-6).assert === 1.0 / 30.0
+    end
+  end
+
+end

data/test/standard/math/test_ceil.rb

@@ -0,0 +1,22 @@
+require 'facets/math/ceil'
+
+test_case Math do
+
+  class_method :ceil do
+    test do
+      Math.ceil( 1.99999).assert == 2
+      Math.ceil( 1.5    ).assert == 2
+      Math.ceil( 1.00001).assert == 2
+      Math.ceil( 0.99999).assert == 1
+      Math.ceil( 0.5    ).assert == 1
+      Math.ceil( 0.00001).assert == 1
+      Math.ceil(-0.00001).assert == 0
+      Math.ceil(-0.5    ).assert == 0
+      Math.ceil(-0.99999).assert == 0
+      Math.ceil(-1.00001).assert == -1
+      Math.ceil(-1.5    ).assert == -1
+      Math.ceil(-1.99999).assert == -1
+    end
+  end
+
+end

data/test/standard/math/test_cosec.rb

@@ -0,0 +1,19 @@
+require 'facets/math/cosec'
+
+test_case Math do
+
+  class_method :cosec do
+    test do
+      Math.cosec(-1.0).assert == 1.0 / Math.sin(-1.0)
+      Math.cosec( 1.0).assert == 1.0 / Math.sin( 1.0)
+    end
+  end
+
+  # TODO: Check complementarity of cosec and sin
+  #assert_equal_float(1.0, Math.cosec(-2.0) * Math.sin(-2.0), 1.0e-6)
+  #assert_equal_float(1.0, Math.cosec(-1.0) * Math.sin(-1.0), 1.0e-6)
+  #assert_equal_float(1.0, Math.cosec( 1.0) * Math.sin( 1.0), 1.0e-6)
+  #assert_equal_float(1.0, Math.cosec( 2.0) * Math.sin( 2.0), 1.0e-6)
+
+end
+

data/test/standard/math/test_cosech.rb

@@ -0,0 +1,19 @@
+require 'facets/math/cosech'
+
+test_case Math do
+
+  class_method :cosech do
+    test do
+      Math.cosech(-1.0).assert == 1.0 / Math.sinh(-1.0)
+      Math.cosech( 1.0).assert == 1.0 / Math.sinh( 1.0)
+    end
+
+    test "check complementarity of cosech and sinh" do
+      (Math.cosech(-2.0) * Math.sinh(-2.0)).assert == 1.0
+      (Math.cosech(-1.0) * Math.sinh(-1.0)).assert == 1.0
+      (Math.cosech( 1.0) * Math.sinh( 1.0)).assert == 1.0
+      (Math.cosech( 2.0) * Math.sinh( 2.0)).assert == 1
+    end
+  end
+
+end

data/test/standard/math/test_cot.rb

@@ -0,0 +1,13 @@
+require 'facets/math/cot'
+require 'facets/numeric/range'  # used to test within a precision
+
+test_case Math do
+
+  class_method :cot do
+    test do
+      Math.cot(1.0).range(1.0e-6).assert === 1.0 / Math.tan(1.0)
+      Math.cot(2.0).range(1.0e-6).assert === 1.0 / Math.tan(2.0) 
+    end
+  end
+
+end

data/test/standard/math/test_coth.rb

@@ -0,0 +1,13 @@
+require 'facets/math/coth'
+require 'facets/numeric/range'  # used to test within a precision
+
+test_case Math do
+
+  class_method :coth do
+    test do
+      Math.coth(1.0).range(1.0e-6).assert === 1.0 / Math.tanh(1.0)
+      Math.coth(2.0).range(1.0e-6).assert === 1.0 / Math.tanh(2.0)
+    end
+  end
+
+end

data/test/standard/math/test_distance.rb

@@ -0,0 +1,16 @@
+require 'facets/math/distance'
+
+test_case Math do
+
+  class_method :distance do
+    test do
+      Math.distance(1, 2).assert == 1.0
+      Math.distance([1,2], [3,4]).assert >= 2.828427
+      Math.distance([1,2], [3,4]).assert <= 2.8284271247461903
+      Math.distance([1,2,3], [4,5,6]).assert >= 5.196152
+      Math.distance([1,2,3], [4,5,6]).assert <= 5.196152422706632
+      Math.distance([1,2,3,4], [5,6,7,8]).assert == 8.0
+    end
+  end
+
+end

data/test/standard/math/test_exp10.rb

@@ -0,0 +1,14 @@
+require 'facets/math/exp10'
+require 'facets/numeric/range'  # used to test within a precision
+
+test_case Math do
+
+  class_method :exp10 do
+    test do
+      Math.exp10(0.0).range(1.0e-6).assert === 1.0
+      Math.exp10(0.5).range(1.0e-6).assert === Math.sqrt(10.0)
+      Math.exp10(1.0).range(1.0e-6).assert === 10.0
+    end
+  end
+
+end

data/test/standard/math/test_exp2.rb

@@ -0,0 +1,14 @@
+require 'facets/math/exp2'
+require 'facets/numeric/range'  # used to test within a precision
+
+test_case Math do
+
+  class_method :exp2 do
+    test do
+      Math.exp2(0.0).range(1.0e-6).assert === 1.0
+      Math.exp2(0.5).range(1.0e-6).assert === Math.sqrt(2.0)
+      Math.exp2(1.0).range(1.0e-6).assert === 2.0
+    end
+  end
+
+end

data/test/standard/math/test_factorial.rb

@@ -0,0 +1,13 @@
+require 'facets/math/factorial'
+
+test_case Math do
+
+  class_method :factorial do
+    fac = 1
+    1.upto(100) do |i|
+      fac *= i
+      Math.factorial(i).assert == fac
+    end
+  end
+
+end

data/test/standard/math/test_floor.rb

@@ -0,0 +1,23 @@
+require 'facets/math/floor'
+
+test_case Math do
+
+  class_method :floor do
+    test do
+      Math.floor( 1.99999).assert == 1
+      Math.floor( 1.5    ).assert == 1
+      Math.floor( 1.00001).assert == 1
+      Math.floor( 0.99999).assert == 0
+      Math.floor( 0.5    ).assert == 0
+      Math.floor( 0.00001).assert == 0
+      Math.floor(-0.00001).assert == -1
+      Math.floor(-0.5    ).assert == -1
+      Math.floor(-0.99999).assert == -1
+      Math.floor(-1.00001).assert == -2
+      Math.floor(-1.5    ).assert == -2
+      Math.floor(-1.99999).assert == -2
+    end
+  end
+
+end
+

data/test/standard/math/test_gcd.rb

@@ -0,0 +1,18 @@
+require 'facets/math/gcd'
+require 'facets/math/factorial'
+
+test_case Math do
+
+  class_method :gcd do
+    test do
+      Math.gcd(4732, 4700).assert == 4
+      Math.gcd(3651, 5023).assert == 1
+      Math.gcd(612221610, 67461255771).assert == 5565651
+    end
+
+    test "on a factorial" do
+      Math.factorial(47).assert == Math.gcd(Math.factorial(90), Math.factorial(47))
+    end
+  end
+
+end

data/test/standard/math/test_lcm.rb

@@ -0,0 +1,13 @@
+require 'facets/math/lcm'
+
+test_case Math do
+
+  class_method :lcm do
+    test do
+      Math.lcm( 77, 221).assert == 17017
+      Math.lcm(143, 187).assert == 2431
+      Math.lcm( 91, 119).assert == 1547
+    end
+  end
+
+end

data/test/standard/math/test_median.rb

@@ -0,0 +1,17 @@
+covers 'facets/math/median'
+
+test_case Math do
+
+  class_method :median do
+    test "fractional" do
+      r = Math.median [1, 2, 3, 3, 6, 11, 20, 20]
+      r.assert == 4.5
+    end
+
+    test "whole value" do
+      r = Math.median [1, 2, 4, 6, 8]
+      r.assert == 4
+    end
+  end
+
+end

data/test/standard/math/test_percentile.rb

@@ -0,0 +1,13 @@
+covers 'facets/math/percentile'
+
+test_case Math do
+
+  class_method :percentile do
+    test do
+      a = [1,1,2,2,3,3,3,4]
+      r = Math.percentile(a,75)
+      r.assert == 3.0
+    end
+  end
+
+end

data/test/standard/math/test_pow.rb

@@ -0,0 +1,30 @@
+require 'facets/math/pow'
+require 'facets/numeric/range'
+
+test_case Math do
+
+  class_method :pow do
+    test do
+      Math.pow(  4.0,   3.0).range(1.0e-6).assert === 64.0  
+      Math.pow(  0.9,   3.0).range(1.0e-6).assert === 0.729
+      Math.pow(  0.25, -0.5).range(1.0e-6).assert === 2.0   
+      Math.pow( 64.0,  -1.0/3).range(1.0e-6).assert === 0.25
+    end
+  end
+
+  class_method :pwr do
+    test do
+      Math.pwr(  4.0,   3.0).range(1.0e-6).assert === 64.0  
+      Math.pwr(  0.9,   3.0).range(1.0e-6).assert === 0.729
+      Math.pwr(  0.25, -0.5).range(1.0e-6).assert === 2.0   
+      Math.pwr( 64.0,  -1.0/3).range(1.0e-6).assert === 0.25
+    end
+  end
+
+  # TODO: Check complementarity of pwr and root
+  #  assert_equal_float(           4.0, Math.root(Math.pwr(2.0, 6.0), 3.0), 1.0e-6)
+  #  assert_equal_float(           2.0, Math.root(Math.pwr(4.0, 4.0), 8.0), 1.0e-6)
+  #  assert_equal_float(Math.sqrt(2.0), Math.pwr(Math.root(2.0, 6.0), 3.0), 1.0e-6)
+  #  assert_equal_float(          16.0, Math.pwr(Math.root(4.0, 4.0), 8.0), 1.0e-6)
+
+end

data/test/standard/math/test_root.rb

@@ -0,0 +1,15 @@
+require 'facets/math/root'
+require 'facets/numeric/range'
+
+test_case Math do
+
+  class_method :root do
+    test do
+      Math.root( 64.0,    3.0).range(1.0e-6).assert === 4.0
+      Math.root(  0.729,  3.0).range(1.0e-6).assert === 0.9
+      Math.root(  2.0,   -0.5).range(1.0e-6).assert === 0.25
+      Math.root(  0.25,  -1.0/3).range(1.0e-6).assert === 64.0
+    end
+  end
+
+end

data/test/standard/math/test_sec.rb

@@ -0,0 +1,19 @@
+require 'facets/math/sec'
+require 'facets/numeric/range'  # used to test within a precision
+
+test_case Math do
+
+  class_method :sec do
+    test do
+      Math.sec(1.0).range(1.0e-6).assert === 1.0 / Math.cos(1.0)
+      Math.sec(2.0).range(1.0e-6).assert === 1.0 / Math.cos(2.0)
+    end
+  end
+
+    # TODO: Check complementarity of cos and sec
+    #assert_equal_float(1.0, Math.sec(-2.0) * Math.cos(-2.0), 1.0e-6)
+    #assert_equal_float(1.0, Math.sec(-1.0) * Math.cos(-1.0), 1.0e-6)
+    #assert_equal_float(1.0, Math.sec( 1.0) * Math.cos( 1.0), 1.0e-6)
+    #assert_equal_float(1.0, Math.sec( 2.0) * Math.cos( 2.0), 1.0e-6)
+
+end

data/test/standard/math/test_sech.rb

@@ -0,0 +1,19 @@
+require 'facets/math/sech'
+require 'facets/numeric/range'  # used to test within a precision
+
+test_case Math do
+
+  class_method :sech do
+    test do
+      Math.sech(1.0).range(1.0e-6).assert === 1.0 / Math.cosh(1.0)
+      Math.sech(2.0).range(1.0e-6).assert === 1.0 / Math.cosh(2.0)
+    end
+  end
+
+    # TODO: Check complementarity of cosh and sech
+    #assert_equal_float(1.0, Math.sech(-2.0) * Math.cosh(-2.0), 1.0e-6)
+    #assert_equal_float(1.0, Math.sech(-1.0) * Math.cosh(-1.0), 1.0e-6)
+    #assert_equal_float(1.0, Math.sech( 1.0) * Math.cosh( 1.0), 1.0e-6)
+    #assert_equal_float(1.0, Math.sech( 2.0) * Math.cosh( 2.0), 1.0e-6)
+
+end

data/test/standard/math/test_sign.rb

@@ -0,0 +1,20 @@
+require 'facets/math/sign'
+
+test_case Math do
+
+  class_method :sign do
+    test do
+      Math.sign(-3.1).assert == -1.0
+      Math.sign( 0.0).assert ==  0.0
+      Math.sign( 3.1).assert ==  1.0
+    end
+
+    # Check complementarity of abs and sign
+    #assert_equal_float(-2.0, Math.abs(-2.0) * Math.sign(-2.0), 1e-6)
+    #assert_equal_float( 0.0, Math.abs( 0.0) * Math.sign( 0.0), 1e-6)
+    #assert_equal_float( 3.0, Math.abs( 3.0) * Math.sign( 3.0), 1e-6)
+
+  end
+
+end
+

data/test/standard/math/test_sinc.rb

@@ -0,0 +1,15 @@
+require 'facets/math/sinc'
+
+test_case Math do
+
+  class_method :sinc do
+    test do
+      Math.sinc( 0.0).assert == 1.0
+      Math.sinc( 1.0).assert == Math.sin(1.0)
+      Math.sinc(-1.0).assert == Math.sin(1.0)
+      Math.sinc( 2.0).assert == 0.5 * Math.sin(2.0)
+      Math.sinc(-2.0).assert == 0.5 * Math.sin(2.0)
+    end
+  end
+
+end

data/test/standard/math/test_srq.rb

@@ -0,0 +1,20 @@
+require 'facets/math/sqr'
+require 'facets/numeric/range'
+
+test_case Math do
+
+  class_method :sqr do
+    test do
+      Math.sqr(-0.9).range(1.0e-6).assert === 0.81
+      Math.sqr(-0.7).range(1.0e-6).assert === 0.49
+      Math.sqr(-0.7).range(1.0e-6).assert === 0.49
+      Math.sqr( 0.9).range(1.0e-6).assert === 0.81
+    end
+  end
+
+  # TODO: Check complementarity of sqrt and sqr
+  #  assert_equal_float(0.3, Math.sqrt(Math.sqr( 0.3)), 1.0e-6)
+  #  assert_equal_float(0.3, Math.sqrt(Math.sqr(-0.3)), 1.0e-6)
+  #  assert_equal_float(0.3, Math.sqr(Math.sqrt( 0.3)), 1.0e-6)
+
+end

data/test/standard/pathname/test_chdir.rb

@@ -0,0 +1,16 @@
+covers 'facets/pathname/chdir'
+
+test_case Pathname do
+
+  method :chdir do
+
+    test do
+      Pathname.pwd.basename.to_s.assert != 'tmp'
+      Pathname.new('tmp').chdir do
+        Pathname.pwd.basename.to_s.assert == 'tmp'
+      end
+    end
+
+  end
+end
+

data/test/standard/pathname/test_readline.rb

@@ -0,0 +1,23 @@
+require 'pathname'
+
+covers 'facets/pathname/readline'
+
+test_case Pathname do
+
+  method :readline do
+
+    setup do
+      @test_file = Pathname.new('tmp/test_file')
+      File.open(@test_file, "w") { |f| f << "line1\nline2" }
+    end
+
+    test do
+      @test_file.readline.assert == "line1\n"
+    end
+
+  end
+end
+
+
+
+

data/test/standard/test_argvector.rb

@@ -0,0 +1,64 @@
+covers 'facets/argvector'
+
+test_case Argvector do
+
+  method :parameters do
+
+    test do
+      line = "-x baz --foo=8 bar"
+      cargs = Argvector.new(line)
+      args, keys = cargs.parameters
+      args.assert == ['baz','bar']
+      keys.assert == {'foo'=>'8','x'=>true}
+    end
+
+    test "with arity" do
+      line = "-g a -x b -x c"
+      cargs = Argvector.new(line, :g=>1, :x=>1)
+      args, keys = cargs.parameters
+      keys.assert == {'g'=>'a','x'=>['b','c']}
+      args.assert == []
+    end
+
+    test "repeated option" do
+      line = "-x baz --foo=1 --foo=2 bar"
+      cargs = Argvector.new(line)
+      args, keys = cargs.parameters
+      args.assert == ['baz','bar']
+      keys.assert == {'x'=>true,'foo'=>['1','2']}
+    end
+
+    test do
+      line = "-q baz --aq 5 bar"
+      cargs = Argvector.new(line,'aq'=>1)
+      words, flags = cargs.parameters
+      words.assert == ['baz','bar']
+      flags.assert == {'q'=>true,'aq'=>'5'}
+    end
+
+  end
+
+  method :preoptions do
+
+    test do
+      line = "-x --foo=7 baz -y bar"
+      cargs = Argvector.new(line)
+      flags = cargs.preoptions
+      flags.assert == {'x'=>true,'foo'=>'7'}
+    end
+
+  end
+
+  method :flags do
+
+    test do
+      line = "-x baz --foo=8 bar"
+      cargs = Argvector.new(line)
+      flags = cargs.flags
+      flags.assert == ['x']
+    end
+
+  end
+
+end
+

data/test/standard/test_cloneable.rb

@@ -0,0 +1,60 @@
+require 'facets/cloneable'
+
+test_case Cloneable do
+
+  foo = Class.new do
+    include Cloneable
+    def initialize
+      @bar=[]
+    end
+    def bar_id
+      @bar.object_id
+    end
+  end
+
+  method :dup do
+    test do
+      a = foo.new
+      b = a.dup
+      a.bar_id.refute == b.bar_id
+    end
+
+    test "tainted" do
+      a = foo.new
+      a.taint
+      b = a.dup
+      b.assert.tainted?
+    end
+
+    test "frozen" do
+      a = foo.new
+      a.freeze
+      b = a.dup
+      b.refute.frozen?
+    end
+  end
+
+  method :clone do
+    test do
+      a = foo.new
+      b = a.clone
+      assert(a.bar_id != b.bar_id, "should not be equal")
+    end
+
+    test "tainted" do
+      a = foo.new
+      a.taint
+      b = a.clone
+      assert b.tainted?, "b should be tainted"
+    end
+
+    test "frozen" do
+      a = foo.new
+      a.freeze
+      b = a.clone
+      assert b.frozen?, "b should be frozen"
+    end
+
+  end
+
+end

data/test/standard/test_date.rb

@@ -0,0 +1,82 @@
+covers 'facets/date'
+
+test_case Date do
+
+  setup "Date 2005-05-20" do
+    @d = Date.civil(2005, 04, 20)
+  end
+
+  method :to_date do
+    test do
+      @d.to_date.assert.instance_of?(::Date)
+    end
+  end
+
+  method :to_time do
+    test do
+      @d.to_time.assert.instance_of?(::Time)
+    end
+  end
+
+  method :to_s do
+    test do
+      @d.to_s.assert == "2005-04-20"
+    end
+  end
+
+  method :stamp do
+    test do
+      @d.stamp.assert == "2005-04-20"
+    end
+  end
+
+  method :stamp do
+    test do
+      @d.stamp(:short).assert == "20 Apr"
+    end
+  end
+
+  method :stamp do
+    test do
+      @d.stamp(:long).assert == "April 20, 2005"
+    end
+  end
+
+  method :days_in_month do
+    test do
+      @d.days_in_month.assert == 30
+    end
+  end
+
+  method :days_of_month do
+    test do
+      @d.days_of_month.assert == (1..(@d.days_in_month)).to_a
+    end
+  end
+
+end
+
+test_case String do
+
+  method :to_date do
+    test do
+      s = "2005-10-31"
+      d = s.to_date
+      d.day.assert == 31
+      d.month.assert == 10
+      d.year.assert == 2005
+    end
+  end
+
+end
+
+test_case Time do
+
+  method :to_date do
+    test do
+      t = Time.now #parse('4/20/2005 15:37')
+      t.to_date.assert.instance_of?(::Date)
+    end
+  end
+
+end