oktest 1.4.0 → 1.5.0

data/test/reporter_test.rb

@@ -2,16 +2,90 @@
 # 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'
 
 
 module ReporterTestHelper
 
+  INPUT_7 = <<'END'
+require 'oktest'
+
+Oktest.scope do
+
+  topic "Parent" do
+
+    topic "Child1" do
+      spec "1+1 should be 2" do
+        ok {1+1} == 2
+      end
+      spec "1-1 should be 0" do
+        ok {1-1} == 0
+      end
+    end
+
+    topic "Child2" do
+      spec "1*1 should be 1" do
+        ok {1*1} == 2
+      end
+      spec "1/1 should be 1" do
+        ok {1/0} == 1
+      end
+    end
+
+    topic "Child3" do
+      spec "skip example" do
+        skip_when true, "a certain condition"
+      end
+      spec "todo example"
+    end
+
+    case_when "x is negative" do
+      spec "x*x is positive." do
+        x = -2
+        ok {x*x} > 0
+      end
+    end
+
+    case_else do
+      spec "x*x is also positive." do
+        x = 2
+        ok {x*x} > 0
+      end
+    end
+
+    spec "last spec" do
+      ok {1+1} == 2
+    end
+
+  end
+
+end
+
+END
+
+  def default_test
+  end
+
+  def test_subject(desc, &b)
+    @filename = "_test.tmp"
+    File.write(@filename, INPUT_7)
+    color_enabled = Oktest::Config.color_enabled
+    Oktest::Config.color_enabled = true
+    super
+  ensure
+    Oktest::Config.color_enabled = color_enabled
+    File.unlink(@filename) if @filename && File.exist?(@filename)
+  end
+
+  def run(*opts)
+    return capture_output! { Oktest::MainApp.main(opts) }
+  end
+
   def edit_actual(output)
     bkup = output.dup
     output = output.gsub(/^.*\r/, '')
@@ -30,10 +104,11 @@ module ReporterTestHelper
 end
 
 
-class BaseReporter_TC < TC
-  include ReporterTestHelper
+class BaseReporter__Test
+  extend NanoTest
+  extend ReporterTestHelper
 
-  def new_topic_and_spec()
+  def self.new_topic_and_spec()
     sc = Oktest::ScopeNode.new(nil, "foo.rb")
     t1 = Oktest::TopicNode.new(sc, 'Example')
     t2 = Oktest::TopicNode.new(t1, Array)
@@ -42,33 +117,33 @@ class BaseReporter_TC < TC
     return t3, spec
   end
 
-  describe '#enter_all()' do
-    it "[!pq3ia] initalizes counter by zero." do
+  test_target 'Oktest::BaseReporter#enter_all()' do
+    test_subject "[!pq3ia] initalizes counter by zero." do
       r = Oktest::BaseReporter.new
       c = r.instance_eval { @counts }
-      assert_eq c, {}
+      test_eq? c, {}
       #
       r.enter_all(nil)
       c = r.instance_eval { @counts }
-      assert_eq c, {:PASS=>0, :FAIL=>0, :ERROR=>0, :SKIP=>0, :TODO=>0}
+      test_eq? c, {:PASS=>0, :FAIL=>0, :ERROR=>0, :SKIP=>0, :TODO=>0}
     end
   end
 
-  describe '#exit_all()' do
-    it "[!wjp7u] prints footer with elapsed time." do
+  test_target 'Oktest::BaseReporter#exit_all()' do
+    test_subject "[!wjp7u] prints footer with elapsed time." do
       r = Oktest::BaseReporter.new
       r.enter_all(nil)
       r.instance_eval { @start_at = Time.now - 7.0 }
-      sout, serr = capture do
+      sout, serr = capture_output! do
         r.exit_all(nil)
       end
-      assert_eq sout, "## total:0 (pass:0, fail:0, error:0, skip:0, todo:0) in 7.00s\n"
-      assert_eq serr, ""
+      test_eq? sout, "## total:0 (pass:0, fail:0, error:0, skip:0, todo:0) in 7.00s\n"
+      test_eq? serr, ""
     end
   end
 
