summaryrefslogtreecommitdiffstats
path: root/t/002-complicated-matching.t
diff options
context:
space:
mode:
Diffstat (limited to 't/002-complicated-matching.t')
-rw-r--r--t/002-complicated-matching.t4
1 files changed, 3 insertions, 1 deletions
diff --git a/t/002-complicated-matching.t b/t/002-complicated-matching.t
index 80d081c..1c0a7b9 100644
--- a/t/002-complicated-matching.t
+++ b/t/002-complicated-matching.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
package Foo;
use Moose;
@@ -23,3 +23,5 @@ ok(!$foo->match(a => [qr/b/, sub { length(shift) == 4 }]),
'arrayref matching works');
ok($foo->match('!a' => 'bar', b => 'bar', '!c' => 'bar'),
'negated matching works');
+ok(!$foo->match(a => 'foo', '!b' => 'bar'),
+ 'negated matching works');