perl/lib/perlbug.t

51 like($result, qr/Site configuration information/,
58 like($result, qr/Complete configuration data/,
65 like($result, qr/Please use perlbug interactively./,
72 like($result, qr/Report saved/, 'build report saved');
73 like(_slurp($testreport), qr/Perl reported to build OK on this system/,
85 like($result, qr/Report saved/, 'build failure report saved');
86 like(_slurp($testreport), qr/This is a build failure report for perl/,
107 like($result, qr/Report saved/, 'fake bug report saved');
109 like($contents, qr/Subject: testingperlbug/,
111 like($contents, qr/testreportbody/, 'body included in fake bug report');
139 like($result, qr/Report saved/, 'fake bug report saved');
142 like($contents, qr/Subject: testing perlbug/,
144 like($contents, qr/$A/, 'body included in fake bug report');
145 like($contents, qr/$B/, 'attachment included in fake bug report');
163 like($result, qr/^\s*This program is designed/, "No leading error messages with help from invalid a…
166 like($result, qr/^\s*perlbug version \d+\.\d+\n+This program is designed/, "No leading error messag…
169 like($result, qr/^perlbug version \d+\.\d+\n$/, "No leading error messages with --version");