-  describe '#exit_spec()' do
-    it "[!r6yge] increments counter according to status." do
+  test_target 'Oktest::BaseReporter#exit_spec()' do
+    test_subject "[!r6yge] increments counter according to status." do
       begin; 1/0
       rescue => exc
       end
@@ -77,21 +152,21 @@ class BaseReporter_TC < TC
       topic1, spec1 = new_topic_and_spec()
       #
       r.exit_spec(spec1, 1, :PASS, nil, topic1)
-      assert_eq r.counts, {:PASS=>1, :FAIL=>0, :ERROR=>0, :SKIP=>0, :TODO=>0}
+      test_eq? r.counts, {:PASS=>1, :FAIL=>0, :ERROR=>0, :SKIP=>0, :TODO=>0}
       #
       r.exit_spec(spec1, 1, :FAIL, exc, topic1)
-      assert_eq r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>0, :SKIP=>0, :TODO=>0}
+      test_eq? r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>0, :SKIP=>0, :TODO=>0}
       #
       r.exit_spec(spec1, 1, :ERROR, exc, topic1)
-      assert_eq r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>1, :SKIP=>0, :TODO=>0}
+      test_eq? r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>1, :SKIP=>0, :TODO=>0}
       #
       r.exit_spec(spec1, 1, :SKIP, nil, topic1)
-      assert_eq r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>1, :SKIP=>1, :TODO=>0}
+      test_eq? r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>1, :SKIP=>1, :TODO=>0}
       #
       r.exit_spec(spec1, 1, :TODO, nil, topic1)
-      assert_eq r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>1, :SKIP=>1, :TODO=>1}
+      test_eq? r.counts, {:PASS=>1, :FAIL=>1, :ERROR=>1, :SKIP=>1, :TODO=>1}
     end
-    it "[!nupb4] keeps exception info when status is FAIL or ERROR." do
+    test_subject "[!nupb4] keeps exception info when status is FAIL or ERROR." do
       begin; 1/0
       rescue => exc
       end
@@ -107,61 +182,61 @@ class BaseReporter_TC < TC
       r.exit_spec(spec1, 1, :TODO, nil, topic1)
       #
       exceptions = r.instance_variable_get('@exceptions')
-      assert_eq exceptions.length, 2
-      assert_eq exceptions[0][1], :FAIL
-      assert_eq exceptions[1][1], :ERROR
+      test_eq? exceptions.length, 2
+      test_eq? exceptions[0][1], :FAIL
+      test_eq? exceptions[1][1], :ERROR
     end
   end
 
-  describe '#reset_counts()' do
-    it "[!oc29s] clears counters to zero." do
+  test_target 'Oktest::BaseReporter#reset_counts()' do
+    test_subject "[!oc29s] clears counters to zero." do
       r = Oktest::BaseReporter.new
       r.instance_eval do
         @counts = {:PASS=>5, :FAIL=>4, :ERROR=>3, :SKIP=>2, :TODO=>1}
       end
       r.__send__(:reset_counts)
-      assert_eq r.instance_variable_get('@counts'), {:PASS=>0, :FAIL=>0, :ERROR=>0, :SKIP=>0, :TODO=>0}
+      test_eq? r.instance_variable_get('@counts'), {:PASS=>0, :FAIL=>0, :ERROR=>0, :SKIP=>0, :TODO=>0}
     end
   end
 
-  describe '#print_exc_message()' do
-    def error_msg()
+  test_target 'Oktest::BaseReporter#print_exc_message()' do
+    def self.error_msg()
       return ("something failed\n"\
               "  expect: foo\n"\
               "  actual: bar\n")
     end
-    it "[!hr7jn] prints detail of assertion failed." do
+    test_subject "[!hr7jn] prints detail of assertion failed." do
       errmsg = error_msg()
       exc = Oktest::AssertionFailed.new(errmsg)
       r = Oktest::BaseReporter.new
-      sout, serr = capture do
+      sout, serr = capture_output! do
         r.__send__(:print_exc_message, exc, :FAIL)
       end
