view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Build.PL
Changes
MANIFEST
META.yml			# Will be created by "make dist"
README
bin/languages
bin/simple_report
bin/simple_scan
examples/cross_product.in
examples/expression.in
examples/renegade-percent.in
examples/ss.in
examples/ss_backtick1.in
examples/ss_backtick_env.in
examples/ss_blank.in
examples/ss_comment.in
examples/ss_country.in
examples/ss_dynamvar.in
examples/ss_escaped.in
examples/ss_extpattern.in
examples/ss_fail.in

MANIFEST  view on Meta::CPAN

t/29unplanned.t
t/30diags.t
t/31snapshot.t
t/33queue.t
t/35comb.t
t/40inputq.t
t/41extract.t
t/42nested_sub.t
t/43dynamname.t
t/44expression.t
t/45renegade_percent.t
t/46xproduct.t
t/47line.t
t/48subs_base.t
t/49antique.t
t/50quoteescbug.t
t/51tap_parsing.t
t/critic.t
t/noplan.tap
t/planned.tap
t/pod-coverage.t

t/45renegade_percent.t  view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen <examples/renegade-percent.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');
fail "malformed pragma or URL scheme: '%ttp://not-actually-used.com/'";
# %ttp://not-actually-used.com/ /\\[mail\\] => 97468175/ Y 
# Possible syntax error in this test spec
EOF