#!/usr/bin/perl

foreach $file (`ls tri*.ss`) {
  chomp($file);
  print "------------------------------------------------------------\n";
  print "Testing $file.\n";
  system("tritest $file");
}