[bpt/guile.git] / test-suite / standalone / test-guile-snarf

#!/bin/sh
snarf ()
{
    echo "$1" | guile-snarf - | tail -n +2 | tr -d ' \t\n'
}

snarf_test ()
{
    x=`snarf "$1"`
    if [ x"$x" != x"$2" ]; then
        echo "Incorrect output: expected \"$2\", but got \"$x\""
        exit 1
    fi
}

snarf_test "^^a^:^" "a;"
snarf_test "  ^  ^  b  ^  :  ^  " "b;"
snarf_test "c\n^^d^:^\ne" "d;"
snarf_test "f^^g^:^h" "g;"
snarf_test "^^i^:^j^^k^:^" "i;k;"
Commit	Line	Data
2dea6a4d BT	1	#!/bin/sh
	2	snarf ()
	3	{
	4	echo "$1" \| guile-snarf - \| tail -n +2 \| tr -d ' \t\n'
	5	}
	6
	7	snarf_test ()
	8	{
	9	x=`snarf "$1"`
	10	if [ x"$x" != x"$2" ]; then
	11	echo "Incorrect output: expected \"$2\", but got \"$x\""
	12	exit 1
	13	fi
	14	}
	15
	16	snarf_test "^^a^:^" "a;"
	17	snarf_test " ^ ^ b ^ : ^ " "b;"
fd029c35 BT	18	snarf_test "c\n^^d^:^\ne" "d;"
	19	snarf_test "f^^g^:^h" "g;"
	20	snarf_test "^^i^:^j^^k^:^" "i;k;"