razorrisk-razor-control 0.1

data/test/unit/control/rake_helpers/tc_task_helpers.rb

@@ -0,0 +1,228 @@
+#! /usr/bin/env ruby
+
+# ######################################################################## #
+#
+#  Copyright (c) 2019 Razor Risk Technologies Pty Limited. All rights reserved.
+#
+# ######################################################################## #
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 4), 'lib')
+
+unless $DEBUG
+
+    require 'pantheios/globals'
+    require 'pantheios/services/null_log_service'
+
+    ::Pantheios::Globals.INITIAL_SERVICE_CLASSES = [ ::Pantheios::Services::NullLogService ]
+end
+
+require 'razor_risk/razor/control/rake_helpers/task_helpers'
+
+require 'xqsr3/extensions/test/unit'
+
+require 'test/unit'
+
+class Test_TaskHelper < Test::Unit::TestCase
+
+    include ::RazorRisk::Razor::Control::RakeHelpers
+
+    def setup
+
+        ::Rake::Task.clear
+    end
+
+    def test_is_a_class
+
+        assert_kind_of ::Class, TaskHelpers
+    end
+
+    def test_doesnt_adds_hooks_with_no_tasks
+
+        assert_empty ::Rake::Task.tasks
+        TaskHelpers.add_hooks
+        assert_empty ::Rake::Task.tasks
+    end
+
+    def test_adds_hooks_to_tasks
+
+        assert_empty ::Rake::Task.tasks
+
+        ::Rake::Task.define_task(:dummy_task)
+
+        assert_equal 1, ::Rake::Task.tasks.size
+        assert_equal 'dummy_task', ::Rake::Task.tasks.first.name
+
+        ::Rake::Task.define_task(:before)
+        ::Rake::Task.define_task(:after)
+        ::Rake::Task.define_task(:first)
+
+        assert_equal 4, ::Rake::Task.tasks.size
+        assert_equal 'before', ::Rake::Task['before'].name
+        assert_equal 'after', ::Rake::Task['after'].name
+        assert_equal 'first', ::Rake::Task['first'].name
+
+        TaskHelpers.add_hooks
+        assert_equal 4, ::Rake::Task.tasks.size
+        t = ::Rake::Task[:dummy_task]
+        assert_equal 'dummy_task', t.name
+        assert { t.prerequisites.include? :before }
+        assert { t.prerequisites.include? :first }
+    end
+
+    def test_executes_all_hooks
+
+        assert_empty ::Rake::Task.tasks
+
+        called = {
+            first: 0,
+            before: 0,
+            task: 0,
+            after: 0,
+        }
+
+        check = Proc.new do |f,b,t,a|
+            assert_equal f, called[:first]
+            assert_equal b, called[:before]
+            assert_equal t, called[:task]
+            assert_equal a, called[:after]
+        end
+
+        ::Rake::Task.define_task(:first) do
+            check.call(0, 0, 0, 0)
+            called[:first] += 1
+        end
+        ::Rake::Task.define_task(:before) do
+            check.call(1, 0, 0, 0)
+            called[:before] += 1
+        end
+        ::Rake::Task.define_task(:dummy_task) do
+            check.call(1, 1, 0, 0)
+            called[:task] += 1
+        end
+        ::Rake::Task.define_task(:after) do
+            check.call(1, 1, 1, 0)
+            called[:after] += 1
+        end
+
+        assert_equal 4, ::Rake::Task.tasks.size
+
+        TaskHelpers.add_hooks
+        assert_equal 4, ::Rake::Task.tasks.size
+        t = ::Rake::Task[:dummy_task]
+        assert_equal 'dummy_task', t.name
+        assert { t.prerequisites.include? :before }
+        assert { t.prerequisites.include? :first }
+
+        t.invoke
+
+        check.call(1, 1, 1, 1)
+    end
+
+    def test_executes_hooks_multiple_times
+
+        assert_empty ::Rake::Task.tasks
+
+        called = {
+            first: 0,
+            before: 0,
+            task: 0,
+            after: 0,
+        }
+
+        ::Rake::Task.define_task(:first) do
+            called[:first] += 1
+        end
+        ::Rake::Task.define_task(:before) do
+            called[:before] += 1
+        end
+        ::Rake::Task.define_task(:dummy_task) do
+            called[:task] += 1
+        end
+        ::Rake::Task.define_task(:after) do
+            called[:after] += 1
+        end
+
+        assert_equal 4, ::Rake::Task.tasks.size
+
+        TaskHelpers.add_hooks
+        assert_equal 4, ::Rake::Task.tasks.size
+        t = ::Rake::Task[:dummy_task]
+        assert_equal 'dummy_task', t.name
+        assert { t.prerequisites.include? :before }
+        assert { t.prerequisites.include? :first }
+
+        t.invoke
+        assert_equal 1, called[:first]
+        assert_equal 1, called[:before]
+        assert_equal 1, called[:task]
+        assert_equal 1, called[:after]
+
+        t.reenable
+        t.invoke
+        assert_equal 1, called[:first]
+        assert_equal 2, called[:before]
+        assert_equal 2, called[:task]
+        assert_equal 2, called[:after]
+    end
+
+    def test_executes_hooks_work_with_dependent_tasks
+
+        assert_empty ::Rake::Task.tasks
+
+        called = {
+            first: 0,
+            before: 0,
+            task_1: 0,
+            task_2: 0,
+            after: 0,
+        }
+
+        ::Rake::Task.define_task(:first) do
+            called[:first] += 1
+        end
+        ::Rake::Task.define_task(:before) do
+            called[:before] += 1
+        end
+        ::Rake::Task.define_task(:task_1) do
+            called[:task_1] += 1
+        end
+        ::Rake::Task.define_task(:task_2 => [ :task_1 ]) do
+            called[:task_2] += 1
+        end
+        ::Rake::Task.define_task(:after) do
+            called[:after] += 1
+        end
+
+        assert_equal 5, ::Rake::Task.tasks.size
+        TaskHelpers.add_hooks
+        assert_equal 5, ::Rake::Task.tasks.size
+
+        t1 = ::Rake::Task[:task_1]
+        t2 = ::Rake::Task[:task_2]
+
+        assert { t1.prerequisites.include? :before }
+        assert { t1.prerequisites.include? :first }
+        assert { t2.prerequisites.include? :before }
+        assert { t2.prerequisites.include? :first }
+
+        t2.invoke
+        assert_equal 1, called[:first]
+        assert_equal 2, called[:before]
+        assert_equal 1, called[:task_1]
+        assert_equal 1, called[:task_2]
+        assert_equal 2, called[:after]
+
+        t1.reenable
+        t2.reenable
+        t2.invoke
+        assert_equal 1, called[:first]
+        assert_equal 4, called[:before]
+        assert_equal 2, called[:task_1]
+        assert_equal 2, called[:task_2]
+        assert_equal 4, called[:after]
+    end
+end
+
+# ############################## end of file ############################# #
+
+

