#!/usr/bin/perl
# This is a series of unit tests to ensure that things do what I think
# they do.
use strict;
use Data::Message;

package Data::Message;
use Test::More tests => 15;

# Simple "email", no body

my $text = "a\nb\nc\n";
my ($h, $b) = _split_head_from_body($text);
is($h, $text, "No body, everything's head");
is($b, "", "No body!");

# Simple "email", properly formed

$text = "a\n\nb\n";
($h, $b) = _split_head_from_body($text);
is($h, "a\n", "Simple mail, head OK");
is($b, "b\n", "Simple mail, body OK");

# Simple "email" with blank lines

$text = "a\n\nb\nc\n";
($h, $b) = _split_head_from_body($text);
is($h, "a\n", "Simple mail, head OK");
is($b, "b\nc\n", "Simple mail, body OK");

# Blank line as first line in email
$text = "a\n\n\nb\nc\n";
($h, $b) = _split_head_from_body($text);
is($h, "a\n", "Simple mail, head OK");
is($b, "\nb\nc\n", "Simple mail, body OK");

# Testing the header parsing code

my $head = "From: foo\n";
my ($hh, $ord) = _read_headers($head);
is($hh->{From}->[0], "foo", "Simplest header works");
is_deeply($ord, ["From"], "Order is correct" );

$head = "From: foo\nBar: baz\n";
($hh, $ord) = _read_headers($head);
is($hh->{From}->[0], "foo", "Header 2.1");
is($hh->{Bar}->[0], "baz", "Header 2.2");
is_deeply($ord, ["From", "Bar"], "Order is correct" );
# Folding!
$head = "From: foo\n baz\n";
($hh, $ord) = _read_headers($head);
is($hh->{From}->[0], "foo baz", "Header 3.1");
is_deeply($ord, ["From"], "Order is correct" );