t/scanstr_fail.t

   1 use warnings;
   2 use strict;
   3
   4 use Devel::Declare ();
   5 use Test::More tests => 1;
   6
   7 sub my_quote($) { $_[0] }
   8
   9 sub my_quote_parser {
  10   my($declarator, $offset) = @_;
  11   $offset += Devel::Declare::toke_move_past_token($offset);
  12   $offset += Devel::Declare::toke_skipspace($offset);
  13   my $len = Devel::Declare::toke_scan_str($offset);
  14   die "suprising len=$len" if defined $len;
  15   die "toke_scan_str fail\n";
  16 }
  17
  18 BEGIN {
  19   Devel::Declare->setup_for(__PACKAGE__, {
  20     my_quote => { const => \&my_quote_parser },
  21   });
  22 }
  23
  24 eval q{ my_quote[foo };
  25 is $@, "toke_scan_str fail\n";
  26
  27 1;