Validate has_method_ok() finds accessors, as well.

rsrchboy · Mar 21, 2017 · cc06bb2 · cc06bb2
1 parent 6468e94
commit cc06bb2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/t/method_ok.t b/t/method_ok.t
@@ -1,14 +1,16 @@
 use strict;
 use warnings;
 
-{ package TestClass; use Moose; sub foo { } }
+{ package TestClass; use Moose; sub foo { }; has beep => (is => 'ro') }
 
 use Test::Builder::Tester;
 use Test::More;
 use Test::Moose::More;
 
 subtest sanity => sub {
     has_method_ok    TestClass => 'foo';
+    has_method_ok    TestClass => 'beep';
+    subtest multiple => sub { has_method_ok TestClass => 'beep', 'foo' };
     has_no_method_ok TestClass => 'bar';
 };