testIntrospection now complete

This commit is contained in:
Marty Kraimer
2010-10-28 10:08:20 -04:00
parent 55b44e953d
commit 59c2d447c1
13 changed files with 368 additions and 200 deletions

12
test/testIntrospect.pl Executable file
View File

@@ -0,0 +1,12 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testIntrospect.pl
$EPICS_HOST_ARCH = "linux-x86";
system ("rm testIntrospect");
system ("rm testIntrospectDiff");
system ("../bin/${EPICS_HOST_ARCH}/testIntrospect testIntrospect");
system ("diff testIntrospect testIntrospectGold >> testIntrospectDiff");
if(-z "testIntrospectDiff") {
print "testIntrospect OK\n";
} else {
print "testIntrospect Failed\n";
}