From: Lukas Mai <l.mai@web.de>
Date: Tue, 2 Mar 2010 20:37:14 +0000 (+0100)
Subject: basic test for import_into
X-Git-Tag: v0.04~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d71da6a429d7c874f6187e94eb9249f04ea3c259;p=p5sagit%2FFunction-Parameters.git

basic test for import_into
---

diff --git a/t/elsewhere.t b/t/elsewhere.t
new file mode 100644
index 0000000..432a1fc
--- /dev/null
+++ b/t/elsewhere.t
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Function::Parameters ();
+
+BEGIN { Function::Parameters::import_into __PACKAGE__; }
+
+ok fun ($x) { $x }->(1);
+
+BEGIN { Function::Parameters::import_into 'Cu::Ba', 'gorn'; }
+
+{
+	package Cu::Ba;
+
+	gorn wooden ($gorn) { !$gorn }
+}
+
+ok Cu::Ba::wooden;
+
+done_testing;