t/fail.t

   1 use Devel::Declare;
   2
   3 use Devel::Declare::MethodInstaller::Simple;
   4 BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler(name => 'method', into => 'main') };
   5
   6 use Test::More 'no_plan';
   7
   8 TODO: {
   9     local $TODO='Method does not throw proper errors for bad parens yet';
  10     eval 'method main ( { return "foo" }';
  11     like($@,qr/Prototype\snot\sterminated/);
  12
  13     eval 'method main ) { return "foo" }';
  14     like($@,qr/Illegal\sdeclaration\sof\ssubroutine/);
  15 };