t/05-keys.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7
   8 use re::engine::Hooks;
   9
  10 for my $key ('foo bar', 'foo-bar', 'foo!', 'bar?') {
  11  local $@;
  12  eval {
  13   re::engine::Hooks::enable($key);
  14  };
  15  like $@, qr/^Invalid key /, "$key is not a valid key";
  16 }