File: systemtests.pl

package info (click to toggle)
steghide 0.5.1-14
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 3,432 kB
  • sloc: cpp: 13,302; ansic: 6,184; sh: 3,960; makefile: 384; yacc: 316; perl: 228; sed: 16
file content (17 lines) | stat: -rwxr-xr-x 378 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
use FileHandle ;

STDOUT->autoflush(1) ;

print "-------------------------\n\n" ;
print "Running System Tests.....\n\n" ;
print "-------------------------\n\n" ;

$exitvalue = 0 ; # 0 -> everything ok, 1 -> an error occurred
while (<st*.pl>) {
	# pass command line args to st_*.pl scripts
	if (system "./$_ @ARGV") {
		$exitvalue = 1 ;
	}
}
exit $exitvalue ;