xqsr3 0.38.2 → 0.39.2

data/test/unit/extensions/hash/tc_except.rb

@@ -11,57 +11,57 @@ require 'stringio'
 
 class Test_Hash_except < Test::Unit::TestCase
 
-	def test_no_pairs_empty_keys
+  def test_no_pairs_empty_keys
 
-		h = {}
+    h = {}
 
-		assert_equal h, h.except([])
+    assert_equal h, h.except([])
 
-		i = {}
+    i = {}
 
-		i.except! *[]
+    i.except!(*[])
 
-		assert_equal h, i
-	end
+    assert_equal h, i
+  end
 
-	def test_no_pairs_some_keys
+  def test_no_pairs_some_keys
 
-		h = {}
+    h = {}
 
-		assert_equal h, h.except('a', :b)
+    assert_equal h, h.except('a', :b)
 
-		i = {}
+    i = {}
 
-		i.except! 'a', :b
+    i.except! 'a', :b
 
-		assert_equal h, i
-	end
+    assert_equal h, i
+  end
 
-	def test_no_pairs_some_non_matching_keys
+  def test_no_pairs_some_non_matching_keys
 
-		h = { a: 'a', 'b' => :b }
+    h = { a: 'a', 'b' => :b }
 
-		assert_equal h, h.except('a', :b)
+    assert_equal h, h.except('a', :b)
 
-		i = h.dup
+    i = h.dup
 
-		i.except! 'a', :b
+    i.except! 'a', :b
 
-		assert_equal h, i
-	end
+    assert_equal h, i
+  end
 
-	def test_no_pairs_some_matching_keys
+  def test_no_pairs_some_matching_keys
 
-		h = { a: 'a', 'b' => :b }
+    h = { a: 'a', 'b' => :b }
 
-		assert_equal ({ 'b' => :b }), h.except(:a, :b, :c)
+    assert_equal ({ 'b' => :b }), h.except(:a, :b, :c)
 
-		i = h.dup
+    i = h.dup
 
-		i.except! :a, :b, :c
+    i.except! :a, :b, :c
 
-		assert_equal ({ 'b' => :b }), i
-	end
+    assert_equal ({ 'b' => :b }), i
+  end
 end
 
 

data/test/unit/extensions/hash/tc_slice.rb

@@ -6,26 +6,26 @@ require 'xqsr3/extensions/hash/slice'
 
 class Test_Hash_slice < Test::Unit::TestCase
 
-	def test_empty
+  def test_empty
 
-		assert_equal ({}), ({}.slice())
+    assert_equal ({}), ({}.slice())
 
-		assert_equal ({}), ({}.slice(:abc, 'def'))
-	end
+    assert_equal ({}), ({}.slice(:abc, 'def'))
+  end
 
-	def test_none_matching
+  def test_none_matching
 
-		assert_equal ({}), ({ abc: 'abc', 'def' => :def }.slice())
-	end
+    assert_equal ({}), ({ abc: 'abc', 'def' => :def }.slice())
+  end
 
-	def test_all_matching
+  def test_all_matching
 
-		assert_equal ({ abc: 'abc', 'def' => :def }), ({ abc: 'abc', 'def' => :def }.slice(:abc, 'def'))
-	end
+    assert_equal ({ abc: 'abc', 'def' => :def }), ({ abc: 'abc', 'def' => :def }.slice(:abc, 'def'))
+  end
 
-	def test_some_matching
+  def test_some_matching
 
-		assert_equal ({ abc: 'abc' }), ({ abc: 'abc', 'def' => :def }.slice(:abc, 'ghi'))
-	end
+    assert_equal ({ abc: 'abc' }), ({ abc: 'abc', 'def' => :def }.slice(:abc, 'ghi'))
+  end
 end
 

data/test/unit/extensions/integer/tc_to_s_grp.rb

