diff options
author | franck cuny <franck@lumberjaph.net> | 2009-06-24 17:17:07 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-06-24 17:17:07 +0200 |
commit | d581be777d3bd09f6916800d17a4a45dd32a9f4e (patch) | |
tree | 9c9480a227940fb2826265588d78906b79c7e56b /xt/tests/Test/MooseX | |
download | moosex-useragent-d581be777d3bd09f6916800d17a4a45dd32a9f4e.tar.gz |
initial commit
Diffstat (limited to 'xt/tests/Test/MooseX')
-rw-r--r-- | xt/tests/Test/MooseX/UserAgent.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/xt/tests/Test/MooseX/UserAgent.pm b/xt/tests/Test/MooseX/UserAgent.pm new file mode 100644 index 0000000..2e04065 --- /dev/null +++ b/xt/tests/Test/MooseX/UserAgent.pm @@ -0,0 +1,25 @@ +package Test::MooseX::UserAgent; + +use strict; +use warnings; +use base 'Test::Class'; +use Test::Exception; +use Test::More; + +sub class { 'MooseX::UserAgent' } + +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; |