-      assert_eq sout, plain2colored(<<END)
+      test_eq? sout, plain2colored(<<END)
 <R>something failed</R>
   expect: foo
   actual: bar
 END
-      assert_eq serr, ""
+      test_eq? serr, ""
     end
-    it "[!pd41p] prints detail of exception." do
+    test_subject "[!pd41p] prints detail of exception." do
       errmsg = error_msg()
       exc = Oktest::AssertionFailed.new(errmsg)
       r = Oktest::BaseReporter.new
-      sout, serr = capture do
+      sout, serr = capture_output! do
         r.__send__(:print_exc_message, exc, :ERROR)
       end
-      assert_eq sout, plain2colored(<<END)
+      test_eq? sout, plain2colored(<<END)
 <R>Oktest::AssertionFailed: something failed</R>
   expect: foo
   actual: bar
 END
-      assert_eq serr, ""
+      test_eq? serr, ""
     end
   end
 
-  describe '#print_exc_backtrace()' do
-    it "[!ocxy6] prints backtrace info and lines in file." do
+  test_target 'Oktest::BaseReporter#print_exc_backtrace()' do
+    test_subject "[!ocxy6] prints backtrace info and lines in file." do
       begin
         if true
           if true
@@ -173,47 +248,46 @@ END
       end
       #
       expected = <<END
-    test/reporter_test.rb:#{lineno}:in `block (2 levels) in <class:BaseReporter_TC>'
+    test/reporter_test.rb:#{lineno}:in `block (2 levels) in <main>'
         raise Oktest::AssertionFailed, "something failed."
 END
       #
       r = Oktest::BaseReporter.new
-      sout, serr = capture do
+      sout, serr = capture_output! do
         r.__send__(:print_exc_backtrace, exc, :FAIL)
       end
-      assert sout.start_with?(expected), "traceback not matched"
-      assert_eq serr, ""
+      sout = sout.sub(/ in <.*?>/, " in <main>")
+      test_ok? sout.start_with?(expected), msg: "traceback not matched"
+      test_eq? serr, ""
     end
-    it "[!jbped] skips backtrace of oktest.rb when assertion failure." do
-      begin
+    test_subject "[!jbped] skips backtrace of oktest.rb when assertion failure." do
+      exc = test_exception? Oktest::AssertionFailed do
         eval "raise Oktest::AssertionFailed, 'dummie'", binding(), "lib/oktest.rb", 100
-      rescue Oktest::AssertionFailed => exc
       end
       #
       status = :FAIL
-      sout, serr = capture do
+      sout, serr = capture_output! do
         Oktest::BaseReporter.new.__send__(:print_exc_backtrace, exc, status)
       end
-      assert sout !~ /lib\/oktest\.rb:/, "should skip but not"
-      assert_eq serr, ""
+      test_ok? sout !~ /lib\/oktest\.rb:/, msg: "should skip but not"
+      test_eq? serr, ""
     end
-    it "[!cfkzg] don't skip first backtrace entry when error." do
-      begin
+    test_subject "[!cfkzg] don't skip first backtrace entry when error." do
+      exc = test_exception? Oktest::AssertionFailed do
         eval "raise Oktest::AssertionFailed, 'dummie'", binding(), "lib/oktest.rb", 100
-      rescue Oktest::AssertionFailed => exc
       end
       #
       status = :ERROR
-      sout, serr = capture do
+      sout, serr = capture_output! do
         Oktest::BaseReporter.new.__send__(:print_exc_backtrace, exc, status)
       end
-      assert sout =~ /lib\/oktest\.rb:100/, "should not skip but does"
-      assert_eq serr, ""
+      test_match? sout, /lib\/oktest\.rb:100/, msg: "should not skip but does"
+      test_eq? serr, ""
     end
   end
 
-  describe '#print_exc()' do
-    it "[!5ara3] prints exception info of assertion failure." do
+  test_target 'Oktest::BaseReporter#print_exc()' do
+    test_subject "[!5ara3] prints exception info of assertion failure." do
       begin
         if true
           lineno = __LINE__ + 1
