diff options
Diffstat (limited to 'xt/tests/Test/MooseX/UserAgent.pm')
-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; |