oktest 1.4.0 → 1.5.0

data/test/misc_test.rb

@@ -2,61 +2,61 @@
 # frozen_string_literal: true
 
 ###
-### $Release: 1.4.0 $
+### $Release: 1.5.0 $
 ### $Copyright: copyright(c) 2011-2024 kuwata-lab.com all rights reserved $
 ### $License: MIT License $
 ###
 
-require_relative './initialize'
+require_relative './init'
 
 
-class Misc_TC < TC
+class Misc__Test
+  extend NanoTest
 
-  def setup()
-    @_auto_run = Oktest::Config.auto_run
+  def self.test_subject(desc, &b)
+    auto_run = Oktest::Config.auto_run
     Oktest::Config.auto_run = true
-  end
-
-  def teardown()
-    Oktest::Config.auto_run = @_auto_run
+    super
+  ensure
+    Oktest::Config.auto_run = auto_run
     Oktest::THE_GLOBAL_SCOPE.clear_children()
   end
 
-  describe 'Oktest.auto_run?()' do
-    it "[!7vm4d] returns false if error raised when loading test scripts." do
+  test_target 'Oktest.auto_run?()' do
+    test_subject "[!7vm4d] returns false if error raised when loading test scripts." do
       Oktest.scope do
       end
       begin
         1/0
       rescue => exc
-        assert_eq Oktest.auto_run?, false
+        test_eq? Oktest.auto_run?, false
       end
-      assert exc != nil, "exception not raised"
+      test_ok? exc != nil, msg: "exception not raised"
     end
-    it "[!oae85] returns true if exit() called." do
+    test_subject "[!oae85] returns true if exit() called." do
       Oktest.scope do
       end
       #
       begin
         exit(0)
       rescue SystemExit => exc
-        assert_eq Oktest.auto_run?, true
+        test_eq? Oktest.auto_run?, true
       end
-      assert exc != nil, "exception not raised"
+      test_ok? exc != nil, msg: "exception not raised"
     end
-    it "[!rg5aw] returns false if Oktest.scope() never been called." do
-      assert_eq Oktest::THE_GLOBAL_SCOPE.has_child?, false
-      assert_eq Oktest.auto_run?, false
+    test_subject "[!rg5aw] returns false if Oktest.scope() never been called." do
+      test_eq? Oktest::THE_GLOBAL_SCOPE.has_child?, false
+      test_eq? Oktest.auto_run?, false
     end
-    it "[!0j3ek] returns true if Config.auto_run is enabled." do
+    test_subject "[!0j3ek] returns true if Config.auto_run is enabled." do
       Oktest.scope do
       end
       bkup = Oktest::Config.auto_run
       begin
         Oktest::Config.auto_run = true
-        assert_eq Oktest.auto_run?, true
+        test_eq? Oktest.auto_run?, true
         Oktest::Config.auto_run = false
-        assert_eq Oktest.auto_run?, false
+        test_eq? Oktest.auto_run?, false
       ensure
         Oktest::Config.auto_run = bkup
       end
@@ -66,15 +66,16 @@ class Misc_TC < TC
 end
 
 
-class Color_TC < TC
+class Color__Test
+  extend NanoTest
 
-  describe '.status()' do
-    it "[!yev5y] returns string containing color escape sequence." do
-      assert_eq Oktest::Color.status(:PASS , "Pass" ), "\e[0;36mPass\e[0m"
-      assert_eq Oktest::Color.status(:FAIL , "Fail" ), "\e[0;31mFail\e[0m"
-      assert_eq Oktest::Color.status(:ERROR, "Error"), "\e[1;31mError\e[0m"
-      assert_eq Oktest::Color.status(:SKIP , "Skip" ), "\e[0;33mSkip\e[0m"
-      assert_eq Oktest::Color.status(:TODO , "Todo" ), "\e[0;33mTodo\e[0m"
+  test_target 'Oktest::Color.status()' do
+    test_subject "[!yev5y] returns string containing color escape sequence." do
+      test_eq? Oktest::Color.status(:PASS , "Pass" ), "\e[0;36mPass\e[0m"
+      test_eq? Oktest::Color.status(:FAIL , "Fail" ), "\e[0;31mFail\e[0m"
+      test_eq? Oktest::Color.status(:ERROR, "Error"), "\e[1;31mError\e[0m"
+      test_eq? Oktest::Color.status(:SKIP , "Skip" ), "\e[0;33mSkip\e[0m"
+      test_eq? Oktest::Color.status(:TODO , "Todo" ), "\e[0;33mTodo\e[0m"
     end
   end
 

data/test/nanot.rb

