pantheios-ruby 0.13.4 → 0.20.3.1

data/test/unit/core/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/services/tc_multiplexing_log_service.rb

@@ -0,0 +1,144 @@
+#!/usr/bin/env ruby
+#
+# test/unit/services/tc_multiplexing_log_service.rb
+
+$:.unshift File.join(File.dirname(__FILE__), '../../..', 'lib')
+
+require 'pantheios/services/multiplexing_log_service'
+
+require 'pantheios/api'
+require 'pantheios/application_layer/stock_severity_levels'
+
+require 'xqsr3/extensions/test/unit'
+
+require 'test/unit'
+
+require 'stringio'
+
+class Test_MultiplexingLogservice < Test::Unit::TestCase
+
+	include ::Pantheios::API
+	include ::Pantheios::Services
+
+	class ProgrammableLogService
+
+		def initialize name, severities
+
+			@name		=	name
+			@severities	=	severities
+			@items		=	[]
+		end
+
+		attr_reader :name
+		attr_reader :items
+
+		def severity_logged? severity
+
+			@severities.include? severity
+		end
+
+		def log sev, t, pref, msg
+
+			@items << [ sev, t, pref, msg ]
+		end
+	end
+
+	def log_multiple_statements svc
+
+		previous, _	=	Pantheios::Core.set_service svc
+
+		begin
+
+			severities	=	Pantheios::ApplicationLayer::StockSeverityLevels::STOCK_SEVERITY_LEVELS_PRIME
+
+			severities.each do |sev|
+
+				log sev, "a(n) #{sev} statement"
+			end
+		ensure
+
+			Pantheios::Core.set_service previous
+		end
+	end
+
+
+	def test_MultiplexingLogService_type_exists
+
+		assert defined? MultiplexingLogService
+	end
+
+	if  defined?(MultiplexingLogService)
+
+		def test_MultiplexingLogService_type_is_a_class
+
+			assert_kind_of(::Class, MultiplexingLogService)
+		end
+
+		def test_MultiplexingLogService_type_has_expected_instance_methods
+
+			assert_type_has_instance_methods MultiplexingLogService, [ :severity_logged?, :log ]
+		end
+
+		def test_multiplex_1
+
+			svc_0		=	ProgrammableLogService.new 'svc_0', Pantheios::ApplicationLayer::StockSeverityLevels::STOCK_SEVERITY_LEVELS_PRIME - [ :informational, :notice, :trace ]
+			svc_1		=	ProgrammableLogService.new 'svc_1', [ :informational, :notice, :warning, :failure ]
+			svc_2		=	ProgrammableLogService.new 'svc_2', [ :informational, :debug0, :debug1, :debug2, :debug3, :debug4 ]
+
+			svc			=	MultiplexingLogService.new [ svc_0, svc_1, svc_2 ]
+
+			log_multiple_statements svc
+
+			assert_equal 11, svc_0.items.size
+			assert_equal  4, svc_1.items.size
+			assert_equal  6, svc_2.items.size
+		end
+
+		def test_multiplex_2
+
+			svc_0		=	ProgrammableLogService.new 'svc_0', Pantheios::ApplicationLayer::StockSeverityLevels::STOCK_SEVERITY_LEVELS_PRIME - [ :informational, :notice, :trace ]
+			svc_1		=	ProgrammableLogService.new 'svc_1', [ :informational, :notice, :warning, :failure ]
+			svc_2		=	ProgrammableLogService.new 'svc_2', [ :informational, :debug0, :debug1, :debug2, :debug3, :debug4 ]
+
+			svc			=	MultiplexingLogService.new [ svc_0, svc_1, svc_2 ], level_cache_mode: :none
+
+			log_multiple_statements svc
+
+			assert_equal 11, svc_0.items.size
+			assert_equal  4, svc_1.items.size
+			assert_equal  6, svc_2.items.size
+		end
+
+		def test_multiplex_3
+
+			svc_0		=	ProgrammableLogService.new 'svc_0', Pantheios::ApplicationLayer::StockSeverityLevels::STOCK_SEVERITY_LEVELS_PRIME - [ :informational, :notice, :trace ]
+			svc_1		=	ProgrammableLogService.new 'svc_1', [ :informational, :notice, :warning, :failure ]
+			svc_2		=	ProgrammableLogService.new 'svc_2', [ :informational, :debug0, :debug1, :debug2, :debug3, :debug4 ]
+
+			svc			=	MultiplexingLogService.new [ svc_0, svc_1, svc_2 ], level_cache_mode: :process_fixed
+
+			log_multiple_statements svc
+
+			assert_equal 11, svc_0.items.size
+			assert_equal  4, svc_1.items.size
+			assert_equal  6, svc_2.items.size
+		end
+
+		def test_multiplex_4
+
+			svc_0		=	ProgrammableLogService.new 'svc_0', Pantheios::ApplicationLayer::StockSeverityLevels::STOCK_SEVERITY_LEVELS_PRIME - [ :informational, :notice, :trace ]
+			svc_1		=	ProgrammableLogService.new 'svc_1', [ :informational, :notice, :warning, :failure ]
+			svc_2		=	ProgrammableLogService.new 'svc_2', [ :informational, :debug0, :debug1, :debug2, :debug3, :debug4 ]
+
+			svc			=	MultiplexingLogService.new [ svc_0, svc_1, svc_2 ], level_cache_mode: :thread_fixed
+
+			log_multiple_statements svc
+
+			assert_equal 11, svc_0.items.size
+			assert_equal  4, svc_1.items.size
+			assert_equal  6, svc_2.items.size
+		end
+	end
+end
+
+

