xqsr3 0.8.3

data/test/unit/extensions/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/extensions/kernel/tc_raise_with_options.rb

@@ -0,0 +1,239 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/kernel/raise_with_options'
+
+require 'test/unit'
+
+class Test_X_Kernel_raise_with_options < Test::Unit::TestCase
+
+	class ArgumentErrorWithOptions < ArgumentError
+
+		def initialize(message = nil, **options)
+
+			super(message)
+			options	||= {}
+			@options = options
+		end
+		attr_reader :options
+
+		def exception(msg = nil, options = nil)
+
+			return self if msg.nil?
+			return self if msg.object_id == self.object_id
+
+			msg		||=	self.message
+			options	||= {}
+			r = self.class.new msg, self.options.merge(options)
+			r
+		end
+	end
+
+	def execute(&block)
+
+		block.call
+	end
+
+	def test_0
+
+		# standard raise: message-only
+		begin
+
+			raise "abc"
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(RuntimeError, x)
+			assert_equal "abc", x.message
+		end
+
+		# RWO: message-only
+		begin
+
+			raise_with_options "abc"
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(RuntimeError, x)
+			assert_equal "abc", x.message
+		end
+	end
+
+	def test_1
+
+		# standard raise: class
+		begin
+
+			raise ArgumentError
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "ArgumentError", x.message
+		end
+
+		# RWO: class + message
+		begin
+
+			raise_with_options ArgumentError
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "ArgumentError", x.message
+		end
+	end
+
+	def test_2
+
+		# standard raise: class + message
+		begin
+
+			raise ArgumentError, "abc"
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+		end
+
+		# RWO: class + message
+		begin
+
+			raise_with_options ArgumentError, "abc"
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+		end
+	end
+
+	def test_2_b_no_options
+
+		# standard raise: class + message
+		begin
+
+			raise ArgumentErrorWithOptions, "abc"
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+		end
+
+		# RWO: class + message
+		begin
+
+			raise_with_options ArgumentErrorWithOptions, "abc"
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+		end
+	end
+
+	def test_2_b_with_options
+
+		# standard raise: class + message + options
+		begin
+
+			raise ArgumentErrorWithOptions.new("abc", blah: :blech, id: 23)
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+			assert_equal ({ :blah => :blech, :id => 23 }), x.options
+		end
+
+		# RWO: class + message + options (raise-way)
+		begin
+
+			raise_with_options ArgumentErrorWithOptions.new("abc", blah: :blech, id: 23)
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+			assert_equal ({ :blah => :blech, :id => 23 }), x.options
+		end
+
+		# RWO: class + message + options (raise_with_options-way)
+		begin
+
+			raise_with_options ArgumentErrorWithOptions, "abc", blah: :blech, id: 23
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+			assert_equal ({ :blah => :blech, :id => 23 }), x.options
+		end
+	end
+
+
+	def test_with_backtrace
+
+		line_number	=	nil
+
+		# standard raise: class + message + stack trace
+		begin
+
+			begin
+
+				execute { line_number = __LINE__; raise ArgumentError }
+			rescue => x
+
+				raise x, "abc", x.backtrace
+			end
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+
+			assert $@[0] =~ /^[^:]+:(\d+)/
+			assert_equal line_number.to_s, $1.to_s
+		end
+
+		# RWO: class + message + stack trace
+		begin
+
+			begin
+
+				execute { line_number = __LINE__; raise_with_options ArgumentErrorWithOptions, blah: :blech, id: 23 }
+
+				assert false, "should not get here"
+			rescue => x
+
+				raise x, "abc", x.backtrace
+			end
+
+			assert false, "should not get here"
+		rescue => x
+
+			assert_kind_of(ArgumentError, x)
+			assert_equal "abc", x.message
+			assert_equal ({ :blah => :blech, :id => 23 }), x.options
+
+			assert $@[0] =~ /^[^:]+:(\d+)/
+			assert_equal line_number.to_s, $1.to_s
+		end
+	end
+end
+

data/test/unit/extensions/kernel/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/string/tc_ends_with.rb

