#!/usr/bin/perl 
# Testing that all the test scripts are executable.

use strict;


#
# Process all files.
#
foreach my $file ( sort( glob( "test*" ) ) )
{
    # Skip autosaved files.
    next if ( $file =~ /(.*)~$/ );

    # Skip files with a data/out suffix, these are connonical
    # files to accompany tests - if needed.
    next if ( $file =~ /(.*)\.out$/i );
    next if ( $file =~ /(.*)\.data$/i );

    # Make sure file is executable.
    if (! -x $file )
    {
#	print "File not executable: $file\n";
	exit 1;
    }
}

exit 0;
 
