From cc2c81b10e0bbb28ab1f3e6362de7ad316f0f748 Mon Sep 17 00:00:00 2001
From: Andrew Gaffney <agaffney@gentoo.org>
Date: Tue, 8 Jan 2008 02:23:26 +0000
Subject: test script for Scire::Job

svn path=/branches/new-fu/; revision=345
---
 client/test.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 client/test.pl

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";
-- 
cgit v1.2.3-65-gdbad