@@ -0,0 +1,60 @@
+#! /usr/bin/env ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/integer/to_s_grp'
+
+require 'test/unit'
+
+class Test_X_Integer_to_s_grp < Test::Unit::TestCase
+
+  def test_no_args
+
+    assert_equal "87654321", 87654321.to_s_grp
+  end
+
+  def test_single_number
+
+    assert_equal "87,654,321", 87654321.to_s_grp(3)
+    assert_equal "87,65,43,21", 87654321.to_s_grp(2)
+    assert_equal "8,7,6,5,4,3,2,1", 87654321.to_s_grp(1)
+
+    assert_equal "876,54321", 87654321.to_s_grp(5)
+  end
+
+  def test_array_with_single_number
+
+    assert_equal "87,654,321", 87654321.to_s_grp([3])
+    assert_equal "87,65,43,21", 87654321.to_s_grp([2])
+    assert_equal "8,7,6,5,4,3,2,1", 87654321.to_s_grp([1])
+
+    assert_equal "876,54321", 87654321.to_s_grp([5])
+  end
+
+  def test_with_multiple_numbers
+
+    assert_equal "87,654,321", 87654321.to_s_grp(3, 3)
+    assert_equal "87,65,43,21", 87654321.to_s_grp(2, 2, 2)
+    assert_equal "8,7,6,5,4,3,2,1", 87654321.to_s_grp(1, 1, 1, 1, 1, 1, 1)
+
+    assert_equal "876,54321", 87654321.to_s_grp(5, 5)
+
+    assert_equal "8,76,54,321", 87654321.to_s_grp(3, 2, 2)
+    assert_equal "8,76,54,321", 87654321.to_s_grp(3, 2)
+    assert_equal "8,76,543,21", 87654321.to_s_grp(2, 3, 2)
+  end
+
+  def test_array_with_multiple_numbers
+
+    assert_equal "87,654,321", 87654321.to_s_grp([3, 3])
+    assert_equal "87,65,43,21", 87654321.to_s_grp([2, 2, 2])
+    assert_equal "8,7,6,5,4,3,2,1", 87654321.to_s_grp([1, 1, 1, 1, 1, 1, 1])
+
+    assert_equal "876,54321", 87654321.to_s_grp([5, 5])
+
+    assert_equal "8,76,54,321", 87654321.to_s_grp([3, 2, 2])
+    assert_equal "8,76,54,321", 87654321.to_s_grp([3, 2])
+    assert_equal "8,76,543,21", 87654321.to_s_grp([2, 3, 2])
+  end
+end
+

data/test/unit/extensions/integer/ts_all.rb

@@ -0,0 +1,12 @@
+#! /usr/bin/env ruby
+#
+# executes all other tests
+
+this_dir    =   File.expand_path(File.dirname(__FILE__))
+
+# all tc_*rb in current directory
+Dir[File.join(this_dir, 'tc_*rb')].each { |file| require file }
+
+# all ts_*rb in immediate sub-directories
+Dir[File.join(this_dir, '*', 'ts_*rb')].each { |file| require file }
+

data/test/unit/extensions/io/tc_writelines.rb

@@ -10,137 +10,209 @@ require 'stringio'
 
 class Test_IO_writelines < Test::Unit::TestCase
 
-	def test_single_string
+  def test_single_string
 
-		input = 'abc'
+    input = 'abc'
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input
+    r = ::IO.writelines s, input
 
-		assert_equal 1, r
-		assert_equal "abc\n", s.string
-	end
+    assert_equal 1, r
+    assert_equal "abc\n", s.string
+  end
 
-	def test_single_string_nolasteol
+  def test_single_string_nolasteol
 
-		input = 'abc'
+    input = 'abc'
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input, no_last_eol: true
+    r = ::IO.writelines s, input, no_last_eol: true
 
-		assert_equal 1, r
-		assert_equal "abc", s.string
-	end
+    assert_equal 1, r
+    assert_equal "abc", s.string
+  end
 
-	def test_single_string_in_array
+  def test_single_string_in_array
 
-		input = [ 'abc' ]
+    input = [ 'abc' ]
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input
+    r = ::IO.writelines s, input
 
-		assert_equal 1, r
-		assert_equal "abc\n", s.string
-	end
+    assert_equal 1, r
+    assert_equal "abc\n", s.string
+  end
 
-	def test_single_string_in_hash
+  def test_single_string_in_hash
 
