#!/usr/bin/perl
# run with:
# $perl run<tab>

# change this to the name of your program 
$prog = 'btree';
$test_dir = 'tests';

@tests = `ls $test_dir | grep 't[0-9][0-9]\$'`;

foreach (@tests)
{
    chomp($_); 

    `./$prog < $test_dir/$_ > $test_dir/$_.myout 2> /dev/null`;
    #print "./$prog < $test_dir/$_ > $test_dir/$_.out 2> /dev/null\n";

    `diff $test_dir/$_.myout $test_dir/$_.out > /dev/null 2>&1`;
    #`diff $test_dir/$_.myout $test_dir/$_.out `;

    if($? == 0)
    {   print "passed $_\n";
    }
    else
    {   print "failed $_\n";
    }
}