#!/usr/bin/perl
# run with:
# $perl run<tab>
###########################################
# change these to the name of your program 
# and your test directory
###########################################
$prog = 'avl';
$test_dir = 'tests';

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

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

    `$prog < $test_dir/$_ > $test_dir/$_.myout`;
    #print "$prog < $test_dir/$_ > $test_dir/$_.out\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";
    }
}