#!/usr/bin/perl
#
# Test program for fp.
#

$| = 1;
($f = $0) =~ s'.*/'';	# use our name to generate file names.

if ( -r "data/$f") {
	system "fp 50 < data/$f";
	exit $?;
} else {
	die "$0: Can't read data/$f [$!]\n";
}