@@ -224,19 +298,20 @@ END
       #
       expected = <<END
 [<R>Fail</R>] <b>Example > Array > When some condition > 1+1 shoould be 2.</b>
-    #{__FILE__}:#{lineno}:in `block (2 levels) in <class:BaseReporter_TC>'
+    #{__FILE__}:#{lineno}:in `block (2 levels) in <main>'
         raise Oktest::AssertionFailed, 'dummie:43201'
 END
       #
       topic1, spec1 = new_topic_and_spec()
       status = :FAIL
-      sout, serr = capture do
+      sout, serr = capture_output! do
         Oktest::BaseReporter.new.__send__(:print_exc, spec1, status, exc, topic1)
       end
-      assert sout.start_with?(plain2colored(expected)), "not matched"
-      assert_eq serr, ""
+      sout = sout.gsub(/ in <.*?>/, " in <main>")
+      test_ok? sout.start_with?(plain2colored(expected)), msg: "not matched"
+      test_eq? serr, ""
     end
-    it "[!pcpy4] prints exception info of error." do
+    test_subject "[!pcpy4] prints exception info of error." do
       begin
         if true
           lineno = __LINE__ + 1
@@ -253,16 +328,16 @@ END
       #
       topic1, spec1 = new_topic_and_spec()
       status = :ERROR
-      sout, serr = capture do
+      sout, serr = capture_output! do
         Oktest::BaseReporter.new.__send__(:print_exc, spec1, status, exc, topic1)
       end
-      assert sout.start_with?(plain2colored(expected)), "not matched"
-      assert_eq serr, ""
+      test_ok? sout.start_with?(plain2colored(expected)), msg: "not matched"
+      test_eq? serr, ""
     end
   end
 
-  describe '#print_exception()' do
-    def new_reporter_with_exceptions(exc)
+  test_target 'Oktest::BaseReporter#print_exception()' do
+    def self.new_reporter_with_exceptions(exc)
       topic1, spec1 = new_topic_and_spec()
       r = Oktest::BaseReporter.new
       r.instance_eval do
@@ -275,7 +350,7 @@ END
       end
       return r
     end
-    it "[!fbr16] prints assertion failures and excerptions with separator." do
+    test_subject "[!fbr16] prints assertion failures and excerptions with separator." do
       begin
         raise Oktest::AssertionFailed, 'dummie'
       rescue Oktest::AssertionFailed => exc
@@ -285,31 +360,31 @@ END
       expected1 = "[<R>Fail</R>] <b>Example > Array > When some condition > 1+1 shoould be 2.</b>\n"
       expected2 = "[<E>ERROR</E>] <b>Example > Array > When some condition > 1+1 shoould be 2.</b>\n"
       #
-      sout, serr = capture { r.__send__(:print_exceptions) }
-      assert sout.start_with?(sep + plain2colored(expected1)), "not matched"
-      assert sout.include?(sep + plain2colored(expected2)), "not matched"
-      assert sout.end_with?(sep), "not matched"
-      assert_eq serr, ""
+      sout, serr = capture_output! { r.__send__(:print_exceptions) }
+      test_ok? sout.start_with?(sep + plain2colored(expected1)), msg: "not matched"
+      test_ok? sout.include?(sep + plain2colored(expected2)), msg: "not matched"
+      test_ok? sout.end_with?(sep), msg: "not matched"
+      test_eq? serr, ""
     end
-    it "[!2s9r2] prints nothing when no fails nor errors." do
+    test_subject "[!2s9r2] prints nothing when no fails nor errors." do
       r = new_reporter_with_exceptions(nil)
-      sout, serr = capture { r.__send__(:print_exceptions) }
-      assert_eq sout, ""
-      assert_eq serr, ""
+      sout, serr = capture_output! { r.__send__(:print_exceptions) }
+      test_eq? sout, ""
+      test_eq? serr, ""
     end
-    it "[!ueeih] clears exceptions." do
+    test_subject "[!ueeih] clears exceptions." do
       begin 1/0
       rescue => exc
       end
       r = new_reporter_with_exceptions(exc)
