# -*- mode: cperl;-*-
-use Test::More tests => 18;
+use Test::More tests => 19;
use warnings;
use strict;
use lib qw(t/lib);
use DebbugsTest qw(:all);
-my %config;
-eval {
- %config = create_debbugs_configuration(debug => exists $ENV{DEBUG}?$ENV{DEBUG}:0);
-};
-if ($@) {
- BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
-# Output some debugging information if there's an error
-END{
- if ($ENV{DEBUG}) {
- foreach my $key (keys %config) {
- diag("$key: $config{$key}\n");
- }
- }
-}
# create a bug
send_message(to=>'submit@bugs.something',
Package: foo
Severity: normal
-This is a silly bug
+This is a silly bug which contains an unescaped From line.
+
+From line
EOF
'Subject of bug maibox is right');
ok($mech->content() =~ qr/^From /m,
'Starts with a From appropriately');
+ok($mech->content() =~ qr/^(>F|=46)rom line/m,
+ 'From line escaped appropriately');
$mech->get_ok('http://localhost:'.$port.'/?bug=1;mboxmaint=yes',
'Page received ok');