From 0c601b73125d1bc120e248149bf4d83ecc27f1c2 Mon Sep 17 00:00:00 2001
From: Justin Clarke Casey
Date: Tue, 8 Apr 2008 11:19:34 +0000
Subject: * Removing lulurun's perl UGAI from core svn, pending a link to an
 external repository, as per mailing list discussion.

---
 share/perl/test/OpenSimTest.pm | 53 ------------------------------------------
 1 file changed, 53 deletions(-)
 delete 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
deleted file mode 100644
index a24ae22..0000000
--- a/share/perl/test/OpenSimTest.pm
+++ /dev/null
@@ -1,53 +0,0 @@
-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