#!/usr/bin/perl

use strict;
use warnings;

use Test::More qw(no_plan);

my $pkg;

BEGIN {
  $pkg = q{Email::Moose};
  use_ok( $pkg, { components => [qw{headers}] } );
  can_ok $pkg, qw(headers);
}

Headers_initiation: {
  my $scalar = do { local $/; <DATA> };

  my $obj = $pkg->new(raw_body => $scalar);
  is $obj->does(q{Email::Moose::Role::Headers}), 1, q{Headers role consumed};
  
  ok( my $headers_rs = $obj->headers(), q{New Headers RS object} );
  isa_ok( $headers_rs, q{Email::Moose::Headers} );

}

__DATA__
Header1: Value1
Header2: Value2
Header3: Value3
Header4: Value4

Some Body content