[Bast-commits] r3828 - trunk/Devel-Declare/t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-10-21 23:17:35 +0100 (Sun, 21 Oct 2007)
New Revision: 3828

Added:
   trunk/Devel-Declare/t/build_sub_installer.t
Log:
test I never noticed to add

Added: trunk/Devel-Declare/t/build_sub_installer.t
===================================================================
--- trunk/Devel-Declare/t/build_sub_installer.t	                        (rev 0)
+++ trunk/Devel-Declare/t/build_sub_installer.t	2007-10-21 22:17:35 UTC (rev 3828)
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use Test::More 'no_plan';
+
+use Devel::Declare ();
+
+BEGIN {
+  Devel::Declare->build_sub_installer('Foo', 'bar', '&')
+                ->(sub { $_[0]->("woot"); });
+}
+
+my $args;
+
+{
+  package Foo;
+
+  bar { $args = join(', ', @_); };
+}
+
+is($args, 'woot', 'sub installer worked');