when_exe 0.2.100 → 0.3.1

data/test/test/inspect.rb

@@ -0,0 +1,115 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license
+  described in the LICENSE.txt file included in this archive.
+=end
+
+module Test
+
+  class Inspect < Test::Unit::TestCase
+
+    def test__strftime_1
+      ns     = 'ISO, jwiki=http://ja.wikipedia.org/wiki/, ewiki=http://en.wikipedia.org/wiki/'
+      locale = '=jwiki:, en=ewiki:'
+      term1  = When::BasicTypes::M17n.new('[月曜, Monday]',                      ns, locale)
+      term2  = When::BasicTypes::M17n.new('[です, It is]',                       ns, locale)
+      form   = When::BasicTypes::M17n.new('[%s%s%2d:, %2$s %1$s%3$2d-]', ns, locale)
+      assert_equal(["月曜です 1%", "It is Monday 1%"],
+        ['ja_JP', 'en_US'].map {|c| (form % [term1, term2, When::Coordinates::Pair.new(1,-2)]).translate(c)})
+
+      assert_equal("2:", "%d:" % When::Coordinates::Pair.new(1,1))
+      assert_equal("1=", When.m17n("%d:") % When::Coordinates::Pair.new(1,1))
+
+      date = When.when?('2011-02-28T12:34:56+09:00')
+      assert_equal(["February", {""=>"February", "ja"=>"2月"}], [date.name(-1).to_s, date.name(-1).names])
+      assert_equal("Mon Feb 28 12:34:56 +0900 2011", date.strftime('%+'))
+
+      date = When.when?('2011-05-17T12:34:56', {:clock=>'+09:00'})
+    # assert_equal("5月", date.strftime('%.2b').translate('ja'))
+      assert_equal("05", date.strftime('%m'))
+      assert_equal("Tue May 17 12:34:56 +0900 2011", date.strftime('%+'))
+    # assert_equal("火 5月 17 12:34:56 +0900 2011", date.strftime('%+').translate('ja'))
+
+      clock = When.Clock('+09:00')
+      #pp clock.to_s
+      assert_equal("+09:00", clock.label.to_s)
+      assert_equal(nil, clock.referenceEvent)
+      assert_equal("T00+09:00", clock.referenceTime.to_s)
+      assert_equal("T*15:00:00Z", clock.utcReference.to_s)
+    end
+
+    def test__strftime_2
+      [['%c', 'ja', '2012/04/03 10:14:00'], ['%c', 'fr', '03 avril 2012 10:14:00'],
+       ['%x', 'ja', '2012/04/03'         ], ['%x', 'fr', '03/04/2012'            ],
+       ['%X', 'ja', '10:14:00'           ], ['%X', 'fr', '10:14:00'              ]
+      ].each do |sample|
+        assert_equal(sample[2], When.when?('2012-4-3T10:14:00').
+          strftime(sample[0], sample[1]))
+      end
+    end
+
+    def test__strftime_3
+      [['DateTime',      'ja', '2012/04/03 10:14:00'                  ], ['DateTime',      'fr', '03 avril 2012 10:14:00'   ],
+       ['DateTimeLong',  'ja', '2012年04月03日(火) 10時14分00秒 +0000'], ['DateTimeLong',  'fr', 'mardi 03 avril 2012 10:14'],
+       ['DateTimeShort', 'ja', '12/04/03 10:14'                       ], ['DateTimeShort', 'fr', '03 avr 10:14'             ],
+       ['Date',          'ja', '2012/04/03'                           ], ['Date',          'fr', '03/04/2012'               ],
+       ['DateLong',      'ja', '2012年04月03日(火)'                   ], ['DateLong',      'fr', ' 3 avril 2012'            ],
+       ['DateShort',     'ja', '04/03'                                ], ['DateShort',     'fr', ' 3 avr'                   ],
+       ['Time',          'ja', '10:14:00'                             ], ['Time',          'fr', '10:14:00'                 ]
+      ].each do |sample|
+        assert_equal(sample[2], When.when?('2012-4-3T10:14:00').
+          strftime(When.Resource('_m:CalendarFormats::'+sample[0]), sample[1]))
+      end
+    end
+
+    def test__name
+      month = When.when?('AP1393.1.1T12:34:56').name('month')
+      assert_equal("فروردین", month.translate('ar'))
+    end
+
+    def test__coordinates
+      date = When.when?('2012.3=16T12:34:56', {:frame=>When::CalendarTypes::ChineseLuniSolar.new({'timezone'=>9})})
+      assert_equal(2012, date.year  )
+      assert_equal(When::Coordinates::Pair.new(3,1), date.month)
+      assert_equal(  16, date.day   )
+      assert_equal(  12, date.hour  )
+      assert_equal(  34, date.minute)
+      assert_equal(  56, date.second)
+      assert_equal(   4, date.ymon  )
+      assert_equal( 105, date.yday  )
+      assert_equal(  16, date.mday  )
+      assert_equal(   0, date.wday  )
+    end
+
+    def mweek(dow, day)
+      dow = (dow + 1) % 7
+      w,d = (day - 1).divmod(7)
+      (d < dow) ? w : w+1
+    end
+
+    def test__term
+     # [13,14,15].each do |d|
+     #   7.times do |i|
+     #      p [d, i, mweek(i, d)]
+     #   end
+     # end
+     # raise
+      format = ['%U %w %W %j', '%G-W%V-%u']
+      7.times do |i|
+        2.times do |k|
+          [ '1-1' , '1-2' , '1-3' , '1-4' , '1-5' , '1-6' , '1-7' , '1-8' ,
+           '12-24','12-25','12-26','12-27','12-28','12-29','12-30','12-31',].each do |m|
+            date1 = When.when?("#{2000+4*i+k}-#{m}")
+            expr0 = format.map {|f| date1.to_date.strftime(f)}
+            date2 = When.when?(expr0[1])
+            expr1 = format.map {|f| date1.strftime(f)}
+            expr2 = format.map {|f| date2.strftime(f)}
+            assert_equal([expr0,expr0,mweek(date1.to_i % 7, date1.day)], [expr1,expr2,date1.mweek])
+          end
+        end
+      end
+   end
+  end
+end

