Added tests

Author: Chris White

t/02-basic-core.t

@@ -0,0 +1,66 @@
+#!perl
+
+use 5.018;
+use strict;
+use warnings;
+use Test::More; # tests=>27;
+use Capture::Tiny 'capture_stdout';
+use File::Spec;
+
+BEGIN {
+    use_ok( 'XML::Axk::Core' ) || print "Bail out!\n";
+}
+
+diag( "Testing XML::Axk::Core $XML::Axk::Core::VERSION, Perl $], $^X" );
+
+sub localpath {
+    state $voldir = [File::Spec->splitpath(__FILE__)];
+    return File::Spec->catpath($voldir->[0], $voldir->[1], shift)
+}
+
+# Inline script, operation at runtime ============================= {{{1
+{
+    my $core = XML::Axk::Core->new();
+    $core->load_script_text('pre_all { print 42 }','filename',1);
+
+    my $out = capture_stdout { $core->run(); };
+    is($out, '42', 'inline script runs');
+}
+
+# }}}1
+# Inline script, operation at load time =========================== {{{1
+{
+    my $core = XML::Axk::Core->new();
+    my $out = capture_stdout {
+        $core->load_script_text('print 42','filename',1);
+    };
+    is($out, '42', 'inline script runs load-time statements');
+
+    my $out2 = capture_stdout { $core->run(); };
+    is($out2, '', 'no run-time statements in inline script');
+}
+
+# }}}1
+# Script on disk ================================================== {{{1
+{
+    my $core = XML::Axk::Core->new();
+    $core->load_script_file(localpath '02.axk');
+
+    my $out = capture_stdout { $core->run(); };
+    is($out, '1337', 'on-disk script runs');
+}
+
+# }}}1
+# Script with no language indicator =============================== {{{1
+{
+    my $core = XML::Axk::Core->new();
+    eval { $core->load_script_file(localpath '02-noL.axk'); };
+    my $err = $@;
+    like($err, qr/No language \(Ln\) specified/, 'detects missing Ln');
+}
+
+# }}}1
+
+done_testing();
+
+# vi: set ts=4 sts=4 sw=4 et ai fdm=marker fdl=1: #

t/02-noL.axk

@@ -0,0 +1,4 @@
+# 02-noL.axk: used by 02-basic*.t
+#L1
+print '1337'
+# vi: set ts=4 sts=4 sw=4 et ai ft=perl fdm=marker fdl=1: #

t/02.axk

@@ -1,4 +1,8 @@
 # 02.axk: used by 02-basic*.t
 L1
-print '1337'
+#use Devel::StackTrace;
+#say "02.axk:\n", Devel::StackTrace->new->as_string;
+pre_all {   # otherwise it happens during load
+    print '1337'
+};
 # vi: set ts=4 sts=4 sw=4 et ai ft=perl fdm=marker fdl=1: #

t/03-TODO.t

@@ -0,0 +1,16 @@
+#!perl
+
+use 5.018;
+use strict;
+use warnings;
+use Test::More;
+
+ok(1,"Not here yet!");
+
+done_testing();
+__END__
+
+./run -e 'perform { say $E; } xpath("//item"); perform { say $E; } xpath(q<//@attrname>);' ex/ex1.xml
+  # Because Perl tries to interpolate an array into "//@attrname"
+
+# vi: set ts=4 sts=4 sw=4 et ai fdm=marker fdl=1: #