xqsr3 0.8.3

data/test/unit/containers/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/diagnostics/tc_exception_utilities.rb

@@ -0,0 +1,221 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../lib')
+
+require 'xqsr3/diagnostics/exception_utilities'
+
+require 'test/unit'
+
+class Test_ExceptionUtilities_raise_with_options < Test::Unit::TestCase
+
+	include ::Xqsr3::Diagnostics
+
+	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
+			ExceptionUtilities.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
+			ExceptionUtilities.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
+			ExceptionUtilities.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
+			ExceptionUtilities.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
+			ExceptionUtilities.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
+			ExceptionUtilities.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__; ExceptionUtilities.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/diagnostics/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/enumerable/tc_collect_with_index.rb

@@ -0,0 +1,36 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/enumerable/collect_with_index'
+
+require 'test/unit'
+
+class Test_Enumerable_collect_with_index < Test::Unit::TestCase
+
+	def test_simple
+
+		ar = [ 1, -2, 3, -4, 5, -6 ]
+
+		r = ar.collect_with_index do |v, index0|
+
+			index0 * v.abs
+		end
+
+		assert_equal [ 0, 2, 6, 12, 20, 30 ], r
+	end
+
+	def test_simple_with_offset
+
+		ar = [ 1, -2, 3, -4, 5, -6 ]
+
+		r = ar.collect_with_index(1) do |v, index0|
+
+			index0 * v.abs
+		end
+
+		assert_equal [ 1, 4, 9, 16, 25, 36 ], r
+	end
+end
+
+

data/test/unit/extensions/enumerable/tc_unique.rb

@@ -0,0 +1,47 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/enumerable/unique'
+
+require 'test/unit'
+
+class Test_Enumerable_unique_test < Test::Unit::TestCase
+
+	def test_empty
+
+		src = []
+
+		dest = src.unique
+
+		assert dest.empty?
+	end
+
+	def test_already_unique
+
+		src = [ 1, 2, 3, 4 ]
+
+		dest = src.unique
+
+		assert_equal src, dest
+	end
+
+	def test_unique_contiguous
+
+		src = [ 1, 2, 3, 3, 4 ]
+
+		dest = src.unique
+
+		assert_equal [ 1, 2, 3, 4], dest
+	end
+
+	def test_unique_noncontiguous
+
+		src = [ 1, 2, 3, 4, 3 ]
+
+		dest = src.unique
+
+		assert_equal [ 1, 2, 3, 4], dest
+	end
+end
+

data/test/unit/extensions/enumerable/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/io/tc_writelines.rb

@@ -0,0 +1,110 @@
+#! /usr/bin/ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../../../lib')
+
+require 'xqsr3/extensions/io/writelines'
+
+require 'test/unit'
+
+require 'stringio'
+
+class Test_IO_writelines < Test::Unit::TestCase
+
+	def test_single_string
+
+		input = 'abc'
+
+		s = StringIO.new '', 'a'
+
+		r = ::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 = ::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 = ::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 = ::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 = ::IO.writelines s, input, ''
+
+		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 = ::IO.writelines s, input
+
+		assert_equal 2, r
+		assert_equal "abc\ndef\n", 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
+
+