Added test [minor]

Author: Chris White

lib/XML/Axk/Core.pm

@@ -100,7 +100,7 @@ files.
         if($add_Ln) {
             $leader = "use XML::Axk::L1;\n";    # To be updated over time
         } else {
-            croak "No version (Ln) specified in file $fn";
+            croak "No language (Ln) specified in file $fn";
         }
     }
 

t/02-basic-app.t

@@ -1,7 +1,5 @@
 #!perl
 
-package main;
-
 use 5.018;
 use strict;
 use warnings;
@@ -21,21 +19,30 @@ sub localpath {
 }
 
 # Inline script =================================================== {{{1
-package main {
+{
     my $out = capture_stdout
                 { XML::Axk::App::Main(['-e','print 42', '--no-input']) };
     is($out, '42', 'inline script runs');
 }
 
 # }}}1
 # Script on disk ================================================== {{{1
-package main {
+{
     my $out =
         capture_stdout
             { XML::Axk::App::Main([ '-f', localpath('02.axk'), '--no-input']) };
     is($out, '1337', 'on-disk script runs');
 }
 
+# }}}1
+# Script with no language indicator =============================== {{{1
+{
+    eval { XML::Axk::App::Main([ '-f', localpath('02-noL.axk'),
+                                    '--no-input']) };
+    my $err = $@;
+    like($err, qr/No language \(Ln\) specified/, 'detects missing Ln');
+}
+
 # }}}1
 
 done_testing();