diff options
author | dakkar <dakkar@luxion> | 2008-01-02 21:39:46 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2008-01-02 21:39:46 +0000 |
commit | 06206275e8480d44989b0c6112c5cf0eeaa5d4be (patch) | |
tree | ddd50eecebb2d7c16a7c779071b1e338c2d8dd79 /t/whole-01.t | |
parent | better handling of non-existing files, and a --clean option (diff) | |
download | WebCoso-06206275e8480d44989b0c6112c5cf0eeaa5d4be.tar.gz WebCoso-06206275e8480d44989b0c6112c5cf0eeaa5d4be.tar.bz2 WebCoso-06206275e8480d44989b0c6112c5cf0eeaa5d4be.zip |
added test for the output
git-svn-id: svn://luxion/repos/WebCoso/trunk@320 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 't/whole-01.t')
-rw-r--r-- | t/whole-01.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/t/whole-01.t b/t/whole-01.t new file mode 100644 index 0000000..10c9204 --- /dev/null +++ b/t/whole-01.t @@ -0,0 +1,18 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Test::More qw(no_plan); +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)) + 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/)) + 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)) + and die "Problems running webcoso.pl (clean): $?\n"; |