epics/pvData
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

test: drop perl scripts

Browse Source
This commit is contained in:
Michael Davidsaver
2011-02-08 13:28:03 -05:00
parent 48cf333e29
commit 07a6bbaebd
14 changed files with 0 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
test/testAll.pl
View File

@@ -1,15 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testIntTypes.pl
use Env;
system ("./testPVType.pl");
system ("./testThread.pl");
system ("./testLinkedList.pl");
system ("./testIntrospect.pl");
system ("./testPVData.pl");
system ("./testPVStructureArray.pl");
system ("./testPVAppend.pl");
system ("./testPVAuxInfo.pl");
system ("./testTimeStamp.pl");
system ("./testTimer.pl");
system ("./testQueue.pl");
system ("./testMessageQueue.pl");

12
test/testIntrospect.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testIntrospect.pl
use Env;
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";
}

12
test/testLinkedList.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testLinkedList.pl
use Env;
system ("rm testLinkedList");
system ("rm testLinkedListDiff");
system ("../bin/${EPICS_HOST_ARCH}/testLinkedList testLinkedList testLinkedListAux");
system ("diff testLinkedList testLinkedListGold >> testLinkedListDiff");
if(-z "testLinkedListDiff") {
print "testLinkedList OK\n";
} else {
print "testLinkedList Failed\n";
}

12
test/testMessageQueue.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testMessageQueue.pl
use Env;
system ("rm testMessageQueue");
system ("rm testMessageQueueDiff");
system ("../bin/${EPICS_HOST_ARCH}/testMessageQueue testMessageQueue testMessageQueueAux");
system ("diff testMessageQueue testMessageQueueGold >> testMessageQueueDiff");
if(-z "testMessageQueueDiff") {
print "testMessageQueue OK\n";
} else {
print "testMessageQueue Failed\n";
}

12
test/testPVAppend.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testPVAppend.pl
use Env;
system ("rm testPVAppend");
system ("rm testPVAppendDiff");
system ("../bin/${EPICS_HOST_ARCH}/testPVAppend testPVAppend");
system ("diff testPVAppend testPVAppendGold >> testPVAppendDiff");
if(-z "testPVAppendDiff") {
print "testPVAppend OK\n";
} else {
print "testPVAppend Failed\n";
}

12
test/testPVAuxInfo.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testPVAuxInfo.pl
use Env;
system ("rm testPVAuxInfo");
system ("rm testPVAuxInfoDiff");
system ("../bin/${EPICS_HOST_ARCH}/testPVAuxInfo testPVAuxInfo");
system ("diff testPVAuxInfo testPVAuxInfoGold >> testPVAuxInfoDiff");
if(-z "testPVAuxInfoDiff") {
print "testPVAuxInfo OK\n";
} else {
print "testPVAuxInfo Failed\n";
}

12
test/testPVData.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testPVData.pl
use Env;
system ("rm testPVData");
system ("rm testPVDataDiff");
system ("../bin/${EPICS_HOST_ARCH}/testPVData testPVData");
system ("diff testPVData testPVDataGold >> testPVDataDiff");
if(-z "testPVDataDiff") {
print "testPVData OK\n";
} else {
print "testPVData Failed\n";
}

12
test/testPVStructureArray.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testPVStructureArray.pl
use Env;
system ("rm testPVStructureArray");
system ("rm testPVStructureArrayDiff");
system ("../bin/${EPICS_HOST_ARCH}/testPVStructureArray testPVStructureArray");
system ("diff testPVStructureArray testPVStructureArrayGold >> testPVStructureArrayDiff");
if(-z "testPVStructureArrayDiff") {
print "testPVStructureArray OK\n";
} else {
print "testPVStructureArray Failed\n";
}

12
test/testPVType.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testPVType.pl
use Env;
system ("rm testPVType");
system ("rm testPVTypeDiff");
system ("../bin/${EPICS_HOST_ARCH}/testPVType testPVType");
system ("diff testPVType testPVTypeGold >> testPVTypeDiff");
if(-z "testPVTypeDiff") {
print "testPVType OK\n";
} else {
print "testPVType Failed\n";
}

12
test/testProperty.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testProperty.pl
use Env;
system ("rm testProperty");
system ("rm testPropertyDiff");
system ("../bin/${EPICS_HOST_ARCH}/testProperty testProperty testPropertyAux");
system ("diff testProperty testPropertyGold >> testPropertyDiff");
if(-z "testPropertyDiff") {
print "testProperty OK\n";
} else {
print "testProperty Failed\n";
}

12
test/testQueue.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testQueue.pl
use Env;
system ("rm testQueue");
system ("rm testQueueDiff");
system ("../bin/${EPICS_HOST_ARCH}/testQueue testQueue testQueueAux");
system ("diff testQueue testQueueGold >> testQueueDiff");
if(-z "testQueueDiff") {
print "testQueue OK\n";
} else {
print "testQueue Failed\n";
}

12
test/testThread.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testThread.pl
use Env;
system ("rm testThread");
system ("rm testThreadDiff");
system ("../bin/${EPICS_HOST_ARCH}/testThread testThread testThreadAux");
system ("diff testThread testThreadGold >> testThreadDiff");
if(-z "testThreadDiff") {
print "testThread OK\n";
} else {
print "testThread Failed\n";
}

12
test/testTimeStamp.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testTimeStamp.pl
use Env;
system ("rm testTimeStamp");
system ("rm testTimeStampDiff");
system ("../bin/${EPICS_HOST_ARCH}/testTimeStamp testTimeStamp testTimeStampAux");
system ("diff testTimeStamp testTimeStampGold >> testTimeStampDiff");
if(-z "testTimeStampDiff") {
print "testTimeStamp OK\n";
} else {
print "testTimeStamp Failed\n";
}

12
test/testTimer.pl
View File

@@ -1,12 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testTimer.pl
use Env;
system ("rm testTimer");
system ("rm testTimerDiff");
system ("../bin/${EPICS_HOST_ARCH}/testTimer testTimer testTimerAux");
system ("diff testTimer testTimerGold >> testTimerDiff");
if(-z "testTimerDiff") {
print "testTimer OK\n";
} else {
print "testTimer Failed\n";
}