summaryrefslogtreecommitdiff
path: root/ACE/bin/PerlACE/TestTarget.pm
diff options
context:
space:
mode:
Diffstat (limited to 'ACE/bin/PerlACE/TestTarget.pm')
-rw-r--r--ACE/bin/PerlACE/TestTarget.pm87
1 files changed, 0 insertions, 87 deletions
diff --git a/ACE/bin/PerlACE/TestTarget.pm b/ACE/bin/PerlACE/TestTarget.pm
deleted file mode 100644
index af0b39a9eae..00000000000
--- a/ACE/bin/PerlACE/TestTarget.pm
+++ /dev/null
@@ -1,87 +0,0 @@
-# $Id$
-#
-# The TestTarget class is for operations that are per-target while testing.
-# They can be overridden for specific needs like embedded systems, etc.
-
-package PerlACE::TestTarget;
-
-use strict;
-use English;
-use POSIX qw(:time_h);
-
-###############################################################################
-
-# Create the proper kind of TestTarget based on arguments or test
-# configuration. Pass the PerlACE::ConfigList as the first argument.
-
-sub create_target
-{
- my $config = shift;
- my $target = undef;
- if ($config->check_config("LabVIEW_RT")) {
- require PerlACE::TestTarget_LVRT;
- $target = new PerlACE::TestTarget_LVRT;
- }
- else {
- $target = new PerlACE::TestTarget;
- }
- return $target;
-}
-
-### Constructor and Destructor
-
-sub new
-{
- my $proto = shift;
- my $class = ref ($proto) || $proto;
- my $self = {};
-
- bless ($self, $class);
- return $self;
-}
-
-sub DESTROY
-{
- my $self = shift;
-}
-
-##################################################################
-
-sub LocalFile ($)
-{
- my $self = shift;
- my $file = shift;
- my $newfile = PerlACE::LocalFile($file);
- return $newfile;
-}
-
-sub DeleteFile ($)
-{
- my $self = shift;
- my $file = shift;
- unlink $file;
-}
-
-sub WaitForFileTimed ($)
-{
- my $self = shift;
- my $file = shift;
- my $timeout = shift;
- return PerlACE::waitforfile_timed ($file, $timeout);
-}
-
-sub CreateProcess ($)
-{
- my $self = shift;
- my $process = new PerlACE::Process (@_);
- return $process;
-}
-
-# Don't need to do anything in most cases.
-sub GetStderrLog ($)
-{
- my $self = shift;
- return;
-}
-
-1;