sub get_schoolname( $ )
{
    my $id = $_[0];
    my $schoolname;
    #get groupname from current database  
    open(SCHOOLDATA,"school_data.pdt") or die "Can't open school data file: $!";
    while ( <SCHOOLDATA> )
    {
        chomp($_);
        @split_record = split( /\|/ , $_ );
        print $split_record[0];
        if( $split_record[0] eq $id )
        {    
            $schoolname = $split_record[1];
        }
    }
    close( SCHOOLDATA );
    return( $schoolname );
};

##</code><code>##

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');
};