-		input = { 'abc' => '' }
+    input = { 'abc' => '' }
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input
+    r = ::IO.writelines s, input
 
-		assert_equal 1, r
-		assert_equal "abc\n", s.string
-	end
+    assert_equal 1, r
+    assert_equal "abc\n", s.string
+  end
 
-	def test_single_string_in_hash_nolasteol
+  def test_single_string_in_hash_nolasteol
 
-		input = { 'abc' => '' }
+    input = { 'abc' => '' }
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input, no_last_eol: true
+    r = ::IO.writelines s, input, no_last_eol: true
 
-		assert_equal 1, r
-		assert_equal "abc", s.string
-	end
+    assert_equal 1, r
+    assert_equal "abc", s.string
+  end
 
-	def test_two_strings_in_array
+  def test_two_strings_in_array
 
-		input = [ 'abc', 'def' ]
+    input = [ 'abc', 'def' ]
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input
+    r = ::IO.writelines s, input
 
-		assert_equal 2, r
-		assert_equal "abc\ndef\n", s.string
-	end
+    assert_equal 2, r
+    assert_equal "abc\ndef\n", s.string
+  end
 
-	def test_two_strings_in_array_with_suppressed_eol
+  def test_two_strings_in_array_with_suppressed_eol
 
-		input = [ 'abc', 'def' ]
+    input = [ 'abc', 'def' ]
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input, ''
+    r = ::IO.writelines s, input, ''
 
-		assert_equal 2, r
-		assert_equal "abcdef", s.string
-	end
+    assert_equal 2, r
+    assert_equal "abcdef", s.string
+  end
 
-	def test_two_strings_in_hash
+  def test_two_strings_in_hash
 
-		input = { 'ab' => 'c', 'de' => 'f' }
+    input = { 'ab' => 'c', 'de' => 'f' }
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input
+    r = ::IO.writelines s, input
 
-		assert_equal 2, r
-		assert_equal "abc\ndef\n", s.string
-	end
+    assert_equal 2, r
+    assert_equal "abc\ndef\n", s.string
+  end
 
-	def test_two_strings_in_hash_nolasteol
+  def test_two_strings_in_hash_nolasteol
 
-		input = { 'ab' => 'c', 'de' => 'f' }
+    input = { 'ab' => 'c', 'de' => 'f' }
 
-		s = StringIO.new '', 'a'
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input, no_last_eol: true
+    r = ::IO.writelines s, input, no_last_eol: true
 
-		assert_equal 2, r
-		assert_equal "abc\ndef", s.string
-	end
+    assert_equal 2, r
+    assert_equal "abc\ndef", s.string
+  end
 
-	def test_ten_strings_in_array
+  def test_two_strings_in_hash_with_col_sep
 
-		input = (0...10).map { |i| i.to_s }
+    input = { 'ab' => 'c', 'de' => 'f' }
 
-		s = StringIO.new
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input
+    r = ::IO.writelines s, input, column_separator: "\t"
 
-		assert_equal 10, r
-		assert_equal "0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n", s.string
-	end
+    assert_equal 2, r
+    assert_equal "ab\tc\nde\tf\n", s.string
+  end
 
-	def test_strings_with_cr_in_array
+  def test_two_strings_in_hash_with_line_sep
 
-		input = [ "abc\n", "def\n", "ghi\n" ]
+    input = { 'ab' => 'c', 'de' => 'f' }
 
-		s = StringIO.new
+    s = StringIO.new '', 'a'
 
-		r = ::IO.writelines s, input
+    r = ::IO.writelines s, input, line_separator: '+'
 
