test script for Scire::Job

svn path=/branches/new-fu/; revision=345

1 files changed, 26 insertions, 0 deletions

diff --git a/client/test.pl b/client/test.pl
new file mode 100644
index 0000000..c198964
--- /dev/null
+++ b/client/test.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+$| = 1;
+
+use Scire::Job;
+use Scire::Communicator;
+
+my $job = Scire::Job->new();
+$job->load_jobfile("/tmp/scirejobs/job1.job");
+#print $job->{script_data} . "\n";
+$job->set_stdout_file("/tmp/scire_stdout.txt");
+$job->set_stderr_file("/tmp/scire_stderr.txt");
+$job->set_script_file("/tmp/scirejobs/runjob.sh");
+my $exitcode = $job->run();
+print "Job complete with exit code ${exitcode}\n";
+
+exit;
+
+my $comm = Scire::Communicator->new( host => "localhost" );
+$comm->create_connection();
+$comm->close_connection();
+#my ($status, $message) = $comm->send_command("QUIT");
+#print "$status\n";