use Test::More tests => 4;

{
	local *SCHOOLDATA;
	open(SCHOOLDATA, "school_data.pdt") or die;
	is(get_schoolname(2), 'bunny werks', 'existing id found');
	is(tell(*SCHOOLDATA{IO}), 0, 'filehandle still open');
};

{
	local *SCHOOLDATA;
	open(SCHOOLDATA, "school_data.pdt") or die;
	is(get_schoolname(-1), undef, 'bad id rejected');
	is(tell(*SCHOOLDATA{IO}), 0, 'filehandle still open');
};