tests for RT #77056 and #76280

Author: moritz

S02-names/symbolic-deref.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 34;
+plan 35;
 
 # See L<http://www.nntp.perl.org/group/perl.perl6.language/22858> --
 # previously, "my $a; say $::("a")" died (you had to s/my/our/). Now, it was
@@ -164,4 +164,6 @@ my $outer = 'outside';
   is $::("symderef_test_var"), 42, "symbolic dereferentiation works with package vars";
 }
 
+eval_dies_ok ' ::().Str ', 'Cannot look up empty name';
+
 # vim: ft=perl6

S05-metasyntax/charset.t

@@ -73,6 +73,7 @@ ok ~$! ~~ / 'Unsupported use of - as character range; in Perl 6 please use ..'/,
     "STD error message for - as character range";
 }
 
+#?rakudo todo 'RT 100650'
 ok 'ab' ~~ /^(.*) b/,
     'Quantifiers in capture groups work (RT 100650)';
 

S06-other/main-usage.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan  13;
+plan  14;
 
 BEGIN { @*INC.push: 't/spec/packages' }
 
@@ -106,3 +106,10 @@ is_run 'sub MAIN($a, Bool :$var) { say "a: $a, optional: $var"; }',
     },
     :args['param', '--var'],
     'Bool option last with no value';
+
+is_run 'sub MAIN( $a = nosuchsub()) { }; sub USAGE { say 42 }',
+    {
+        out => '',
+        err => /nosuchsub/,
+    },
+    'if the MAIN dispatch results in an error, that error should be printed, not USAGE';