test private method not found error

Raku · May 27, 2012 · 16238cd · 16238cd
1 parent d701cfa
commit 16238cd
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -200,6 +200,11 @@ throws_like 'use fatal; my $x = "5 foo" + 8;', X::Str::Numeric, source => '5 foo
 
 throws_like '1.foo',  X::Method::NotFound, method => 'foo', typename => 'Int';
 throws_like '1.+foo', X::Method::NotFound, method => 'foo', typename => 'Int';
+throws_like 'my class Priv { method x { self!foo } }; Priv.x',
+                      X::Method::NotFound,
+                      method    => '!foo',
+                      typename  => 'Priv',
+                      private   => { $_ === True };
 
 # RT #58558
 throws_like '!!! 42', X::AdHoc, payload => 42;