-      assert ! r.instance_variable_get('@exceptions').empty?
-      sout, serr = capture { r.__send__(:print_exceptions) }
-      assert   r.instance_variable_get('@exceptions').empty?
+      test_ok? ! r.instance_variable_get('@exceptions').empty?
+      sout, serr = capture_output! { r.__send__(:print_exceptions) }
+      test_ok?   r.instance_variable_get('@exceptions').empty?
     end
   end
 
-  describe '#footer()' do
-    def new_footer(elapsed=0.5)
+  test_target 'Oktest::BaseReporter#footer()' do
+    def self.new_footer(elapsed=0.5)
       r = Oktest::BaseReporter.new
       r.enter_all(nil)
       r.instance_eval do
@@ -318,115 +393,58 @@ END
       return r.__send__(:footer, elapsed)
     end
 
-    it "[!iy4uo] calculates total count of specs." do
+    test_subject "[!iy4uo] calculates total count of specs." do
       ft = new_footer()
-      assert ft =~ /total:15 /, "failed to calculate total counts."
+      test_match? ft, /total:15 /, msg: "failed to calculate total counts."
     end
 
-    it "[!2nnma] includes count of each status." do
+    test_subject "[!2nnma] includes count of each status." do
       ft = new_footer()
-      assert ft =~ /pass:5\b/  , "failed to count passed status."
-      assert ft =~ /fail:4\b/  , "failed to count failed status."
-      assert ft =~ /error:3\b/ , "failed to count error status."
-      assert ft =~ /skip:2\b/  , "failed to count skipped status."
-      assert ft =~ /todo:1\b/   , "failed to count todo status."
+      test_match? ft, /pass:5\b/  , msg: "failed to count passed status."
+      test_match? ft, /fail:4\b/  , msg: "failed to count failed status."
+      test_match? ft, /error:3\b/ , msg: "failed to count error status."
+      test_match? ft, /skip:2\b/  , msg: "failed to count skipped status."
+      test_match? ft, /todo:1\b/  , msg: "failed to count todo status."
     end
 
-    it "[!fp57l] includes elapsed time." do
+    test_subject "[!fp57l] includes elapsed time." do
       ft = new_footer()
-      assert ft =~ / in 0.500s$/, "failed to embed elapsed time."
+      test_match? ft, / in 0.500s$/, msg: "failed to embed elapsed time."
     end
 
-    it "[!r5y02] elapsed time format is adjusted along to time length." do
-      assert new_footer(     0.5) =~ / in 0.500s$/       , "failed to embed elapsed time."
-      assert new_footer(     6.5) =~ / in 6.50s$/        , "failed to embed elapsed time."
-      assert new_footer(    17.5) =~ / in 17.5s$/        , "failed to embed elapsed time."
-      assert new_footer(    61.5) =~ / in 1:01.5s$/      , "failed to embed elapsed time."
-      assert new_footer(   610.5) =~ / in 10:10.5s$/     , "failed to embed elapsed time."
-      assert new_footer(  3600.5) =~ / in 1:00:00.5s$/   , "failed to embed elapsed time."
-      assert new_footer( 36000.5) =~ / in 10:00:00.5s$/  , "failed to embed elapsed time."
-      assert new_footer(360000.5) =~ / in 100:00:00.5s$/ , "failed to embed elapsed time."
+    test_subject "[!r5y02] elapsed time format is adjusted along to time length." do
+      test_match? new_footer(     0.5), / in 0.500s$/       , msg: "failed to embed elapsed time."
+      test_match? new_footer(     6.5), / in 6.50s$/        , msg: "failed to embed elapsed time."
+      test_match? new_footer(    17.5), / in 17.5s$/        , msg: "failed to embed elapsed time."
+      test_match? new_footer(    61.5), / in 1:01.5s$/      , msg: "failed to embed elapsed time."
+      test_match? new_footer(   610.5), / in 10:10.5s$/     , msg: "failed to embed elapsed time."
+      test_match? new_footer(  3600.5), / in 1:00:00.5s$/   , msg: "failed to embed elapsed time."
+      test_match? new_footer( 36000.5), / in 10:00:00.5s$/  , msg: "failed to embed elapsed time."
+      test_match? new_footer(360000.5), / in 100:00:00.5s$/ , msg: "failed to embed elapsed time."
     end
 
