#! /usr/bin/perl -w

use Getopt::Long;

my $count = 10;
my $unstable = 0;
$result = GetOptions("count|c=i" => \$count,
                     "unstable|u" => \$unstable );
my $lastresult = 0;

for ($i = 0;  $i < $count; $i++) {
    $result=system(@ARGV);
    if (!$unstable && $result) {
        print("FAIL! - test result non zero\n");
        exit;
    }
    if ($i && $result != $lastresult) {
        print("FAIL! - result unstable\n");
        exit;
    }
    $lastresult = $result;
}
print "PASS\n";