From 2cd6e7f426e4fa6d65f387d56f83226d4e399d12 Mon Sep 17 00:00:00 2001 From: dakkar Date: Thu, 3 Jan 2008 19:16:32 +0000 Subject: MakeMaker! git-svn-id: svn://luxion/repos/WebCoso/trunk@325 fcb26f47-9200-0410-b104-b98ab5b095f3 --- t/whole-01.t | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/whole-01.t b/t/whole-01.t index 10c9204..054d2ee 100644 --- a/t/whole-01.t +++ b/t/whole-01.t @@ -6,13 +6,15 @@ use Path::Class; chdir file(__FILE__)->parent->parent->stringify; -system($^X,qw(-Ilib webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/common/ --clean)) +$ENV{PERL5LIB}=join ':',@INC; + +system($^X,qw(blib/script/webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/common/ --clean)) and die "Problems running webcoso.pl (clean): $?\n"; -system($^X,qw(-Ilib webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/common/)) +system($^X,qw(blib/script/webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/common/)) and die "Problems running webcoso.pl: $?\n"; is(system(qw(diff -r -x .svn t/test-site/output/ t/test-site-output/)),0,'output as expected'); -system($^X,qw(-Ilib webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/common/ --clean)) +system($^X,qw(blib/script/webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/common/ --clean)) and die "Problems running webcoso.pl (clean): $?\n"; -- cgit v1.2.3