use Test::More tests => 1;
use Data::Message;
my $m = Data::Message->new("Foo-Bar: Baz\n\ntest\n");
$m->header_set("Foo-bar", "quux");
is($m->as_string, "Foo-Bar: quux
test\n", "Only one header this time");