From: Marcus Ramberg Date: Thu, 30 Sep 2004 12:52:28 +0000 (+0000) Subject: renamed tests X-Git-Tag: 2.10~148 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=147e9de47ccda2345942212fae142cc33932d101;p=maypole.git renamed tests added pod tests and pod::coverage tests git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@214 48953598-375a-da11-a14b-00016c27c3ee --- diff --git a/t/01basics.t b/t/01basics.t new file mode 100644 index 0000000..3aaa0e9 --- /dev/null +++ b/t/01basics.t @@ -0,0 +1,15 @@ +# vim:ft=perl +use Test::More; +use lib 'ex'; # Where BeerDB should live +BEGIN { if (eval { require BeerDB }) { + plan tests => 3; + } else { Test::More->import(skip_all =>"SQLite not working or BeerDB module could not be loaded: $@") } + } +use Maypole::CLI qw(BeerDB); +use Maypole::Constants; +$ENV{MAYPOLE_TEMPLATES} = "t/templates"; + +isa_ok( (bless {},"BeerDB") , "Maypole"); + +like(BeerDB->call_url("http://localhost/beerdb/"), qr/frontpage/, "Got the front page"); +like(BeerDB->call_url("http://localhost/beerdb/beer/list"), qr/Organic Best/, "Found a beer in the list"); diff --git a/t/02pod.t b/t/02pod.t new file mode 100644 index 0000000..0f0480b --- /dev/null +++ b/t/02pod.t @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w + +use strict; +use Test::More; + +eval "use Test::Pod 1.14"; +plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; +all_pod_files_ok(); + diff --git a/t/03podcoverage.t b/t/03podcoverage.t new file mode 100644 index 0000000..7714e24 --- /dev/null +++ b/t/03podcoverage.t @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w + +use strict; +use Test::More; + +eval "use Test::Pod::Coverage 1.04"; +plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; +all_pod_coverage_ok(); + diff --git a/t/1.t b/t/1.t deleted file mode 100644 index 3aaa0e9..0000000 --- a/t/1.t +++ /dev/null @@ -1,15 +0,0 @@ -# vim:ft=perl -use Test::More; -use lib 'ex'; # Where BeerDB should live -BEGIN { if (eval { require BeerDB }) { - plan tests => 3; - } else { Test::More->import(skip_all =>"SQLite not working or BeerDB module could not be loaded: $@") } - } -use Maypole::CLI qw(BeerDB); -use Maypole::Constants; -$ENV{MAYPOLE_TEMPLATES} = "t/templates"; - -isa_ok( (bless {},"BeerDB") , "Maypole"); - -like(BeerDB->call_url("http://localhost/beerdb/"), qr/frontpage/, "Got the front page"); -like(BeerDB->call_url("http://localhost/beerdb/beer/list"), qr/Organic Best/, "Found a beer in the list");