aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/01app.t10
-rw-r--r--t/02pod.t10
-rw-r--r--t/03podcoverage.t10
-rw-r--r--t/controller_register.t9
-rw-r--r--t/controller_user.t9
-rw-r--r--t/model_Proxy.t6
-rw-r--r--t/model_User.t6
-rw-r--r--t/view_Email.t7
-rw-r--r--t/view_TT.t7
9 files changed, 74 insertions, 0 deletions
diff --git a/t/01app.t b/t/01app.t
new file mode 100644
index 0000000..00299fd
--- /dev/null
+++ b/t/01app.t
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { use_ok 'Catalyst::Test', 'CatDap' }
+
+ok( request('/')->is_success, 'Request should succeed' );
+
+done_testing();
diff --git a/t/02pod.t b/t/02pod.t
new file mode 100644
index 0000000..3d1bab1
--- /dev/null
+++ b/t/02pod.t
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+eval "use Test::Pod 1.14";
+plan skip_all => 'Test::Pod 1.14 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_files_ok();
diff --git a/t/03podcoverage.t b/t/03podcoverage.t
new file mode 100644
index 0000000..4e1c6e7
--- /dev/null
+++ b/t/03podcoverage.t
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_coverage_ok();
diff --git a/t/controller_register.t b/t/controller_register.t
new file mode 100644
index 0000000..526e1a1
--- /dev/null
+++ b/t/controller_register.t
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { use_ok 'Catalyst::Test', 'CatDap' }
+BEGIN { use_ok 'CatDap::Controller::register' }
+
+ok( request('/register')->is_success, 'Request should succeed' );
+done_testing();
diff --git a/t/controller_user.t b/t/controller_user.t
new file mode 100644
index 0000000..f8e26a0
--- /dev/null
+++ b/t/controller_user.t
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { use_ok 'Catalyst::Test', 'CatDap' }
+BEGIN { use_ok 'CatDap::Controller::user' }
+
+ok( request('/user')->is_success, 'Request should succeed' );
+done_testing();
diff --git a/t/model_Proxy.t b/t/model_Proxy.t
new file mode 100644
index 0000000..c98a6db
--- /dev/null
+++ b/t/model_Proxy.t
@@ -0,0 +1,6 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use_ok('Catalyst::Test', 'CatDap');
+use_ok('CatDap::Model::Proxy');
diff --git a/t/model_User.t b/t/model_User.t
new file mode 100644
index 0000000..543866c
--- /dev/null
+++ b/t/model_User.t
@@ -0,0 +1,6 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use_ok('Catalyst::Test', 'CatDap');
+use_ok('CatDap::Model::User');
diff --git a/t/view_Email.t b/t/view_Email.t
new file mode 100644
index 0000000..757075d
--- /dev/null
+++ b/t/view_Email.t
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { use_ok 'CatDap::View::Email' }
+
+done_testing();
diff --git a/t/view_TT.t b/t/view_TT.t
new file mode 100644
index 0000000..0adc968
--- /dev/null
+++ b/t/view_TT.t
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { use_ok 'CatDap::View::TT' }
+
+done_testing();