data/test/unit/control/razor/tc_executor.rb

@@ -0,0 +1,129 @@
+#! /usr/bin/env ruby
+
+# ######################################################################## #
+#
+#  Copyright (c) 2019 Razor Risk Technologies Pty Limited. All rights reserved.
+#
+# ######################################################################## #
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 4), 'lib')
+
+unless $DEBUG
+
+    require 'pantheios/globals'
+    require 'pantheios/services/null_log_service'
+
+    ::Pantheios::Globals.INITIAL_SERVICE_CLASSES = [ ::Pantheios::Services::NullLogService ]
+end
+
+require 'razor_risk/razor/control/razor/executor'
+
+require 'xqsr3/extensions/test/unit'
+
+require 'test/unit'
+
+# Class description
+class MockLogger
+
+    include ::Xqsr3::Quality::ParameterChecking
+
+    # Initializer.
+    #
+    # @param block [#call] Block to ececute when log is called.
+    #
+    def initialize &block
+
+        @block = check_parameter block, 'block', responds_to: [:call]
+    end
+
+    def severity_logged? severity; true; end
+
+    def log level, time, prefix, msg
+
+        @block.call level, msg
+    end
+end # class MockLogger
+
+class Test_Executor < Test::Unit::TestCase
+
+    include ::RazorRisk::Razor::Control::Razor
+
+    DIR = File.join(File.dirname(__FILE__), 'test_scripts')
+
+    def teardown
+
+        ::Pantheios::Core.set_service(MockLogger.new {})
+    end
+
+    def test_is_a_class
+
+        assert_kind_of ::Class, Executor
+    end
+
+    def test_can_be_initialized
+
+        assert_nothing_raised do
+            Executor.new
+        end
+    end
+
+    def test_reports_correct_status
+
+        ex = Executor.new
+
+        scripts = {
+            'exit_success.cmd' => true,
+            'exit_failure.cmd' => false,
+            'exit_strange.cmd' => false,
+        }
+
+        scripts.each do |script, status|
+            assert_equal(
+                status,
+                ex.execute(script, chdir: DIR),
+                "'(#{script}' did not exit with status '#{status}'"
+            )
+        end
+    end
+
+    def test_logs_process_output
+
+        script = 'print.cmd'
+
+        pass_stdout = false
+        pass_stderr = false
+
+        logger = MockLogger.new do |level, msg|
+
+            case level
+            when :informational
+                assert_equal "#{script}: stdout", msg
+                pass_stdout = true
+            when :warning
+                assert_equal "#{script}: stderr", msg
+                pass_stderr = true
+            else
+                flunk
+            end
+        end
+
+        ::Pantheios::Core.set_service logger
+
+        ex = Executor.new
+        ex.execute(script, chdir: DIR)
+
+        assert pass_stdout
+        assert pass_stderr
+    end
+
+    def test_handles_script_with_pause
+
+        script = 'pause.cmd'
+        ex = Executor.new
+        assert ex.execute(script, chdir: DIR)
+    end
+end
+
+# ############################## end of file ############################# #
+
+