X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F5-output-tt.t;h=5342e169f7ab5f7c08a3d1582e00a668c8b1f5c9;hb=01091188dac765b18d9fb9bd84cad20ee4bd3e95;hp=1101580329f5d103d4e48ec1a126d6eb2862e098;hpb=dfd016b241b00b8077f8479f1e7cf7c00e493926;p=webpac2

diff --git a/t/5-output-tt.t b/t/5-output-tt.t
index 1101580..5342e16 100755
--- a/t/5-output-tt.t
+++ b/t/5-output-tt.t
@@ -1,22 +1,18 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 5;
-use Test::Exception;
-use Cwd qw/abs_path/;
-use blib;
 use strict;
+use lib 'lib';
+
+use Test::More tests => 5;
 
 BEGIN {
+use_ok( 'WebPAC::Test' );
 use_ok( 'WebPAC::Output::TT' );
 }
 
-ok(my $abs_path = abs_path($0), "abs_path");
-$abs_path =~ s#/[^/]*$#/#;
-diag "abs_path: $abs_path";
-
 ok(my $tt = new WebPAC::Output::TT(
 	include_path => "$abs_path../conf/output/tt",
-	no_log => 1,
+	%LOG
 ), "new");
 
 my $ds = {
@@ -40,5 +36,5 @@ throws_ok { $tt->apply( template => 'foo', data => [] ) } qr/error.*foo/, "apply
 
 cmp_ok(my $text = $tt->apply( template => 'text.tt', data => $ds ), '=~', qr/Source.*foo/, "apply");
 
-diag $text;
+diag $text if $debug;