#!/bin/sh
#
# Test of various (well, start with one) function escapes.

. "$MH_TEST_COMMON"

test_skip "not implemented yet"


cat >`mhpath b` <<EOF
MIME-Version: 1.0
From: sender@example.com
To: recipient@example.com
Subject: message with blank lines and trailing spaces
Date: Mon, 29 Apr 2013 11:51:45 -0400

There are two blank lines below.  And there is a trailing space: 
And another trailing space: 


EOF


# check nortrim (default), and that trailing whitespace in a
# component is trimmed when filtering blank lines

cat >"$MH_TEST_DIR/test.format" <<EOF
body:component="> "
EOF

runandcheck "mhl -form $MH_TEST_DIR/test.format `mhpath l`" <<!
> There are two blank lines below.  And there is a trailing space: 
> And another trailing space: 
>
>
!



# check rtrim

cat >"$MH_TEST_DIR/test.format" <<EOF
body:component="> ",rtrim
EOF

runandcheck "mhl -form $MH_TEST_DIR/test.format `mhpath l`" <<!
> There are two blank lines below.  And there is a trailing space:
> And another trailing space:
>
>
!


rm -f "$MH_TEST_DIR/test.format"

