From 8c05b81d6860d8e0da4098cc6f59f630d7c53037 Mon Sep 17 00:00:00 2001
From: Adam Frisby
Date: Tue, 25 Mar 2008 16:29:54 +0000
Subject: * Committing Lulurun's Cgi/Perl implementation of the UGAI servers. *
 I love you long time.

---
 share/perl/test/SingleTest.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 share/perl/test/SingleTest.pl

(limited to 'share/perl/test/SingleTest.pl')

diff --git a/share/perl/test/SingleTest.pl b/share/perl/test/SingleTest.pl
new file mode 100644
index 0000000..e6be081
--- /dev/null
+++ b/share/perl/test/SingleTest.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+# usage:
+# ./SingleTest.pl $URL $METHOD @PARAMETERS
+# example
+# ./SingleTest.pl http://127.0.0.1/user.cgi get_user_by_name "Test User"
+# ./SingleTest.pl http://127.0.0.1/grid.cgi simulator_login 3507f395-88e5-468c-a45f-d4fd96a1c668 10.8.1.148 9000
+# ./SingleTest.pl http://127.0.0.1/grid.cgi map_block 999 999 1001 1001
+# ./SingleTest.pl  http://127.0.0.1/asset.cgi get_asset 00000000000022223333000000000001
+#
+
+use strict;
+use Data::Dump;
+use OpenSimTest;
+
+&OpenSimTest::init();
+my $url = shift @ARGV;
+#my $url = "http://localhost:8002";
+my $result = &OpenSimTest::SingleTest($url, @ARGV);
+Data::Dump::dump($result);
+
-- 
cgit v1.1