[perl #75872] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-methods/multi.t

commit 4b312a5186e94c35751ac9e57bd520cd5869ad49
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Jul 18 12:17:21 2010 +0000

    [t/spec] tests for RT #75872, awesome error message when multi method 
dispatch finds no matching candidate
    
    Moritz ows jnthn++ a beer.
    
    git-svn-id: http://svn.pugscode.org/p...@31746 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-methods/multi.t b/t/spec/S12-methods/multi.t
index 08e753f..5710b21 100644
--- a/t/spec/S12-methods/multi.t
+++ b/t/spec/S12-methods/multi.t
@@ -194,6 +194,16 @@ is Bar.new.a("not an Int"), 'Any-method in Foo';
 
     is WorkingTie.has_tie( 42 ), 'tie3', 'broken class fixed by subclass (1)';
     is WorkingTie.has_tie( 'x' ), 'tie4', 'broken class fixed by subclass (2)';
+
+    my $error;
+    try {
+        WorkingTie.new.has_tie([]);
+    }
+    $error = "$!";
+    ok $error ~~ /<< 'has_tie' >>/,
+        'error message for failed dispatch contains method name';
+    ok $error ~~ /<< 'WorkingTie' >>/,
+        'error message for failed dispatch contains invocant type';
 }
 
 done_testing;