From 4f097a307b0e9810e0847286e9711ab4cb6f7ad9 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 12 Jan 2009 23:16:49 -0500
Subject: a few more tests

---
 t/004-submatching.t | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/t/004-submatching.t b/t/004-submatching.t
index d3bb116..3eb2b96 100644
--- a/t/004-submatching.t
+++ b/t/004-submatching.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 9;
+use Test::More tests => 11;
 
 package Bar;
 use Moose;
@@ -21,6 +21,9 @@ has [qw/a b c/] => (
     required => 1,
 );
 
+package Quux;
+use Moose;
+
 package Foo;
 use Moose;
 with 'MooseX::Role::Matcher';
@@ -74,8 +77,9 @@ package main;
        'simple submatching works');
 }
 {
+    my $quux = Quux->new;
     my $bar = Bar->new(a => 4, b => 5, c => 6);
-    my $baz = Baz->new(a => $bar, b => 'quux', c => 'cribbage');
+    my $baz = Baz->new(a => $bar, b => $quux, c => 'cribbage');
     my $foo = Foo->new(a => 3.14, b => 2.72, c => 1.61,
                        bar => $bar, baz => $baz);
     ok($foo->match(a   => 3.14,
@@ -83,7 +87,7 @@ package main;
                        a => 4,
                    },
                    baz => {
-                       b => sub { length == 4 },
+                       c => sub { length == 8 },
                        a => {
                            b => 5,
                            c => qr/\d/,
@@ -102,6 +106,18 @@ package main;
                         },
                     }),
        'deeper submatching works');
+    ok($foo->match(baz => {
+                       '!b' => {
+                           c => 1,
+                       },
+                   }),
+       'deeper submatching works');
+    ok($foo->match(baz => {
+                       '!c' => {
+                           b => 1,
+                       },
+                   }),
+       'deeper submatching works');
 }
 {
     my $bar = Bar->new(a => 7, b => 'tmp', c => 9);
-- 
cgit v1.2.3-54-g00ecf