Sven Nierlein 12 лет назад
Родитель
Сommit
0b656ecd2f
1 измененных файлов с 6 добавлено и 6 удалено
  1. 6 6
      NPTest.pm

+ 6 - 6
NPTest.pm

@@ -559,12 +559,12 @@ sub TestsFrom
     {
       if ( $excludeIfAppMissing )
       {
-	$application = basename( $filename, ".t" );
-	if ( ! -e $application )
-	{
-	  print STDERR "No application (${application}) found for test harness (${filename})\n";
-	  next;
-	}
+        $application = basename( $filename, ".t" );
+        if ( ! -e $application and ! -e $application.'.pm' )
+        {
+          print STDERR "No application (${application}) found for test harness (${filename})\n";
+          next;
+        }
       }
       push @tests, "${directory}/${filename}";
     }