Begin moving tests to Test::Class

Now /t/lib has a Test::Kit... kit, and /t/tests hold Test::Class-based
tests.

Author: Chris White

Makefile.PL

@@ -21,6 +21,9 @@ WriteMakefile(
     },
     BUILD_REQUIRES => {
         'Test::More' => '0.92',
+        'Test::Kit' => '0',
+        'Test::Class' => '0',
+        'Test::Class::Load' => '0',
         'Capture::Tiny' => '0',
         'Module::Loaded' => '0',
         'File::Spec' => '0',

run

@@ -1,6 +1,6 @@
 #!/bin/sh
 if [[ $# -eq 0 ]]; then
-    args=(-f ex/xml1.axk ex/ex1.xml)
+    args=(-f ex/xml1.axk t/ex1.xml)
 else
     args=("$@")
 fi

t/06-class-tests.t

@@ -0,0 +1,11 @@
+#!perl
+# 06-class-tests.t: Run t/tests
+
+use 5.018;
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::Class::Load qw(t/tests);
+Test::Class->runtests;
+
+# vi: set ts=4 sts=4 sw=4 et ai fdm=marker fdl=1: #

ex/ex1.xml renamed to t/ex1.xml

@@ -0,0 +1,20 @@
+#!perl
+# AxkTest.pm: Test::Kit for XML::Axk
+
+use Test::Kit;
+use 5.018;
+use strict;
+use warnings;
+
+include feature => {
+    import => [':5.18']
+};
+include qw(strict warnings);
+include qw(Test::More File::Spec XML::Axk::App);
+include 'Capture::Tiny' => {
+    import => [qw(capture_stdout capture_merged)]
+};
+
+1;
+
+# vi: set ts=4 sts=4 sw=4 et ai fdm=marker fdl=1: #

t/lib/AxkTest.pm

@@ -1,24 +1,25 @@
 #!perl -T
 
-package main;
+package T::Object::TinyDefaults;
 
-use 5.018;
-use strict;
-use warnings;
-use Test::More tests=>27;
+use AxkTest;
+use parent 'Test::Class';
 
-BEGIN {
-    use_ok( 'Object::TinyDefaults' ) || print "Bail out!\n";
-}
+sub class { "Object::TinyDefaults" };
 
-diag( "Testing Object::TinyDefaults $Object::TinyDefaults::VERSION, Perl $], $^X" );
+sub startup :Tests(startup=>1) {
+    my $test = shift;
+    use_ok $test->class;
+    diag( "Testing Object::TinyDefaults $Object::TinyDefaults::VERSION, Perl $], $^X" );
+}
 
 # No defaults ===================================================== {{{1
 package NoDefaults {
     use Object::TinyDefaults qw(foo bar);
 }
 
-package main {
+package T::Object::TinyDefaults {
+sub no_defaults : Tests {
     my $x = NoDefaults->new();
     isa_ok($x, 'NoDefaults');
     isa_ok($x, 'Object::TinyDefaults');
@@ -29,14 +30,15 @@ package main {
     is($x->foo, 42, 'numeric assignment');
     is($x->bar, 'yes', 'string assignment');
 }
-
+}
 # }}}1
 # Defaults and field names ======================================== {{{1
 package DefaultsAndNames {
     use Object::TinyDefaults { foo => 'default' }, qw(foo bar);
 }
 
-package main {
+package T::Object::TinyDefaults {
+sub defaults_and_names : Tests {
     my $x = DefaultsAndNames->new();
     isa_ok($x, 'DefaultsAndNames');
     isa_ok($x, 'Object::TinyDefaults');
@@ -47,14 +49,16 @@ package main {
     is($x->foo, 42, 'numeric assignment');
     is($x->bar, 'yes', 'string assignment');
 }
+}
 
 # }}}1
 # Defaults and field names; some names only in defaults =========== {{{1
 package DefaultsWithNamesAndNames {
     use Object::TinyDefaults { quux => 'default' }, qw(foo bar);
 }
 
-package main {
+package T::Object::TinyDefaults {
+sub defaults_with_names_and_names {
     my $x = DefaultsWithNamesAndNames->new();
     isa_ok($x, 'DefaultsWithNamesAndNames');
     isa_ok($x, 'Object::TinyDefaults');
@@ -68,14 +72,16 @@ package main {
     is($x->foo, 42, 'numeric assignment');
     is($x->bar, 'yes', 'string assignment');
 }
+}
 
 # }}}1
 # Defaults only =================================================== {{{1
 package DefaultsOnly {
     use Object::TinyDefaults { quux => 'default', foo=>42 };
 }
 
-package main {
+package T::Object::TinyDefaults {
+sub defaults_only {
     my $x = DefaultsOnly->new();
     isa_ok($x, 'DefaultsOnly');
     isa_ok($x, 'Object::TinyDefaults');
@@ -86,9 +92,9 @@ package main {
     is($x->quux, 'yes', 'string assignment (quux)');
     is($x->foo, 'indeed', 'string assignment (foo)');
 }
+}
 
 # }}}1
 
-#done_testing();
-
+1;
 # vi: set ts=4 sts=4 sw=4 et ai fdm=marker fdl=0: #