-		assert_equal 3, r
-		assert_equal "abc\ndef\nghi\n", s.string
-	end
+    assert_equal 2, r
+    assert_equal "abc+def+", s.string
+  end
+
+  def test_two_strings_in_hash_with_line_sep_and_col_sep
+
+    input = { 'ab' => 'c', 'de' => 'f' }
+
+    s = StringIO.new '', 'a'
+
+    r = ::IO.writelines s, input, line_separator: '+', column_separator: "\t"
+
+    assert_equal 2, r
+    assert_equal "ab\tc+de\tf+", s.string
+  end
+
+  def test_two_strings_in_hash_with_line_sep_and_col_sep_and_nolasteol
+
+    input = { 'ab' => 'c', 'de' => 'f' }
+
+    s = StringIO.new '', 'a'
+
+    r = ::IO.writelines s, input, line_separator: '+', column_separator: "\t", no_last_eol: true
+
+    assert_equal 2, r
+    assert_equal "ab\tc+de\tf", s.string
+  end
+
+  def test_two_strings_in_hash_with_arguments_of_line_sep
+
+    input = { 'ab' => 'c', 'de' => 'f' }
+
+    s = StringIO.new '', 'a'
+
+    r = ::IO.writelines s, input, '+'
+
+    assert_equal 2, r
+    assert_equal "abc+def+", s.string
+  end
+
+  def test_two_strings_in_hash_with_arguments_of_line_sep_and_col_sep
+
+    input = { 'ab' => 'c', 'de' => 'f' }
+
+    s = StringIO.new '', 'a'
+
+    r = ::IO.writelines s, input, '+', '-'
+
+    assert_equal 2, r
+    assert_equal "ab-c+de-f+", s.string
+  end
+
+  def test_ten_strings_in_array
+
+    input = (0...10).map { |i| i.to_s }
+
+    s = StringIO.new
+
+    r = ::IO.writelines s, input
+
+    assert_equal 10, r
+    assert_equal "0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n", s.string
+  end
+
+  def test_strings_with_cr_in_array
+
+    input = [ "abc\n", "def\n", "ghi\n" ]
+
+    s = StringIO.new
+
+    r = ::IO.writelines s, input
+
+    assert_equal 3, r
+    assert_equal "abc\ndef\nghi\n", s.string
+  end
 end
 
 

data/test/unit/extensions/kernel/tc_integer.rb

@@ -10,81 +10,81 @@ require 'test/unit'
 
 class Test_X_Kernel_Integer < Test::Unit::TestCase
 
