t/dbic.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Email::MIME;
   5
   6 use Test::More;
   7
   8 use Email::Archive;
   9 use Email::Archive::Storage::DBIC;
  10
  11 my $email = Email::MIME->create(
  12     header => [
  13       From    => 'foo@example.com',
  14       To      => 'drain@example.com',
  15       Subject => 'Message in a bottle',
  16       'Message-ID' => 'helloworld',
  17     ],
  18     body => 'hello there!'
  19 );
  20
  21 my $e = Email::Archive->new(
  22     storage => Email::Archive::Storage::DBIC->new,
  23 );
  24 $e->connect('dbi:SQLite:dbname=t/test_dbic.db');
  25 $e->store($email);
  26
  27 my $found = $e->retrieve('helloworld');
  28 cmp_ok($found->header('subject'), 'eq', "Message in a bottle",
  29   "can find stored message by ID");
  30
  31
  32 done_testing;
  33
  34 unlink 't/test_dbic.db';
  35