]> mj.ucw.cz Git - eval.git/commitdiff
The test utility is no longer needed.
authorMartin Mares <mj@ucw.cz>
Tue, 5 Jun 2007 11:41:49 +0000 (13:41 +0200)
committerMartin Mares <mj@ucw.cz>
Tue, 5 Jun 2007 11:41:49 +0000 (13:41 +0200)
submit/test.pl [deleted file]

diff --git a/submit/test.pl b/submit/test.pl
deleted file mode 100755 (executable)
index 6b4b7b1..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use lib ".";
-use lib "lib/perl5";
-
-use MO::Submit;
-use Sherlock::Object;
-
-my $conn = new MO::Submit;
-$conn->connect or die;
-
-#$req = new Sherlock::Object;
-#$req->set("!" => "SUBMIT", "T" => "plans", "X" => "pas", "S" => 100);
-#req($req);
-#$reply = reply();
-#print $sk "<..................................................................................................>";
-#$reply = reply();
-
-my $r = new Sherlock::Object("!" => "STATUS");
-$r = $conn->request($r) or die;
-$r->write_indented(*STDOUT);
-
-$conn->disconnect;