@@ -0,0 +1,70 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/string/ends_with'
+
+require 'xqsr3/extensions/test/unit'
+require 'test/unit'
+
+require 'stringio'
+
+class Test_String_ends_with < Test::Unit::TestCase
+
+	def test_String_has_method
+
+		assert ''.respond_to? :ends_with?
+	end
+
+	def test_with_nil
+
+		assert ''.ends_with? nil
+	end
+
+	def test_with_single_strings
+
+		assert ''.ends_with? ''
+		assert 'a'.ends_with? ''
+		assert 'a'.ends_with? 'a'
+		assert_not 'b'.ends_with? 'a'
+		assert_nil 'b'.ends_with? 'a'
+		assert 'ab'.ends_with? 'b'
+		assert 'abc'.ends_with? 'c'
+		assert 'abc'.ends_with? 'bc'
+		assert_not 'abc'.ends_with? 'ac'
+		assert_nil 'abc'.ends_with? 'ac'
+
+		assert 'abcdefghijklmnopqrstuvwxyz'.ends_with? ''
+		assert 'abcdefghijklmnopqrstuvwxyz'.ends_with? 'z'
+		assert 'abcdefghijklmnopqrstuvwxyz'.ends_with? 'yz'
+		assert 'abcdefghijklmnopqrstuvwxyz'.ends_with? 'xyz'
+		assert 'abcdefghijklmnopqrstuvwxyz'.ends_with? 'wxyz'
+		assert 'abcdefghijklmnopqrstuvwxyz'.ends_with? 'vwxyz'
+	end
+
+	def test_multiple_strings
+
+		assert ''.ends_with? '', 'd'
+		assert_not ''.ends_with? 'c', 'd'
+		assert_nil ''.ends_with? 'c', 'd'
+		assert 'c'.ends_with? 'c', 'd'
+		assert 'd'.ends_with? 'c', 'd'
+
+		assert_equal 'd', 'abcd'.ends_with?('c', 'd')
+	end
+
+	def test_with_array
+
+		prefixes = %w{ a c def }
+
+		assert_not ''.ends_with? *prefixes
+		assert_nil ''.ends_with? *prefixes
+		assert ''.ends_with? *prefixes, ''
+		assert 'abc'.ends_with? *prefixes
+		assert_not 'd'.ends_with? *prefixes
+		assert_nil 'd'.ends_with? *prefixes
+		assert 'abcdef'.ends_with? *prefixes
+	end
+end
+
+

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

@@ -0,0 +1,37 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/string/map_option_string'
+
+require 'xqsr3/extensions/test/unit'
+require 'test/unit'
+
+class Test_String_map_option_string < Test::Unit::TestCase
+
+	def test_simple_uses
+
+		assert_nil 'abc'.map_option_string [ 'option-1', 'option-2' ]
+
+		assert_equal :abc, 'abc'.map_option_string([ 'abc' ])
+
+		assert_equal :option_1, 'option-1'.map_option_string([ 'option-1', 'option-2' ])
+	end
+
+	def test_shortcuts
+
+		option_strings = [ '[n]ame-only', '[f]ull-[p]ath' ]
+
+		assert_equal :name_only, 'name-only'.map_option_string(option_strings)
+		assert_equal :full_path, 'full-path'.map_option_string(option_strings)
+
+		assert_equal :name_only, 'n'.map_option_string(option_strings)
+		assert_equal :full_path, 'fp'.map_option_string(option_strings)
+
+		%w{ a m e - o l y u l p a t h }.each do |shortcut|
+
+			assert_nil shortcut.map_option_string(option_strings)
+		end
+	end
+end
+

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

@@ -0,0 +1,70 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/string/starts_with'
+
+require 'xqsr3/extensions/test/unit'
+require 'test/unit'
+
+require 'stringio'
+
+class Test_String_starts_with < Test::Unit::TestCase
+
+	def test_String_has_method
+
+		assert ''.respond_to? :starts_with?
+	end
+
+	def test_with_nil
+
+		assert ''.starts_with? nil
+	end
+
+	def test_with_single_strings
+
+		assert ''.starts_with? ''
+		assert 'a'.starts_with? ''
+		assert 'a'.starts_with? 'a'
+		assert_not 'b'.starts_with? 'a'
+		assert_nil 'b'.starts_with? 'a'
+		assert 'ab'.starts_with? 'a'
+		assert 'abc'.starts_with? 'a'
+		assert 'abc'.starts_with? 'ab'
+		assert_not 'abc'.starts_with? 'ac'
+		assert_nil 'abc'.starts_with? 'ac'
+
+		assert 'abcdefghijklmnopqrstuvwxz'.starts_with? ''
+		assert 'abcdefghijklmnopqrstuvwxz'.starts_with? 'a'
+		assert 'abcdefghijklmnopqrstuvwxz'.starts_with? 'ab'
+		assert 'abcdefghijklmnopqrstuvwxz'.starts_with? 'abc'
+		assert 'abcdefghijklmnopqrstuvwxz'.starts_with? 'abcd'
+		assert 'abcdefghijklmnopqrstuvwxz'.starts_with? 'abcde'
+	end
+
+	def test_multiple_strings
+
+		assert ''.starts_with? '', 'd'
+		assert_not ''.starts_with? 'c', 'd'
+		assert_nil ''.starts_with? 'c', 'd'
+		assert 'c'.starts_with? 'c', 'd'
+		assert 'd'.starts_with? 'c', 'd'
+
+		assert_equal 'a', 'abcd'.starts_with?('a', 'b')
+	end
+
+	def test_with_array
+
+		prefixes = %w{ a c def }
+
+		assert_not ''.starts_with? *prefixes
+		assert_nil ''.starts_with? *prefixes
+		assert ''.starts_with? *prefixes, ''
+		assert 'abc'.starts_with? *prefixes
+		assert_not 'd'.starts_with? *prefixes
+		assert_nil 'd'.starts_with? *prefixes
+		assert 'defghi'.starts_with? *prefixes
+	end
+end
+
+