-    it "[!gx0n2] builds footer line." do
+    test_subject "[!gx0n2] builds footer line." do
       expected = "## total:15 (<C>pass:5</C>, <R>fail:4</R>, <E>error:3</E>, <Y>skip:2</Y>, <Y>todo:1</Y>) in 0.500s"
-      assert new_footer(), plain2colored(expected)
+      test_eq? new_footer(), plain2colored(expected)
     end
   end
 
-  describe '#spec_path()' do
-    it "[!dv6fu] returns path string from top topic to current spec." do
+  test_target 'Oktest::BaseReporter#spec_path()' do
+    test_subject "[!dv6fu] returns path string from top topic to current spec." do
       sc = Oktest::ScopeNode.new(nil, "foo.rb")
       t1 = Oktest::TopicNode.new(sc, 'Example')
       t2 = Oktest::TopicNode.new(t1, Array)
       t3 = Oktest::TopicNode.new(t2, 'When some condition')
       s1 = Oktest::SpecLeaf.new(t3, "1+1 shoould be 2.") { nil }
       path = Oktest::BaseReporter.new.__send__(:spec_path, s1, t3)
-      assert_eq path, "Example > Array > When some condition > 1+1 shoould be 2."
+      test_eq? path, "Example > Array > When some condition > 1+1 shoould be 2."
     end
   end
 
 end
 
 
-class Reporter_TC < TC
-  include ReporterTestHelper
-
-  INPUT = <<'END'
-require 'oktest'
-
-Oktest.scope do
-
-  topic "Parent" do
-
-    topic "Child1" do
-      spec "1+1 should be 2" do
-        ok {1+1} == 2
-      end
-      spec "1-1 should be 0" do
-        ok {1-1} == 0
-      end
-    end
-
-    topic "Child2" do
-      spec "1*1 should be 1" do
-        ok {1*1} == 2
-      end
-      spec "1/1 should be 1" do
-        ok {1/0} == 1
-      end
-    end
-
-    topic "Child3" do
-      spec "skip example" do
-        skip_when true, "a certain condition"
-      end
-      spec "todo example"
-    end
-
-    case_when "x is negative" do
-      spec "x*x is positive." do
-        x = -2
-        ok {x*x} > 0
-      end
-    end
-
-    case_else do
-      spec "x*x is also positive." do
-        x = 2
-        ok {x*x} > 0
-      end
-    end
-
-    spec "last spec" do
-      ok {1+1} == 2
-    end
-
-  end
-
-end
-
-END
+module ReporterOutput
 
   ERROR_PART = <<'END'
 ----------------------------------------------------------------------
@@ -498,37 +516,22 @@ END
 END
   QUIET_OUTPUT = QUIET_PART + ERROR_PART + FOOTER
 
-  def default_test
-  end
-
-  def setup
-    @filename = "_test.tmp"
-    File.write(@filename, INPUT)
-    @_color_enabled = Oktest::Config.color_enabled
-    Oktest::Config.color_enabled = true
-  end
-
-  def teardown
-    Oktest::Config.color_enabled = @_color_enabled
-    File.unlink(@filename) if @filename && File.exist?(@filename)
-  end
-
-  def run(*opts)
-    return capture { Oktest::MainApp.main(opts) }
-  end
-
 end
 
+include ReporterOutput
+
 
-class VerboseReporter_TC < Reporter_TC
+class VerboseReporter__Test
+  extend NanoTest
+  extend ReporterTestHelper
 
-  it "[!6o9nw] reports topic name and spec desc." do
+  test_subject "[!6o9nw] reports topic name and spec desc." do
     sout, serr = run("-sv", @filename)
-    assert_eq edit_actual(sout), edit_expected(VERBOSE_OUTPUT)
-    assert_eq serr, ""
+    test_eq? edit_actual(sout), edit_expected(VERBOSE_OUTPUT)
+    test_eq? serr, ""
   end
 
