App-SimpleScan
view release on metacpan or search on metacpan
t/28planned.t view on Meta::CPAN
use Test::More tests=>2;
use Test::Differences;
my $expected = <<EOS;
UNNAMED_TEST: tests=9, ok=6, failed=2, skipped=1, todo=2 (1 UNEXPECTEDLY SUCCEEDED)
EOS
$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};
my $got = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_report <t/planned.tap`;
eq_or_diff $got, $expected, "output as planned";
$expected = <<EOS;
UNNAMED_TEST: tests=9, ok=6, failed=2, skipped=1, todo=2 (1 UNEXPECTEDLY SUCCEEDED)
F 7 Deliberately broken test (asia) [http://asia.search.yahoo.com/search/news?p=bush&ei=UTF-8&fr=sfp&fl=0&x=wrt&debug=qa] [/fnord/ should match]
# Failed test \'Deliberately broken test (asia) [http://asia.search.yahoo.com/search/news?p=bush&ei=UTF-8&fr=sfp&fl=0&x=wrt&debug=qa] [/fnord/ should match]\'
# in /home/y/lib/perl5/site_perl/5.6.1/Test/WWW/Simple.pm at line 65.
# got: "<!doctype html public "-//W3C//DTD HTML 4.01//EN" "...
# length: 37943
# doesn\'t match \'(?-xism:fnord)\'
T 9 unexpected success (asia) [http://asia.search.yahoo.com/search/news?p=bush&ei=UTF-8&fr=sfp&fl=0&x=wrt&debug=qa] [/yahoo/ should match]
EOS
$got = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_report -v <t/planned.tap`;
eq_or_diff $got, $expected, "extended output as planned";
( run in 1.016 second using v1.01-cache-2.11-cpan-6aa56a78535 )