projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git]
/
rt
/
t
/
web
/
compilation_errors.t
diff --git
a/rt/t/web/compilation_errors.t
b/rt/t/web/compilation_errors.t
index
1f82ab9
..
e4845e0
100644
(file)
--- a/
rt/t/web/compilation_errors.t
+++ b/
rt/t/web/compilation_errors.t
@@
-1,22
+1,20
@@
-#!/usr/bin/perl
-
use strict;
use strict;
+use warnings;
use Test::More;
use File::Find;
BEGIN {
sub wanted {
-f && /\.html$/ && $_ !~ /Logout.html$/ && $File::Find::dir !~ /RichText/;
}
use Test::More;
use File::Find;
BEGIN {
sub wanted {
-f && /\.html$/ && $_ !~ /Logout.html$/ && $File::Find::dir !~ /RichText/;
}
- my $tests =
8
;
+ my $tests =
7
;
find( sub { wanted() and $tests += 4 }, 'share/html/' );
find( sub { wanted() and $tests += 4 }, 'share/html/' );
- plan tests => $tests
;
+ plan tests => $tests
+ 1; # plus one for warnings check
}
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;
}
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;
-use Encode;
my $cookie_jar = HTTP::Cookies->new;
my $cookie_jar = HTTP::Cookies->new;
@@
-38,12
+36,10
@@
is($agent->status, 200, "Fetched the page ok");
$agent->content_contains('Logout', "Found a logout link");
$agent->content_contains('Logout', "Found a logout link");
-find (
sub { wanted() and test_get($agent, $File::Find::name)
} , 'share/html/');
+find (
{ wanted => sub { wanted() and test_get($agent, $File::Find::name) }, no_chdir => 1
} , 'share/html/');
-TODO: {
- local $TODO = "we spew *lots* of undef warnings";
- $agent->no_warnings_ok;
-};
+# We expect to spew a lot of warnings; toss them away
+$agent->get_warnings;
sub test_get {
my $agent = shift;
sub test_get {
my $agent = shift;