#!/usr/bin/perl -w

use strict;

foreach my $test (@ARGV)
{
	my $status = system( "./$test" );
	my $result = $status == 0 ? "ok" : "failed";
	print "$test $result\n";
}
