Skip Menu |

This queue is for tickets about the TheSchwartz CPAN distribution.

Report information
The Basics
Id: 38570
Status: resolved
Priority: 0/
Queue: TheSchwartz

People
Owner: Nobody in particular
Requestors: dom [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.07
Fixed in: (no value)



Subject: Test suite comprehensively fails
I'm guessing that this is mainly due to reliance on external factors (eg a test server running, and custom lib paths). http://testers.cpan.org/show/TheSchwartz.html
The tests fail due to the skip count being wrong, and MySQL generally not being available on the test machines. This patch (against the repository) will fix that: Index: t/server-time.t =================================================================== --- t/server-time.t (revision 146) +++ t/server-time.t (working copy) @@ -8,7 +8,7 @@ use TheSchwartz; use Test::More tests => 4; -run_tests(4, sub { +run_tests(2, sub { my $client = test_client(dbs => ['ts1']); my $driver = $client->driver_for( ($client->shuffled_databases)[0] ); Index: t/api.t =================================================================== --- t/api.t (revision 146) +++ t/api.t (working copy) @@ -9,7 +9,7 @@ use TheSchwartz; use Test::More tests => 108; -run_tests(42, sub { +run_tests(54, sub { foreach my $pfx ("", "testprefix_") { my $client = test_client(dbs => ['ts1'],
From: todd.gardner [...] gmail.com
On Wed Sep 17 12:42:55 2008, EVDB wrote: Show quoted text
> Index: t/server-time.t > =================================================================== > --- t/server-time.t (revision 146) > +++ t/server-time.t (working copy) > @@ -8,7 +8,7 @@ > use TheSchwartz; > use Test::More tests => 4; > > -run_tests(4, sub { > +run_tests(2, sub { > my $client = test_client(dbs => ['ts1']); > > my $driver = $client->driver_for( ($client->shuffled_databases)[0] ); > Index: t/api.t > =================================================================== > --- t/api.t (revision 146) > +++ t/api.t (working copy) > @@ -9,7 +9,7 @@ > use TheSchwartz; > use Test::More tests => 108; > > -run_tests(42, sub { > +run_tests(54, sub { > foreach my $pfx ("", "testprefix_") { > > my $client = test_client(dbs => ['ts1'],
In addition to the above, the pod-coverage test fails; you might want to add the following (or fix the pod to not fail) Index: t/pod-coverage.t =================================================================== --- t/pod-coverage.t (revision 146) +++ t/pod-coverage.t (working copy) @@ -2,7 +2,7 @@ use Test::More; eval "use Test::Pod::Coverage 1.08"; -plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage" if $@; +plan skip_all => 'Test::Pod::Coverage 1.08 must be installed and $ENV{TEST_AUTHOR} must be defined for testing POD coverage' if ($@ || ! $ENV{'TEST_AUTHOR'}); ## Eventually we would be able to test coverage for all modules with ## Test::Pod::all_pod_files(), but let's write the docs first.
Fixed