data/test/unit/services/tc_simple_console_log_service.rb

@@ -96,7 +96,7 @@ class Test_SimpleConsoleLogservice < Test::Unit::TestCase
 				stdout_s	=	$stdout.string
 				stderr_s	=	$stderr.string
 
-				assert_not_empty stdout_s, "SimpleConsoleLogService has not written to $stdout!"
+				assert_empty stdout_s, "SimpleConsoleLogService has written to $stdout!"
 				assert_not_empty stderr_s, "SimpleConsoleLogService has not written to $stderr!"
 			ensure
 
@@ -123,8 +123,8 @@ class Test_SimpleConsoleLogservice < Test::Unit::TestCase
 
 				r	=	self.class.log_and_get_streams sev, 'msg'
 
-				assert_not_empty r[0], "SimpleConsoleLogService failed to write to $stdout for severity #{sev}"
-				assert_empty r[1], "SimpleConsoleLogService wrote unexpectedly to $stderr for severity #{sev}"
+				assert_empty r[0], "SimpleConsoleLogService wrote to $stdout for severity #{sev}"
+				assert_not_empty r[1], "SimpleConsoleLogService failed to write to $stderr for severity #{sev}"
 			end
 		end
 	end

data/test/unit/services/tc_simple_file_log_service.rb