-	class SomeRandomException < Exception; end
-
-	def test_Integer_with_valid_values
-
-		assert_equal 0, Integer(0)
-		assert_equal +1, Integer(1)
-		assert_equal +1, Integer(+1)
-		assert_equal -1, Integer(-1)
-
-		assert_equal 0, Integer('0')
-		assert_equal +1, Integer('1')
-		assert_equal +1, Integer('+1')
-		assert_equal -1, Integer('-1')
-	end
-
-	def test_Integer_with_invalid_values
-
-		assert_raise(TypeError) { Integer nil }
-		assert_raise(ArgumentError) { Integer '' }
-		assert_raise(ArgumentError) { Integer 'abc' }
-		assert_raise(ArgumentError) { Integer 'zero' }
-		assert_raise(ArgumentError) { Integer 'plus 1' }
-		assert_raise(ArgumentError) { Integer '/0' }
-	end
-
-	def test_Integer_with_invalid_values_returning_nil
-
-		assert_nil Integer(nil, nil: true)
-		assert_nil Integer('', nil: true)
-		assert_nil Integer('abc', nil: true)
-		assert_nil Integer('zero', nil: true)
-		assert_nil Integer('plus 1', nil: true)
-		assert_nil Integer('/0', nil: true)
-	end
-
-	def test_Integer_with_invalid_values_returning_0
-
-		assert_equal 0, Integer(nil, default: 0)
-		assert_equal 0, Integer('', default: 0)
-		assert_equal 0, Integer('abc', default: 0)
-		assert_equal 0, Integer('zero', default: 0)
-		assert_equal 0, Integer('plus 1', default: 0)
-		assert_equal 0, Integer('/0', default: 0)
-	end
-
-	def test_Integer_with_invalid_values_returning_sentinel
-
-		assert_equal :sentinel, Integer(nil, default: :sentinel)
-		assert_equal :sentinel, Integer('', default: :sentinel)
-		assert_equal :sentinel, Integer('abc', default: :sentinel)
-		assert_equal :sentinel, Integer('zero', default: :sentinel)
-		assert_equal :sentinel, Integer('plus 1', default: :sentinel)
-		assert_equal :sentinel, Integer('/0', default: :sentinel)
-	end
-
-	def test_Integer_with_invalid_values_returning_sentinel_of_nil
-
-		assert_equal nil, Integer(nil, default: nil)
-		assert_equal nil, Integer('', default: nil)
-		assert_equal nil, Integer('abc', default: nil)
-		assert_equal nil, Integer('zero', default: nil)
-		assert_equal nil, Integer('plus 1', default: nil)
-		assert_equal nil, Integer('/0', default: nil)
-	end
-
-	def test_Integer_with_invalid_values_and_block
-
-		assert_equal nil, Integer(nil) { nil }
-		assert_equal nil, Integer('blah') { nil }
-
-		assert_equal 'one', Integer(nil) { 'one' }
-		assert_equal 'one', Integer('blah') { 'one' }
-
-		assert_raise(SomeRandomException) { Integer(nil) { raise SomeRandomException.new } }
-	end
+  class SomeRandomException < Exception; end
+
+  def test_Integer_with_valid_values
+
+    assert_equal(0, Integer(0))
+    assert_equal(+1, Integer(1))
+    assert_equal(+1, Integer(+1))
+    assert_equal(-1, Integer(-1))
+
+    assert_equal(0, Integer('0'))
+    assert_equal(+1, Integer('1'))
+    assert_equal(+1, Integer('+1'))
+    assert_equal(-1, Integer('-1'))
+  end
+
+  def test_Integer_with_invalid_values
+
+    assert_raise(TypeError) { Integer nil }
+    assert_raise(ArgumentError) { Integer '' }
+    assert_raise(ArgumentError) { Integer 'abc' }
+    assert_raise(ArgumentError) { Integer 'zero' }
+    assert_raise(ArgumentError) { Integer 'plus 1' }
+    assert_raise(ArgumentError) { Integer '/0' }
+  end
+
+  def test_Integer_with_invalid_values_returning_nil
+
+    assert_nil Integer(nil, nil: true)
+    assert_nil Integer('', nil: true)
+    assert_nil Integer('abc', nil: true)
+    assert_nil Integer('zero', nil: true)
+    assert_nil Integer('plus 1', nil: true)
+    assert_nil Integer('/0', nil: true)
+  end
+
+  def test_Integer_with_invalid_values_returning_0
+
+    assert_equal 0, Integer(nil, default: 0)
+    assert_equal 0, Integer('', default: 0)
+    assert_equal 0, Integer('abc', default: 0)
+    assert_equal 0, Integer('zero', default: 0)
+    assert_equal 0, Integer('plus 1', default: 0)
+    assert_equal 0, Integer('/0', default: 0)
+  end
+
+  def test_Integer_with_invalid_values_returning_sentinel
+
+    assert_equal :sentinel, Integer(nil, default: :sentinel)
+    assert_equal :sentinel, Integer('', default: :sentinel)
+    assert_equal :sentinel, Integer('abc', default: :sentinel)
+    assert_equal :sentinel, Integer('zero', default: :sentinel)
+    assert_equal :sentinel, Integer('plus 1', default: :sentinel)
+    assert_equal :sentinel, Integer('/0', default: :sentinel)
+  end
+
+  def test_Integer_with_invalid_values_returning_sentinel_of_nil
+
+    assert_equal nil, Integer(nil, default: nil)
+    assert_equal nil, Integer('', default: nil)
+    assert_equal nil, Integer('abc', default: nil)
+    assert_equal nil, Integer('zero', default: nil)
+    assert_equal nil, Integer('plus 1', default: nil)
+    assert_equal nil, Integer('/0', default: nil)
+  end
+
+  def test_Integer_with_invalid_values_and_block
+
+    assert_equal nil, Integer(nil) { nil }
+    assert_equal nil, Integer('blah') { nil }
+
+    assert_equal 'one', Integer(nil) { 'one' }
+    assert_equal 'one', Integer('blah') { 'one' }
+
+    assert_raise(SomeRandomException) { Integer(nil) { raise SomeRandomException.new } }
+  end
 end