summary refs log tree commit diff
path: root/xt/tests/Test/MooseX
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2009-06-24 17:17:07 +0200
committerfranck cuny <franck@lumberjaph.net>2009-06-24 17:17:07 +0200
commitd581be777d3bd09f6916800d17a4a45dd32a9f4e (patch)
tree9c9480a227940fb2826265588d78906b79c7e56b /xt/tests/Test/MooseX
downloadmoosex-useragent-d581be777d3bd09f6916800d17a4a45dd32a9f4e.tar.gz
initial commit
Diffstat (limited to 'xt/tests/Test/MooseX')
-rw-r--r--xt/tests/Test/MooseX/UserAgent.pm25
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;