diff options
author | Mark Wells <mark@freeside.biz> | 2015-07-10 18:15:08 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-07-10 18:15:08 -0700 |
commit | 88bf5db0cca989c51237c661a13078eef08b3674 (patch) | |
tree | 0a84e1b5e7fd239f57fab678bf40c5311b0064a0 /rt/t/web/compilation_errors.t | |
parent | 9c15ffe3a5ee987e30e10c6a0ad1b5bf0b2a12e3 (diff) | |
parent | e7eb845db1afab1cbdbc34ff9c387c5ac554659e (diff) |
Merge branch 'FREESIDE_4_BRANCH' of git.freeside.biz:/home/git/freeside into 4.x
Diffstat (limited to 'rt/t/web/compilation_errors.t')
-rw-r--r-- | rt/t/web/compilation_errors.t | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/rt/t/web/compilation_errors.t b/rt/t/web/compilation_errors.t index 126d33691..e4845e0de 100644 --- a/rt/t/web/compilation_errors.t +++ b/rt/t/web/compilation_errors.t @@ -6,7 +6,7 @@ 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/' ); plan tests => $tests + 1; # plus one for warnings check } @@ -36,12 +36,10 @@ is($agent->status, 200, "Fetched the page ok"); $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; |