@@ -0,0 +1,307 @@
+# -*- coding: utf-8 -*-
+# frozen_string_literal: true
+
+
+module NanoTest
+  module_function
+
+  def test_target(target, &b)
+    yield
+  end
+
+  def test_subject(subject, &b)
+    yield
+    print "."
+    $nantotest_subject_count += 1
+  end
+
+  $nantotest_subject_count = 0
+
+  class TestFailed < StandardError
+  end
+
+  def test_ok?(result, msg: nil)
+    return true if result
+    msg ||= "Test failed."
+    raise TestFailed, msg
+  end
+
+  def test_eq?(actual, expected, msg: nil)
+    return true if actual == expected
+    msg ||= "<ACTUAL> == <EXPECTED> : failed."
+    #s1 = "    <ACTUAL>:   #{actual.inspect}"
+    #s2 = "    <EXPECTED>: #{expected.inspect}"
+    require 'pp' unless defined?(PP)
+    s1 = "    <ACTUAL>:   #{PP.pp(actual, String.new).chomp}"
+    s2 = "    <EXPECTED>: #{PP.pp(expected, String.new).chomp}"
+    raise TestFailed, "#{msg}\n#{s1}\n#{s2}"
+  end
+
+  def test_match?(actual_str, expected_rexp, msg: nil)
+    return true if actual_str =~ expected_rexp
+    msg ||= "<ACTUAL> =~ <EXPECTED> : failed."
+    require 'pp' unless defined?(PP)
+    s1 = "    <ACTUAL>:   #{PP.pp(actual_str, String.new).chomp}"
+    s2 = "    <EXPECTED>: #{PP.pp(expected_rexp, String.new).chomp}"
+    raise TestFailed, "#{msg}\n#{s1}\n#{s2}"
+  end
+
+  def test_exception?(exception_class, &b)
+    begin
+      yield
+    rescue exception_class => exc
+      return exc
+    else
+      raise TestFailed, "Expected #{exception_class.name} to be raised, but not."
+    end
+  end
+
+  def capture_output!(stdin="", tty: false, &b)
+    require 'stringio' unless defined?(StringIO)
+    bkup = [$stdin, $stdout, $stderr]
+    $stdin  = StringIO.new(stdin)
+    $stdout = StringIO.new
+    $stderr = StringIO.new
+    if tty
+      def $stdin.tty? ; true; end
+      def $stdout.tty?; true; end
+      def $stderr.tty?; true; end
+    end
+    yield
+    stdout_output = $stdout.string
+    stderr_output = $stderr.string
+    return stdout_output, stderr_output
+  ensure
+    $stdin, $stdout, $stderr = bkup
+  end
+
+end
+
+
+at_exit {
+  if $nantotest_subject_count > 0
+    puts "\n"
+    puts "(#{$nantotest_subject_count} tests)"
+  end
+}
+
+
+if __FILE__ == $0
+
+  self.extend NanoTest
+
+  def do_test(desc, &b)
+    yield desc
+  end
+
+  ## test_target()
+  do_test "test_target() yields block." do |desc|
+    called = false
+    test_target 'example' do
+      called = true
+    end
+    called == true  or fail "Failed: #{desc}"
+  end
+
+  ## test_subject()
+  do_test "test_subject() yields block." do |desc|
+    called = false
+    test_subject 'example' do
+      called = true
+    end
+    called == true  or fail "Failed: #{desc}"
+  end
+
+  ## test_ok?()
+  do_test "test_ok?() raises nothing if arg is truthy." do |desc|
+    test_ok? (1+1) == 2
+  end
+  do_test "test_ok?() raises TestFailed if arg is falty." do |desc|
+    begin
+      test_ok? (1+1) == 3
+    rescue NanoTest::TestFailed => exc
+      expected = "Test failed."
+      exc.message == expected  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+  do_test "test_ok?() accepts a message string." do |desc|
+    msg = "should be equal to 2"
+    begin
+      test_ok? (1+1) == 3, msg: msg
+    rescue NanoTest::TestFailed => exc
+      exc.message == msg  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+
+  ## test_eq?()
+  do_test "test_eq?() raises nothing if args are equal." do |desc|
+    test_eq? "ABC", "ABC"
+  end
+  do_test "test_eq?() raises TestFailed if args are not equal." do |desc|
+    begin
+      test_eq? "ABC", "abc"
+    rescue NanoTest::TestFailed => exc
+      expected = "<ACTUAL> == <EXPECTED> : failed.\n"\
+                 "    <ACTUAL>:   \"ABC\"\n"\
+                 "    <EXPECTED>: \"abc\""
+      exc.message == expected  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+  do_test "test_eq?() reports actual and expected value in pretty print format." do |desc|
+    begin
+      actual1 = {
+        name: "Alice", email: "alice@gmail.com", gender: "F",
+        department: "Sales & Marketing",
+      }
+      expected1 = {
+        name: "Alice", email: "alice@gmail.org", gender: "F",
+        department: "Sales & Marketing",
+      }
+      test_eq? actual1, expected1
+    rescue NanoTest::TestFailed => exc
+      expected = <<'END'
+<ACTUAL> == <EXPECTED> : failed.
+    <ACTUAL>:   {:name=>"Alice",
+ :email=>"alice@gmail.com",
+ :gender=>"F",
+ :department=>"Sales & Marketing"}
+    <EXPECTED>: {:name=>"Alice",
+ :email=>"alice@gmail.org",
+ :gender=>"F",
+ :department=>"Sales & Marketing"}
+END
+      expected = expected.chomp
+      exc.message == expected  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+  do_test "test_eq?() accepts 'msg:' kwarg." do
+    begin
+      test_eq? "ABC", "abc", msg: "NOT EQUAL"
+    rescue NanoTest::TestFailed => exc
+      expected = "NOT EQUAL\n"\
+                 "    <ACTUAL>:   \"ABC\"\n"\
+                 "    <EXPECTED>: \"abc\""
+      exc.message == expected  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+
+  ## test_match?()
+  do_test "test_match?() raises nothing if str matched to regexp." do |desc|
+    test_match? "123", /^\d+$/
+  end
+  do_test "test_match?() raises TestFailed if str not matched to regexp." do |desc|
+    begin
+      test_match? "ABC", /^\d+$/
+    rescue NanoTest::TestFailed => exc
+      expected = "<ACTUAL> =~ <EXPECTED> : failed.\n"\
+                 "    <ACTUAL>:   \"ABC\"\n"\
+                 "    <EXPECTED>: /^\\d+$/"
+      exc.message == expected  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+  do_test "test_match?() reports str and regexp values in pretty print format." do |desc|
+    begin
+      test_match? "ABC\nDEF\nGHI\n", /^\d+$/
+    rescue NanoTest::TestFailed => exc
+      expected = <<'END'
+<ACTUAL> =~ <EXPECTED> : failed.
+    <ACTUAL>:   "ABC\n" + "DEF\n" + "GHI\n"
+    <EXPECTED>: /^\d+$/
+END
+      expected = expected.chomp
+      exc.message == expected  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+  do_test "test_match?() accepts 'msg:' kwarg." do
+    begin
+      test_match? "ABC", /^\d+$/, msg: "NOT MATCHED"
+    rescue NanoTest::TestFailed => exc
+      expected = "NOT MATCHED\n"\
+                 "    <ACTUAL>:   \"ABC\"\n"\
+                 "    <EXPECTED>: /^\\d+$/"
+      exc.message == expected  or fail "Failed: #{desc}"
+    else
+      fail "TestFailed should be raised but not: #{desc}"
+    end
+  end
+
+  ## test_exception?()
+  do_test "test_exception?() raises nothing if expected exception raised in block." do
+    test_exception? ZeroDivisionError do
+      1 / 0
+    end
+  end
+  do_test "test_exception?() raises TestFailed if expected exception not raised in block." do
+    begin
+      test_exception? ZeroDivisionError do
+        1.0 / 0.0
+      end
+    rescue NanoTest::TestFailed => exc
+      expected = "Expected ZeroDivisionError to be raised, but not."
+      exc.message == expected or fail "Failed: #{desc}"
+    end
+  end
+
+  ## capture_output!()
+  do_test "capture_output!() captures stdout and stderro." do |desc|
+    sout, serr = capture_output!() do
+      print "ABC"
+      $stderr.print "DEF"
+    end
+    sout == "ABC"  or fail "Failed (sout): #{desc}"
+    serr == "DEF"  or fail "Failed (serr): #{desc}"
+  end
+  do_test "capture_output!() accepts stdin data." do |desc|
+    data = nil
+    capture_output!("abc\n") do
+      data = $stdin.read()
+    end
+    data == "abc\n"  or fail "Failed: #{desc}"
+  end
+  do_test "capture_output!() restores original stdin, stdout and stderr." do |desc|
+    io = [$stdin, $stdout, $stderr]
+    capture_output!() do
+      $stdin  != io[0]  or fail "Failed (stdin): #{desc}"
+      $stdout != io[1]  or fail "Failed (stdout): #{desc}"
+      $stderr != io[2]  or fail "Failed (stderr): #{desc}"
+    end
+    $stdin  == io[0]  or fail "Failed (stdin): #{desc}"
+    $stdout == io[1]  or fail "Failed (stdout): #{desc}"
+    $stderr == io[2]  or fail "Failed (stderr): #{desc}"
+  end
+  do_test "capture_output!() makes io objects to pseudo tty." do |desc|
+    capture_output!(tty: true) do
+      $stdin.tty?  == true   or fail "Failed (stdin): #{desc}"
+      $stdout.tty? == true   or fail "Failed (stdout): #{desc}"
+      $stderr.tty? == true   or fail "Failed (stderr): #{desc}"
+    end
+    capture_output!(tty: false) do
+      $stdin.tty?  == false  or fail "Failed (stdin): #{desc}"
+      $stdout.tty? == false  or fail "Failed (stdout): #{desc}"
+      $stderr.tty? == false  or fail "Failed (stderr): #{desc}"
+    end
+    capture_output!() do
+      $stdin.tty?  == false  or fail "Failed (stdin): #{desc}"
+      $stdout.tty? == false  or fail "Failed (stdout): #{desc}"
+      $stderr.tty? == false  or fail "Failed (stderr): #{desc}"
+    end
+  end
+
+  $nantotest_subject_count = 0
+  puts ""
+
+end