data/test/test/parts.rb

@@ -0,0 +1,480 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2012 Takashi SUGA
+
+  You may use and/or modify this file according to the license
+  described in the LICENSE.txt file included in this archive.
+=end
+
+module When::Parts
+  class GeometricComplex
+    def ==(other)
+      return false unless other.kind_of?(self.class)
+      return self.node == other.node && self.reverse == other.reverse
+    end
+  end
+end
+
+module Test::Parts
+
+  class MethodCash < Test::Unit::TestCase
+    class A
+      include When::Parts::MethodCash
+
+      def func_0_(x)
+        #pp ['--0--',x]
+        return x**2
+      end
+
+      def func_0_setup(k, x)
+        #pp ['-0-setup-',k,x]
+        @_m_cash_["func_0"][k] ||= x**2
+      end
+
+      def func_1_(x)
+        #pp ['--1--',x]
+        return x**4
+      end
+
+      def _from_to_to_(x,y)
+        #pp ['--2--',x, y]
+        return 10 * x + y
+      end
+
+      def _to_to_from_(x)
+        #pp ['--3--',x]
+        return x.divmod(10)
+      end
+
+      def cash
+        @_m_cash_
+      end
+    end
+
+    class B < A
+      def initialize
+        @_m_cash_lock_ = Mutex.new
+      end
+    end
+
+    def test__method_cash
+      [A, B].each do |klass|
+        c = klass.new
+        assert_equal(4, c.func_0(2))
+        assert_equal(4, c.func_0(2))
+        assert_equal({"func_0"=>{2=>4}}, c.cash)
+        assert_equal(16, c.func_1(2))
+        assert_equal(16, c.func_1(2))
+        assert_equal({"func_1"=>{2=>16}, "func_0"=>{2=>4}}, c.cash)
+        assert_equal(34, c._from_to_to(3,4))
+        assert_equal([3, 4], c._to_to_from(34))
+        assert_equal([3, 3], c._to_to_from(33))
+        assert_equal({"func_1"=>{2=>16}, "func_0"=>{2=>4},
+                      "_from_to_to"=>{[3, 3]=>[33], [3, 4]=>34}, "_to_to_from"=>{33=>[3, 3], 34=>[3, 4]}}, c.cash)
+      end
+    end
+  end
+
+  class SnapShot < Test::Unit::TestCase
+    def test_nothing
+    end
+  end
+
+  class Locale < Test::Unit::TestCase
+    Term1 = When.m17n('Tokyo', 'zip')
+    Term2 = When.m17n(<<LABEL, <<NS, <<LOCALE)
+[
+Getsuyou
+Monday
+]
+LABEL
+ISO, jwiki=http://ja.wikipedia.org/wiki/, ewiki=http://en.wikipedia.org/wiki/
+NS
+=jwiki:, en=ewiki:
+LOCALE
+    Term3 = When.Resource('_co:CommonResidue::Week::Monday::Monday')
+
+    def test__locale
+      assert_equal("Tokyo", Term1.translate('en_US'))
+      assert_equal("Monday", Term2.translate('en_US'))
+      assert_equal("Monday", Term3.translate('en_US'))
+    end
+
+    def test__reference
+      assert_equal(nil, Term1.reference('ja_JP'))
+      assert_equal(nil, Term1.reference('en_US'))
+      assert_equal("http://ja.wikipedia.org/wiki/Getsuyou", Term2.reference('ja_JP'))
+      assert_equal("http://en.wikipedia.org/wiki/Monday", Term2.reference('en_US'))
+      assert_equal("http://ja.wikipedia.org/wiki/%E6%9C%88%E6%9B%9C%E6%97%A5", Term3.reference('ja_JP'))
+    end
+
+    def test__labels
+      assert_equal({""=>"Tokyo"}, Term1.names)
+      assert_equal({""=>"Getsuyou", "en"=>"Monday"}, Term2.names)
+    # assert_equal({""=>"Monday", "ja"=>"月曜日"}, Term3.names)
+    end
+
+    def test__link
+      assert_equal({},Term1.link)
+      assert_equal({""=>"http://ja.wikipedia.org/wiki/Getsuyou",
+                   "en"=>"http://en.wikipedia.org/wiki/Monday"}, Term2.link)
+      assert_equal({"ja"=>"http://ja.wikipedia.org/wiki/%E6%9C%88%E6%9B%9C%E6%97%A5",
+                    ""=>"http://en.wikipedia.org/wiki/Monday"}, Term3.link)
+    end
+
+    def test__prefix
+      date = When.when?('0594-09=12^Japanese')
+      assert_equal(["閏長月", String], [date.name('Month').label, date.name('Month').label.class])
+      assert_equal(["閏長月", String], [date.name('Month').to_s,  date.name('Month').to_s.class])
+      assert_equal("閏長月", date.name('Month').translate('日本語'))
+      assert_equal("Intercalary 9th Month", date.name('Month').translate('en_US'))
+    end
+  end
+
+  class IRI < Test::Unit::TestCase
+    def test_nothing
+    end
+  end
+
+  class Enumerator < Test::Unit::TestCase
+
+    def test_nothing
+    end
+
+    class Array < Test::Unit::TestCase
+      def test_nothing
+      end
+    end
+
+    class Integrated < Test::Unit::TestCase
+      def test_nothing
+      end
+    end
+  end
+
+  class GeometricComplex < Test::Unit::TestCase
+
+    def test__include
+
+      sample  = [false, false, false, false, false]
+      complex = When::Parts::GeometricComplex.new(false)
+      assert_equal(nil, complex.exclude_end?)
+      (1..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample  = [true, true, true, true, true]
+      complex = When::Parts::GeometricComplex.new(true)
+      assert_equal(nil, complex.exclude_end?)
+      (1..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample  = [false, true, true, true, false]
+      complex = When::Parts::GeometricComplex.new(2..4)
+      assert_equal(false, complex.exclude_end?)
+      (1..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample  = [false, true, true, false, false]
+      complex = When::Parts::GeometricComplex.new(2...4)
+      assert_equal(true, complex.exclude_end?)
+      (1..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample  = [true, false, false, false, true]
+      complex = -When::Parts::GeometricComplex.new(2..4)
+      assert_equal(true, complex.exclude_end?)
+      (1..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample  = [true, false, false, true, true]
+      complex = -When::Parts::GeometricComplex.new(2...4)
+      assert_equal(false, complex.exclude_end?)
+      (1..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      period_1_2 = When::Parts::GeometricComplex.new(1..2)
+      period_2_3 = When::Parts::GeometricComplex.new(2..3)
+      period_3_4 = When::Parts::GeometricComplex.new(3..4)
+      period_4_5 = When::Parts::GeometricComplex.new(4..5)
+      period_5_6 = When::Parts::GeometricComplex.new(5..6)
+
+      period_2_4 = When::Parts::GeometricComplex.new(2..4)
+      period_3_6 = When::Parts::GeometricComplex.new(3..6)
+      period_4_6 = When::Parts::GeometricComplex.new(4..6)
+      period_1_6 = When::Parts::GeometricComplex.new(1..6)
+
+      [[false,        period_1_2, period_4_6],
+       [false,        period_1_2, period_2_4],
+       [false,        period_2_4, period_3_6],
+       [false,        period_2_3, period_2_4],
+       [true,         period_2_4, period_2_3],
+
+       [false,        period_2_4, period_1_6],
+       [true,         period_1_6, period_2_4],
+       [true,         period_2_4, period_2_4],
+
+       [false,        period_3_6, period_2_4],
+       [false,        period_3_4, period_2_4],
+       [true,         period_2_4, period_3_4],
+       [false,        period_4_5, period_2_4],
+       [false,        period_5_6, period_2_4]].each do |sample|
+        assert_equal(sample[0], sample[1].include?(sample[2]))
+      end
+
+      period_1_2 = When::Parts::GeometricComplex.new(1...2)
+      period_2_3 = When::Parts::GeometricComplex.new(2...3)
+      period_3_4 = When::Parts::GeometricComplex.new(3...4)
+      period_4_5 = When::Parts::GeometricComplex.new(4...5)
+      period_5_6 = When::Parts::GeometricComplex.new(5...6)
+
+      period_2_4 = When::Parts::GeometricComplex.new(2...4)
+      period_3_6 = When::Parts::GeometricComplex.new(3...6)
+      period_4_6 = When::Parts::GeometricComplex.new(4...6)
+      period_1_6 = When::Parts::GeometricComplex.new(1...6)
+
+      [[false,        period_1_2, period_4_6],
+       [false,        period_1_2, period_2_4],
+       [false,        period_2_4, period_3_6],
+       [false,        period_2_3, period_2_4],
+       [true,         period_2_4, period_2_3],
+
+       [false,        period_2_4, period_1_6],
+       [true,         period_1_6, period_2_4],
+       [true,         period_2_4, period_2_4],
+
+       [false,        period_3_6, period_2_4],
+       [false,        period_3_4, period_2_4],
+       [true,         period_2_4, period_3_4],
+       [false,        period_4_5, period_2_4],
+       [false,        period_5_6, period_2_4]].each do |sample|
+        assert_equal(sample[0], sample[1].include?(sample[2]))
+      end
+
+      period_1_2 = -When::Parts::GeometricComplex.new(1..2)
+      period_2_3 = -When::Parts::GeometricComplex.new(2..3)
+      period_3_4 = -When::Parts::GeometricComplex.new(3..4)
+      period_4_5 = -When::Parts::GeometricComplex.new(4..5)
+      period_5_6 = -When::Parts::GeometricComplex.new(5..6)
+
+      period_2_4 = -When::Parts::GeometricComplex.new(2..4)
+      period_3_6 = -When::Parts::GeometricComplex.new(3..6)
+      period_4_6 = -When::Parts::GeometricComplex.new(4..6)
+      period_1_6 = -When::Parts::GeometricComplex.new(1..6)
+
+      [[false,        period_4_6, period_1_2],
+       [false,        period_2_4, period_1_2],
+       [false,        period_3_6, period_2_4],
+       [false,        period_2_4, period_2_3],
+       [true,         period_2_3, period_2_4],
+
+       [false,        period_1_6, period_2_4],
+       [true,         period_2_4, period_1_6],
+       [true,         period_2_4, period_2_4],
+
+       [false,        period_2_4, period_3_6],
+       [false,        period_2_4, period_3_4],
+       [true,         period_3_4, period_2_4],
+       [false,        period_2_4, period_4_5],
+       [false,        period_2_4, period_5_6]].each do |sample|
+        assert_equal(sample[0], sample[1].include?(sample[2]))
+      end
+
+      period_1_2 = -When::Parts::GeometricComplex.new(1...2)
+      period_2_3 = -When::Parts::GeometricComplex.new(2...3)
+      period_3_4 = -When::Parts::GeometricComplex.new(3...4)
+      period_4_5 = -When::Parts::GeometricComplex.new(4...5)
+      period_5_6 = -When::Parts::GeometricComplex.new(5...6)
+
+      period_2_4 = -When::Parts::GeometricComplex.new(2...4)
+      period_3_6 = -When::Parts::GeometricComplex.new(3...6)
+      period_4_6 = -When::Parts::GeometricComplex.new(4...6)
+      period_1_6 = -When::Parts::GeometricComplex.new(1...6)
+
+      [[false,        period_4_6, period_1_2],
+       [false,        period_2_4, period_1_2],
+       [false,        period_3_6, period_2_4],
+       [false,        period_2_4, period_2_3],
+       [true,         period_2_3, period_2_4],
+
+       [false,        period_1_6, period_2_4],
+       [true,         period_2_4, period_1_6],
+       [true,         period_2_4, period_2_4],
+
+       [false,        period_2_4, period_3_6],
+       [false,        period_2_4, period_3_4],
+       [true,         period_3_4, period_2_4],
+       [false,        period_2_4, period_4_5],
+       [false,        period_2_4, period_5_6]].each do |sample|
+        assert_equal(sample[0], sample[1].include?(sample[2]))
+      end
+    end
+
+    def test__union
+
+      sample   = [false, true, false, true, true, false]
+      complex  = When::Parts::GeometricComplex.new(3..4)
+      complex |= 1
+      (0..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample   = [true, false, true, false, false, true]
+      complex  = When::Parts::GeometricComplex.new(3..4)
+      complex |= 1
+      complex  = -complex
+      (0..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample   = [false, true, false, true, false, false]
+      complex  = When::Parts::GeometricComplex.new(3...4)
+      complex |= 1
+      (0..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      sample   = [true, false, true, false, true, true]
+      complex  = When::Parts::GeometricComplex.new(3...4)
+      complex |= 1
+      complex  = -complex
+      (0..5).each do |i|
+        assert_equal(sample.shift, complex.include?(i))
+      end
+
+      complex  = When::Parts::GeometricComplex.new(3..5)
+      (3..5).each do |i|
+        union  = complex | i
+        assert_equal(complex, union)
+      end
+
+      assert_equal(When::Parts::GeometricComplex.new(3..5),
+                   When::Parts::GeometricComplex.new(3...5) | 5)
+
+      null       = When::Parts::GeometricComplex.new(false)
+      all        = When::Parts::GeometricComplex.new(true)
+      period_1_2 = When::Parts::GeometricComplex.new(1..2)
+      period_2_3 = When::Parts::GeometricComplex.new(2..3)
+      period_3_4 = When::Parts::GeometricComplex.new(3..4)
+      period_4_5 = When::Parts::GeometricComplex.new(4..5)
+      period_5_6 = When::Parts::GeometricComplex.new(5..6)
+
+      period_1_4 = When::Parts::GeometricComplex.new(1..4)
+      period_2_4 = When::Parts::GeometricComplex.new(2..4)
+      period_2_5 = When::Parts::GeometricComplex.new(2..5)
+      period_2_6 = When::Parts::GeometricComplex.new(2..6)
+      period_3_6 = When::Parts::GeometricComplex.new(3..6)
+      period_4_6 = When::Parts::GeometricComplex.new(4..6)
+      period_1_6 = When::Parts::GeometricComplex.new(1..6)
+
+      period_1_2_4_6 = When::Parts::GeometricComplex.new([[1,true],[2,true],[4,true],[6,true]])
+      period_2_4_5_6 = When::Parts::GeometricComplex.new([[2,true],[4,true],[5,true],[6,true]])
+
+      [[period_1_2_4_6, null,   period_1_2_4_6],
+       [period_1_2_4_6, period_1_2_4_6,   null],
+       [all,            all,    period_1_2_4_6],
+       [all,            period_1_2_4_6,    all],
+       [period_1_2_4_6, period_1_2, period_4_6],
+       [period_1_4,     period_1_2, period_2_4],
+       [period_2_6,     period_2_4, period_3_6],
+       [period_2_4,     period_2_3, period_2_4],
+       [period_2_4,     period_2_4, period_2_3],
+
+       [period_1_6,     period_2_4, period_1_6],
+       [period_1_6,     period_1_6, period_2_4],
+       [period_2_4,     period_2_4, period_2_4],
+
+       [period_2_6,     period_3_6, period_2_4],
+       [period_2_4,     period_3_4, period_2_4],
+       [period_2_4,     period_2_4, period_3_4],
+       [period_2_5,     period_4_5, period_2_4],
+       [period_2_4_5_6, period_5_6, period_2_4]].each do |sample|
+        assert_equal(sample[0], sample[1] | sample[2])
+      end
+
+      period_1_2 = When::Parts::GeometricComplex.new(1...2)
+      period_2_3 = When::Parts::GeometricComplex.new(2...3)
+      period_3_4 = When::Parts::GeometricComplex.new(3...4)
+      period_4_5 = When::Parts::GeometricComplex.new(4...5)
+      period_5_6 = When::Parts::GeometricComplex.new(5...6)
+
+      period_1_4 = When::Parts::GeometricComplex.new(1...4)
+      period_2_4 = When::Parts::GeometricComplex.new(2...4)
+      period_2_5 = When::Parts::GeometricComplex.new(2...5)
+      period_2_6 = When::Parts::GeometricComplex.new(2...6)
+      period_3_6 = When::Parts::GeometricComplex.new(3...6)
+      period_4_6 = When::Parts::GeometricComplex.new(4...6)
+      period_1_6 = When::Parts::GeometricComplex.new(1...6)
+
+      period_1_2_4_6 = When::Parts::GeometricComplex.new([[1,true],[2,false],[4,true],[6,false]])
+      period_2_4_5_6 = When::Parts::GeometricComplex.new([[2,true],[4,false],[5,true],[6,false]])
+
+      [[period_1_2_4_6, null,   period_1_2_4_6],
+       [period_1_2_4_6, period_1_2_4_6,   null],
+       [all,            all,    period_1_2_4_6],
+       [all,            period_1_2_4_6,    all],
+       [period_1_2_4_6, period_1_2, period_4_6],
+       [period_1_4,     period_1_2, period_2_4],
+       [period_2_6,     period_2_4, period_3_6],
+       [period_2_4,     period_2_3, period_2_4],
+       [period_2_4,     period_2_4, period_2_3],
+
+       [period_1_6,     period_2_4, period_1_6],
+       [period_1_6,     period_1_6, period_2_4],
+       [period_2_4,     period_2_4, period_2_4],
+
+       [period_2_6,     period_3_6, period_2_4],
+       [period_2_4,     period_3_4, period_2_4],
+       [period_2_4,     period_2_4, period_3_4],
+       [period_2_5,     period_4_5, period_2_4],
+       [period_2_4_5_6, period_5_6, period_2_4]].each do |sample|
+        assert_equal(sample[0], sample[1] | sample[2])
+      end
+    end
+
+    def test__include_in_sample
+      range_1_4  = When::Parts::GeometricComplex.new(1,4)
+      range_2_2  = When::Parts::GeometricComplex.new(2)
+      range_2_3  = When::Parts::GeometricComplex.new(2,3)
+      range_2_5  = When::Parts::GeometricComplex.new(2,5)
+      range_4_4  = When::Parts::GeometricComplex.new(4)
+      assert_equal(true, range_1_4.include?(range_2_2))
+      assert_equal(true, range_1_4.include?(range_2_3))
+      assert_equal(false, range_1_4.include?(range_2_5))
+      assert_equal(false, range_1_4.include?(range_4_4))
+    end
+
+    def test__union_in_sample
+      #range_null = When::Parts::GeometricComplex.new()
+      #range_1_1  = When::Parts::GeometricComplex.new(1)
+      range_1_4  = When::Parts::GeometricComplex.new(1,4)
+      range_2_2  = When::Parts::GeometricComplex.new(2)
+      range_2_3  = When::Parts::GeometricComplex.new(2,3)
+      range_2_5  = When::Parts::GeometricComplex.new(2,5)
+      range_4_4  = When::Parts::GeometricComplex.new(4)
+      assert_equal("1...4", range_1_4.to_s)
+      assert_equal("2...3", range_2_3.to_s)
+      sample = [1, 2, 3]
+      range_1_4.each {|x| assert_equal(sample.shift, x)}
+      assert_equal("4..4", range_4_4.to_s)
+      assert_equal("1...4", (range_1_4 | range_2_3).to_s)
+      range_1_5 = range_1_4 | range_2_5
+      assert_equal("1...5", range_1_5.to_s)
+      assert_equal("1..4", (range_1_4 | range_4_4).to_s)
+      reverse_all  = When::Parts::GeometricComplex.new(true)
+      reverse_1_4  = When::Parts::GeometricComplex.new(1,4, true)
+      reverse_2_3  = When::Parts::GeometricComplex.new(2,3, true)
+      reverse_2_5  = When::Parts::GeometricComplex.new(2,5, true)
+      assert_equal("..", reverse_all.to_s)
+      assert_equal("1..4", reverse_1_4.to_s)
+      assert_equal("2..3", reverse_2_3.to_s)
+      assert_equal("..", (reverse_2_3 | range_2_3).to_s)
+      assert_equal("1..2", (reverse_1_4 | range_2_5).to_s)
+    end
+  end
+end