diff options
| author | franck cuny <franck@lumberjaph.net> | 2009-06-29 18:03:24 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2009-06-29 18:03:24 +0200 |
| commit | fa1b55452bbe8137b99306b7cfb917f71f8a6481 (patch) | |
| tree | afc91f5885714498af9811bdc64ea2243b497f69 /xt/tests/Test/MooseX/MethodPrivate.pm | |
| download | moosex-methodprivate-fa1b55452bbe8137b99306b7cfb917f71f8a6481.tar.gz | |
initial commit
Diffstat (limited to 'xt/tests/Test/MooseX/MethodPrivate.pm')
| -rw-r--r-- | xt/tests/Test/MooseX/MethodPrivate.pm | 25 |
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; |
