10 my $email = Email::MIME->create(
12 From => 'foo@example.com',
13 To => 'drain@example.com',
14 Subject => 'Message in a bottle',
15 'Message-ID' => 'helloworld',
17 body => 'hello there!'
20 my $e = Email::Archive->new();
21 $e->connect('dbi:SQLite:dbname=t/test.db');
24 my $found = $e->retrieve('helloworld');
25 cmp_ok($found->header('subject'), 'eq', "Message in a bottle",
26 "can find stored message by ID");