8 # Here, we're going to shoot messages through a set of things that can
11 # First, we're going to send mesages to receive.
12 # To do so, we'll first send a message to submit,
13 # then send messages to the newly created bugnumber.
16 use File::Temp qw(tempdir);
18 use Debbugs::MIME qw(create_mime_message);
19 use File::Basename qw(dirname basename);
20 use Test::WWW::Mechanize;
21 use HTTP::Status qw(RC_NOT_MODIFIED);
22 # The test functions are placed here to make things easier
24 use DebbugsTest qw(:all);
28 my %config = create_debbugs_configuration();
32 send_message(to=>'submit@bugs.something',
33 headers => [To => 'submit@bugs.something',
34 From => 'foo@bugs.something',
35 Subject => 'Submitting a bug',
37 body => <<EOF) or fail('Unable to send message');
44 my $pgsql = create_postgresql_database();
45 update_postgresql_database($pgsql);
54 ok($s = Debbugs::DB->connect($pgsql->dsn),
55 "Able to connect to database");
58 ok($s->resultset('Bug')->search({id => 1})->single->subject eq
63 done_testing($tests_run);