#!/usr/bin/perl

use strict;

open HANDLE, "./regression_all";
my $test_no = 1;
while ($_ = <HANDLE>)
{
	chomp;
	my $correct_answer = <HANDLE>;

	open R, ">regression";
	print R "$_\n";
	close R;

	my $mtadel_answer = `./mtadel | grep r_answer 2>&1`;

	$mtadel_answer =~ s/r_answer//g;
	$mtadel_answer =~ s/://g;
	$mtadel_answer =~ s/ //g;

	if ($correct_answer eq $mtadel_answer)
	{
		print "test $test_no passed.\n";
	}
	else
	{
		print "test $test_no failed. ($_)\n";
		print "\t correct answer: $correct_answer\n";
		print "\t mtadel answer: $mtadel_answer\n";
	}
	$test_no++;
}
close HANDLE;