@@ -0,0 +1,252 @@
+#!/usr/bin/env ruby
+#
+# test/unit/services/tc_simple_file_log_service.rb
+
+$:.unshift File.join(File.dirname(__FILE__), '../../..', 'lib')
+
+require 'pantheios/services/simple_file_log_service'
+
+require 'pantheios/application_layer/stock_severity_levels'
+
+require 'xqsr3/extensions/test/unit'
+
+require 'test/unit'
+
+require 'stringio'
+require 'tempfile'
+
+class Test_SimpleFileLogservice < Test::Unit::TestCase
+
+	include ::Pantheios::Services
+
+	def test_SimpleFileLogService_type_exists
+
+		assert defined? SimpleFileLogService
+	end
+
+	if  defined?(SimpleFileLogService)
+
+		def self.log_to_StringIO_and_get_output messages, def_sev, def_pref = nil, def_t = nil, **options
+
+			def_t		||=	Time.now
+			def_pref	||=	"[prog, thread, #{def_t}]: "
+
+			stream		=	StringIO.new
+
+			svc			=	SimpleFileLogService.new stream, **options
+
+			messages.each do |message|
+
+				ar		=	::Array === message ? message : [ message ]
+
+				msg		=	ar[0]
+				sev		=	ar[1] || def_sev
+				pref	=	ar[2] || def_pref
+				t		=	ar[3] || def_t
+
+				svc.log sev, t, pref, msg
+			end
+
+			stream.string
+		end
+
+		def self.log_to_Tempfile_and_get_output messages, def_sev, def_pref = nil, def_t = nil, **options
+
+			def_t		||=	Time.now
+			def_pref	||=	"[prog, thread, #{def_t}]: "
+
+			tf			=	Tempfile.new 'Pantheios.Ruby.Tempfile'
+
+			begin
+
+				svc			=	SimpleFileLogService.new tf, **options
+
+				messages.each do |message|
+
+					ar		=	::Array === message ? message : [ message ]
+
+					msg		=	ar[0]
+					sev		=	ar[1] || def_sev
+					pref	=	ar[2] || def_pref
+					t		=	ar[3] || def_t
+
+					svc.log sev, t, pref, msg
+				end
+
+				tf.rewind
+
+				return tf.read
+			ensure
+
+				tf.close
+				tf.unlink
+			end
+		end
+
+		def self.log_to_Tempfile_path_and_get_output messages, def_sev, def_pref = nil, def_t = nil, **options
+
+			def_t		||=	Time.now
+			def_pref	||=	"[prog, thread, #{def_t}]: "
+
+			tf			=	Tempfile.new 'Pantheios.Ruby.Tempfile'
+
+			begin
+
+				svc			=	SimpleFileLogService.new tf.path, **options
+
+				messages.each do |message|
+
+					ar		=	::Array === message ? message : [ message ]
+
+					msg		=	ar[0]
+					sev		=	ar[1] || def_sev
+					pref	=	ar[2] || def_pref
+					t		=	ar[3] || def_t
+
+					svc.log sev, t, pref, msg
+				end
+
+				tf.rewind
+
+				return tf.read
+			ensure
+
+				tf.close
+				tf.unlink
+			end
+		end
+
+		def test_SimpleFileLogService_type_is_a_class
+
+			assert_kind_of(::Class, SimpleFileLogService)
+		end
+
+		def test_SimpleFileLogService_type_has_expected_instance_methods
+
+			assert_type_has_instance_methods SimpleFileLogService, [ :severity_logged?, :log ]
+		end
+
+		def test_ctor_failures_with_invalid_log_file_or_path
+
+			assert_raise_with_message(::ArgumentError, /log_file_or_path.*not.*nil/) { SimpleFileLogService.new nil }
+
+			assert_raise_with_message(::TypeError, [ /log_file_or_path.*must be/, /::File/, /::IO/, /::String/, /::StringIO/ ]) { SimpleFileLogService.new // }
+		end
+
+		def test_ctor_failures_with_invalid_options
+
+			assert_raise_with_message(::ArgumentError, /:roll_depth.*non.*negative.*integer/) { SimpleFileLogService.new '/dev/null', roll_depth: true }
+			assert_raise_with_message(::ArgumentError, /:roll_depth.*non.*negative.*integer/) { SimpleFileLogService.new '/dev/null', roll_depth: -1 }
+
+			assert_raise_with_message(::ArgumentError, /:roll_size.*non.*negative.*integer/) { SimpleFileLogService.new '/dev/null', roll_size: true }
+			assert_raise_with_message(::ArgumentError, /:roll_size.*non.*negative.*integer/) { SimpleFileLogService.new '/dev/null', roll_size: -1 }
+		end
+
+		def test_severity_logged_false_with_large_range_of_integers
+
+			output	=	StringIO.new
+
+			svc = SimpleFileLogService.new output
+
+			(-10000 .. 10000).each do |sev|
+
+				assert_true(svc.severity_logged?(sev), "severity '#{sev}' (#{sev.class}) was not logged")
+			end
+		end
+
+		def test_simple_logging_with_StringIO_1
+
+			message	=	'msg'
+
+			output	=	self.class.log_to_StringIO_and_get_output [ message ], :notice, nil, nil
+
+			lines	=	output.split /\n/
+
+			assert_not_empty lines
+			assert_equal 1, lines.size
+			assert_match /msg$/, lines[0]
+		end
+
+		def test_simple_logging_with_StringIO_2
+
+			msgs	=	[
+
+				[ 'msg-1' ],
+				[ 'msg-2' ],
+			]
+
+			output	=	self.class.log_to_StringIO_and_get_output msgs, :notice, nil, nil
+
+			lines	=	output.split /\n/
+
+			assert_not_empty lines
+			assert_equal 2, lines.size
+			assert_match /msg-1$/, lines[0]
+			assert_match /msg-2$/, lines[1]
+		end
+
+		def test_simple_logging_with_Tempfile_1
+
+			message	=	'msg'
+
+			output	=	self.class.log_to_Tempfile_and_get_output [ message ], :notice, nil, nil
+
+			lines	=	output.split /\n/
+
+			assert_not_empty lines
+			assert_equal 1, lines.size
+			assert_match /msg$/, lines[0]
+		end
+
+		def test_simple_logging_with_Tempfile_2
+
+			msgs	=	[
+
+				[ 'msg-1' ],
+				[ 'msg-2' ],
+			]
+
+			output	=	self.class.log_to_Tempfile_and_get_output msgs, :notice, nil, nil
+
+			lines	=	output.split /\n/
+
+			assert_not_empty lines
+			assert_equal 2, lines.size
+			assert_match /msg-1$/, lines[0]
+			assert_match /msg-2$/, lines[1]
+		end
+
+		def test_simple_logging_with_Tempfile_path_1
+
+			message	=	'msg'
+
+			output	=	self.class.log_to_Tempfile_path_and_get_output [ message ], :notice, nil, nil
+
+			lines	=	output.split /\n/
+
+			assert_not_empty lines
+			assert_equal 1, lines.size
+			assert_match /msg$/, lines[0]
+		end
+
+		def test_simple_logging_with_Tempfile_path_2
+
+			msgs	=	[
+
+				[ 'msg-1' ],
+				[ 'msg-2' ],
+			]
+
+			output	=	self.class.log_to_Tempfile_path_and_get_output msgs, :notice, nil, nil
+
+			lines	=	output.split /\n/
+
+			assert_not_empty lines
+			assert_equal 2, lines.size
+			assert_match /msg-1$/, lines[0]
+			assert_match /msg-2$/, lines[1]
+		end
+	end
+end
+
+

data/test/unit/util/tc_process_util.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../..', 'lib')
+
+require 'pantheios/util/process_util'
+
+require 'xqsr3/extensions/test/unit'
+
+require 'test/unit'
+
+class Test_ProcessUtil_set_thread_name < Test::Unit::TestCase
+
+	PU = ::Pantheios::Util::ProcessUtil
+
+	def test_derive_process_name
+
+		assert_equal 'abc', PU.derive_process_name('abc')
+
+		assert_equal 'abc', PU.derive_process_name('abc.rb')
+
+		assert_equal 'abc', PU.derive_process_name('abc.rb')
+	end
+end
+