xqsr3 0.8.3

data/test/unit/extensions/string/tc_to_symbol.rb

@@ -0,0 +1,51 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/string/to_symbol'
+
+require 'xqsr3/extensions/test/unit'
+require 'test/unit'
+
+class Test_String_to_symbol < Test::Unit::TestCase
+
+	def test_empty_string
+
+		assert_nil ''.to_symbol
+	end
+
+	def test_simple_string
+
+		assert_equal :a, 'a'.to_symbol
+	end
+
+	def test_string_with_spaces
+
+		assert_equal :some_symbol, 'some symbol'.to_symbol
+		assert_nil 'some symbol'.to_symbol(reject_spaces: true)
+		assert_nil 'some symbol'.to_symbol(reject_whitespace: true)
+	end
+
+	def test_string_with_tabs
+
+		assert_equal :some_symbol, "some\tsymbol".to_symbol
+		assert_nil "some\tsymbol".to_symbol(reject_tabs: true)
+		assert_nil "some\tsymbol".to_symbol(reject_whitespace: true)
+	end
+
+	def test_string_with_hyphens
+
+		assert_equal :some_symbol, 'some-symbol'.to_symbol
+		assert_nil 'some-symbol'.to_symbol(reject_hyphens: true)
+	end
+
+	def test_string_with_transform_characters
+
+		assert_nil 'some#funky$symbol'.to_symbol
+		assert_nil 'some#funky$symbol'.to_symbol transform_characters: [ ?', ?$ ]
+		assert_nil 'some#funky$symbol'.to_symbol transform_characters: [ ?#, ?' ]
+		assert_equal :some_funky_symbol, 'some#funky$symbol'.to_symbol(transform_characters: [ ?#, ?$ ])
+	end
+end
+
+

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

@@ -0,0 +1,13 @@
+#! /usr/bin/ruby
+#
+# executes all other tests
+
+this_file   =   File.expand_path(__FILE__)
+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/ts_all.rb

@@ -0,0 +1,13 @@
+#! /usr/bin/ruby
+#
+# executes all other tests
+
+this_file   =   File.expand_path(__FILE__)
+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/io/tc_writelines.rb

@@ -0,0 +1,200 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../lib')
+
+require 'xqsr3/io/writelines'
+
+require 'test/unit'
+require 'stringio'
+
+include ::Xqsr3::IO
+
+class Test_Xqsr3_IO_writelines < Test::Unit::TestCase
+
+	def test_single_string
+
+		input = 'abc'
+
+		s = StringIO.new '', 'a'
+
+		r = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 1, r
+		assert_equal "abc\n", s.string
+	end
+
+	def test_single_string_in_array
+
+		input = [ 'abc' ]
+
+		s = StringIO.new '', 'a'
+
+		r = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 1, r
+		assert_equal "abc\n", s.string
+	end
+
+	def test_single_string_in_hash
+
+		input = { 'abc' => '' }
+
+		s = StringIO.new '', 'a'
+
+		r = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 1, r
+		assert_equal "abc\n", s.string
+	end
+
+	def test_two_strings_in_array
+
+		input = [ 'abc', 'def' ]
+
+		s = StringIO.new '', 'a'
+
+		r = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 2, r
+		assert_equal "abc\ndef\n", s.string
+	end
+
+	def test_two_strings_in_array_with_suppressed_eol
+
+		input = [ 'abc', 'def' ]
+
+		s = StringIO.new '', 'a'
+
+		r = ::Xqsr3::IO.writelines s, input, line_separator: ''
+
+		assert_equal 2, r
+		assert_equal "abcdef", s.string
+	end
+
+	def test_two_strings_in_hash
+
+		input = { 'ab' => 'c', 'de' => 'f' }
+
+		s = StringIO.new '', 'a'
+
+		r = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 2, r
+		assert_equal "abc\ndef\n", s.string
+	end
+
+	def test_two_strings_in_hash_with_col_sep
+
+		input = { 'ab' => 'c', 'de' => 'f' }
+
+		s = StringIO.new '', 'a'
+
+		r = ::Xqsr3::IO.writelines s, input, column_separator: "\t"
+
+		assert_equal 2, r
+		assert_equal "ab\tc\nde\tf\n", s.string
+	end
+
+	def test_ten_strings_in_array
+
+		input = (0...10).map { |i| i.to_s }
+
+		s = StringIO.new
+
+		r = ::Xqsr3::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 = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 3, r
+		assert_equal "abc\ndef\nghi\n", s.string
+	end
+
+	def test_strings_with_cr_in_array_and_line_sep
+
+		input = [ "abc\n", "def\n", "ghi\n" ]
+
+		s = StringIO.new
+
+		r = ::Xqsr3::IO.writelines s, input, line_separator: '|'
+
+		assert_equal 3, r
+		assert_equal "abc\n|def\n|ghi\n|", s.string
+	end
+
+	def test_many_strings_in_array_with_eol
+
+		input = []
+
+		(0...1000).each { |n| input << "entry-#{n.to_s().rjust(4, '0')}\n" }
+
+		assert_equal 1000, input.size
+
+		s = StringIO.new
+
+		r = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 1000, r
+		assert_equal "entry-0000\nentry-0001\n", s.string[0 ... 22]
+	end
+
+	def test_many_strings_in_array_without_eol
+
+		input = []
+
+		(0...1000).each { |n| input << "entry-#{n.to_s().rjust(4, '0')}" }
+
+		assert_equal 1000, input.size
+
+		s = StringIO.new
+
+		r = ::Xqsr3::IO.writelines s, input
+
+		assert_equal 1000, r
+		assert_equal "entry-0000\nentry-0001\n", s.string[0 ... 22]
+	end
+
+	def test_many_strings_in_array_with_eol_and_line_sep
+
+		input = []
+
+		(0...1000).each { |n| input << "entry-#{n.to_s().rjust(4, '0')}\n" }
+
+		assert_equal 1000, input.size
+
+		s = StringIO.new
+
+		r = ::Xqsr3::IO.writelines s, input, line_separator: '|'
+
+		assert_equal 1000, r
+		assert_equal "entry-0000\n|entry-0001\n|", s.string[0 ... 24]
+	end
+
+	def test_many_strings_in_array_without_eol_and_line_sep
+
+		input = []
+
+		(0...1000).each { |n| input << "entry-#{n.to_s().rjust(4, '0')}" }
+
+		assert_equal 1000, input.size
+
+		s = StringIO.new
+
+		r = ::Xqsr3::IO.writelines s, input, line_separator: '|'
+
+		assert_equal 1000, r
+		assert_equal "entry-0000|entry-0001|", s.string[0 ... 22]
+	end
+end
+
+# ############################## end of file ############################# #
+

data/test/unit/io/ts_all.rb

@@ -0,0 +1,13 @@
+#! /usr/bin/ruby
+#
+# executes all other tests
+
+this_file   =   File.expand_path(__FILE__)
+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/quality/tc_parameter_checking.rb

@@ -0,0 +1,181 @@
+#!/usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../..', 'lib')
+
+require 'xqsr3/quality/parameter_checking'
+
+require 'test/unit'
+
+class Test_parameter_checks_as_separate_module < Test::Unit::TestCase
+
+	module TestConstants
+	end
+	include TestConstants
+
+	extend ::Xqsr3::Quality::ParameterChecking
+
+
+	# test 1
+
+	def check_method_1 a
+
+		self.class.check_param a, 'a'
+	end
+
+	def test_1
+
+		assert_raise ArgumentError do
+			check_method_1(nil)
+		end
+
+		assert_equal true, check_method_1(true)
+		assert_equal '', check_method_1('')
+		assert_equal [], check_method_1([])
+		assert_equal Hash.new, check_method_1(Hash.new)
+	end
+
+
+	# test 2
+
+	def check_method_2 a, types, options = {}
+
+		self.class.check_param a, 'a', options.merge({ types: types })
+	end
+
+	def test_2
+
+		assert_equal true, check_method_2(true, [ ::TrueClass ])
+		assert_equal true, check_method_2(true, [ ::TrueClass, ::String, ::Symbol ])
+		assert_raise TypeError do
+			check_method_2(true, [ ::String, ::Symbol, ::FalseClass ])
+		end
+		assert_equal true, check_method_2(true, [ ::TrueClass ], nothrow: true)
+		assert_nil check_method_2(true, [ ::FalseClass ], nothrow: true)
+	end
+
+
+	# test 3
+
+	def check_method_3 a, types, values, options = {}
+
+		self.class.check_param a, 'a', options.merge({ types: types, values: values })
+	end
+
+	def test_3
+
+		assert_raise RangeError do
+			check_method_3(-1, nil, [ 0..2 ])
+		end
+		assert_equal 0, check_method_3(0, nil, [ 0..2 ])
+		assert_equal 1, check_method_3(1, nil, [ 0..2 ])
+		assert_equal 2, check_method_3(2, nil, [ 0..2 ])
+		assert_raise RangeError do
+			check_method_3(3, nil, [ 0..2 ])
+		end
+	end
+
+
+	# test 4
+
+	def check_method_4 a, types, values, options = {}, &block
+
+		self.class.check_param a, 'a', options.merge({ types: types, values: values }), &block
+	end
+
+	def test_4
+
+		assert_equal 0, check_method_4(0, nil, nil)
+		assert_equal 0, check_method_4(0, nil, nil) { |n| 0 == n }
+
+		assert_raise RangeError do
+			check_method_4(-1, nil, nil) { |n| 0 == n }
+		end
+
+		assert_raise ArgumentError do
+			check_method_4('-1', nil, nil) { |n| 0 == n }
+		end
+
+		assert_raise TypeError do
+			check_method_4('-1', [ ::Numeric ], nil)
+		end
+		assert_raise ArgumentError do
+			check_method_4('-1', [ ::String ], [ '-2', '0', '+1', '+2' ])
+		end
+		assert_equal '-1', check_method_4('-1', [ ::String ], [ '-2', '-1', '0', '+1', '+2' ])
+#		assert_raise RangeError do
+#			check_method_4('-1', [ ::String ], [ '-2', '0', '+1', '+2' ]) {
+#		end
+
+#		check_param(id, 'id', types: ::Integer) { |v| raise ArgumentError, "'id' must be a positive integer" unless v > 0 }
+
+	end
+
+
+
+	# test 5
+
+	def check_method_5 a, options = {}
+
+		self.class.check_param a, 'a', options
+	end
+
+	def test_5
+
+		assert_equal "", check_method_5("", require_empty: true)
+		assert_equal "a", check_method_5("a", reject_empty: true)
+
+		assert_raise ArgumentError do
+			check_method_5("", reject_empty: true)
+		end
+
+if false
+		assert_raise ArgumentError do
+			check_method_5(nil)
+		end
+
+		assert_equal true, check_method_5(true)
+		assert_equal '', check_method_5('')
+		assert_equal [], check_method_5([])
+		assert_equal Hash.new, check_method_5(Hash.new)
+end
+	end
+
+
+	# test 6
+
+	def check_method_6 a, types, values, options = {}, &block
+
+		self.class.check_param a, 'a', options.merge({ types: types, values: values }), &block
+	end
+
+	def test_6
+
+		begin
+			check_method_6 '', [ ::Hash ], []
+
+			assert(false, 'should not get here')
+		rescue TypeError => ax
+
+			assert_match /^parameter 'a' \(String\) must be an instance of Hash$/, ax.message
+		rescue => x
+
+			assert(false, "wrong exception type (#{x.class})")
+		end
+
+
+		begin
+			check_method_6 '', [ ::String ], [ 'b', 'c', 'd' ]
+
+			assert(false, 'should not get here')
+		rescue ArgumentError => ax
+
+			assert_match /^parameter 'a' value '' not found equal\/within any of required values or ranges$/, ax.message
+		rescue => x
+
+			assert(false, "wrong exception type (#{x.class})")
+		end
+
+	end
+
+end
+