summaryrefslogtreecommitdiff
path: root/xt/tests/Test
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2009-06-29 18:03:24 +0200
committerfranck cuny <franck@lumberjaph.net>2009-06-29 18:03:24 +0200
commitfa1b55452bbe8137b99306b7cfb917f71f8a6481 (patch)
treeafc91f5885714498af9811bdc64ea2243b497f69 /xt/tests/Test
downloadmoosex-methodprivate-fa1b55452bbe8137b99306b7cfb917f71f8a6481.tar.gz
initial commit
Diffstat (limited to 'xt/tests/Test')
-rw-r--r--xt/tests/Test/MooseX/MethodPrivate.pm25
1 files changed, 25 insertions, 0 deletions
diff --git a/xt/tests/Test/MooseX/MethodPrivate.pm b/xt/tests/Test/MooseX/MethodPrivate.pm
new file mode 100644
index 0000000..cb8dc4c
--- /dev/null
+++ b/xt/tests/Test/MooseX/MethodPrivate.pm
@@ -0,0 +1,25 @@
+package Test::MooseX::MethodPrivate;
+
+use strict;
+use warnings;
+use base 'Test::Class';
+use Test::Exception;
+use Test::More;
+
+sub class { 'MooseX::MethodPrivate' }
+
+sub startup : Tests(startup => 1) {
+ my $test = shift;
+ use_ok $test->class, "use ok";
+}
+
+sub shutdown : Tests(shutdown) {
+ my $test = shift;
+}
+
+sub constructor : Tests(1) {
+ my $test = shift;
+ can_ok $test->class, 'new';
+}
+
+1;