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/OpenSimTest.pm | 53 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 share/perl/test/OpenSimTest.pm

(limited to 'share/perl/test/OpenSimTest.pm')

diff --git a/share/perl/test/OpenSimTest.pm b/share/perl/test/OpenSimTest.pm
new file mode 100644
index 0000000..a24ae22
--- /dev/null
+++ b/share/perl/test/OpenSimTest.pm
@@ -0,0 +1,53 @@
+package OpenSimTest;
+
+use strict;
+use PerformanceTest;
+use OpenSimTest::Config;
+use OpenSimTest::UserTester;
+use OpenSimTest::GridTester;
+use OpenSimTest::AssetTester;
+use OpenSimTest::InventoryTester;
+
+sub init {
+	UserTester::init();
+	GridTester::init();
+	AssetTester::init();
+	InventoryTester::init();
+}
+
+sub SingleTest {
+	my $url = shift;
+	my $methodname = shift;
+	my @ARGS = @_;
+
+	if (!$OpenSimTest::Config::HANDLER_LIST{$methodname}) {
+	    Carp::croak("unknown handler name: [$methodname]");
+	} else {
+	    my $handler = $OpenSimTest::Config::HANDLER_LIST{$methodname};
+	    my $result = $handler->($url, @ARGS);
+		return $result;
+	}
+}
+
+sub PerformanceCompare {
+	my $server_name = shift;
+	my $count = shift;
+	my @args = @_;
+	my $test = new PerformanceTest();
+	{
+		my @params = @args;
+		unshift(@params, $OpenSimTest::Config::APACHE_SERVERS{$server_name});
+		$test->add_test("APACHE::$args[0]", \&OpenSimTest::SingleTest, \@params);
+	}
+	{
+		my @params = @args;
+		unshift(@params, $OpenSimTest::Config::OPENSIM_SERVERS{$server_name});
+		$test->add_test("OPENSIM::$args[0]", \&OpenSimTest::SingleTest, \@params);
+	}
+	$test->set_count($count);
+	$test->start();
+	print "\n\n";
+	#$test->bref_result();
+}
+
+1;
-- 
cgit v1.1