diff options
author | dakkar <dakkar@thenautilus.net> | 2009-11-05 13:52:51 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2009-11-05 13:52:51 +0100 |
commit | 7dfba0e7cf30ddbf834abee94520efcac26385d7 (patch) | |
tree | 3e7a80b2abce6b634a418b6c54b195b9afd0c2e6 /t | |
parent | use Try::Tiny instead of eval (diff) | |
download | WebCoso-7dfba0e7cf30ddbf834abee94520efcac26385d7.tar.gz WebCoso-7dfba0e7cf30ddbf834abee94520efcac26385d7.tar.bz2 WebCoso-7dfba0e7cf30ddbf834abee94520efcac26385d7.zip |
still segfaults
and I can't reproduce the error in a minimal test caseā¦
Diffstat (limited to 't')
-rw-r--r-- | t/whole-01.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/whole-01.t b/t/whole-01.t index f270c5e..f2e7506 100644 --- a/t/whole-01.t +++ b/t/whole-01.t @@ -11,8 +11,10 @@ $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/src/common/ --clean)) and die "Problems running webcoso.pl (clean): $?\n"; +#system('valgrind',$^X,qw(blib/script/webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/src/common/)) system($^X,qw(blib/script/webcoso.pl -s t/test-site/src/ -d t/test-site/output/ -I t/test-site/src/common/)) - and die "Problems running webcoso.pl: $?\n"; +# and die "Problems running webcoso.pl: $?\n"; +; is(system(qw(diff -r -x .svn -I),'\(Ultima modifica\|Latest change\)',qw(t/test-site/output/ t/test-site-output/)),0,'output as expected'); |