-  it "[!ibdu7] reports errors even when no topics." do
+  test_subject "[!ibdu7] reports errors even when no topics." do
     input = <<'END'
 require 'oktest'
 Oktest.scope do
@@ -555,52 +558,90 @@ END
 END
     #
     sout, serr = run("-sv", @filename)
-    assert_eq edit_actual(sout), edit_expected(expected)
-    assert_eq serr, ""
+    test_eq? edit_actual(sout), edit_expected(expected)
+    test_eq? serr, ""
   end
 
 end
 
 
-class SimpleReporter_TC < Reporter_TC
+class SimpleReporter__Test
+  extend NanoTest
+  extend ReporterTestHelper
+  extend ReporterOutput
 
-  it "[!jxa1b] reports topics and progress." do
+  test_subject "[!jxa1b] reports topics and progress." do
     sout, serr = run("-ss", @filename)
-    assert_eq edit_actual(sout), edit_expected(SIMPLE_OUTPUT)
-    assert_eq serr, ""
+    test_eq? edit_actual(sout), edit_expected(SIMPLE_OUTPUT)
+    test_eq? serr, ""
   end
 
 end
 
 
-class CompactReporter_TC < Reporter_TC
+class CompactReporter__Test
+  extend NanoTest
+  extend ReporterTestHelper
+  extend ReporterOutput
 
-  it "[!xfd5o] reports filename." do
+  test_subject "[!xfd5o] reports filename." do
     sout, serr = run("-sc", @filename)
-    assert_eq edit_actual(sout), edit_expected(COMPACT_OUTPUT)
-    assert_eq serr, ""
+    test_eq? edit_actual(sout), edit_expected(COMPACT_OUTPUT)
+    test_eq? serr, ""
   end
 
 end
 
 
-class PlainReporter_TC < Reporter_TC
+class PlainReporter__Test
+  extend NanoTest
+  extend ReporterTestHelper
+  extend ReporterOutput
 
-  it "[!w842j] reports progress." do
+  test_subject "[!w842j] reports progress." do
     sout, serr = run("-sp", @filename)
-    assert_eq edit_actual(sout), edit_expected(PLAIN_OUTPUT)
-    assert_eq serr, ""
+    test_eq? edit_actual(sout), edit_expected(PLAIN_OUTPUT)
+    test_eq? serr, ""
   end
 
 end
 
 
-class QuietReporter_TC < Reporter_TC
+class QuietReporter__Test
+  extend NanoTest
+  extend ReporterTestHelper
+  extend ReporterOutput
 
-  it "[!0z4im] reports all statuses except PASS status." do
+  test_subject "[!0z4im] reports all statuses except PASS status." do
     sout, serr = run("-sq", @filename)
-    assert_eq edit_actual(sout), edit_expected(QUIET_OUTPUT)
-    assert_eq serr, ""
+    test_eq? edit_actual(sout), edit_expected(QUIET_OUTPUT)
+    test_eq? serr, ""
+  end
+
+end
+
+
+class DefaultReprotingStyle__Test
+  extend NanoTest
+  extend ReporterTestHelper
+  extend ReporterOutput
+
+  test_target 'Oktest.DEFAULT_REPORTING_STYLE=()' do
+    test_subject "[!lbufd] raises error if unknown style specified." do
+      exc = test_exception? ArgumentError do
+        Oktest.DEFAULT_REPORTING_STYLE = "foo"
+      end
+      test_eq? exc.message, "foo: Unknown reporting style."
+    end
+    test_subject "[!dsbmo] changes value of default reporting style." do
+      test_eq? Oktest::DEFAULT_REPORTING_STYLE, "verbose"
+      begin
+        Oktest.DEFAULT_REPORTING_STYLE = "plain"
+        test_eq? Oktest::DEFAULT_REPORTING_STYLE, "plain"
+      ensure
+        Oktest.DEFAULT_REPORTING_STYLE = "verbose"
+      end
+    end
   end
 
 end