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/PerformanceTest.pl | 78 --------------------------------------
 1 file changed, 78 deletions(-)
 delete mode 100755 share/perl/test/PerformanceTest.pl

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

diff --git a/share/perl/test/PerformanceTest.pl b/share/perl/test/PerformanceTest.pl
deleted file mode 100755
index 5f570e8..0000000
--- a/share/perl/test/PerformanceTest.pl
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/perl
-
-# Usage:
-# ./PerformanceTest.pl
-# 2 variables should be changed:
-# Line 14: $fork_limit
-# Line 13: $benchmark_loop_count
-#
-
-use strict;
-use OpenSimTest;
-
-my $script = "./PerformanceTest.pl";
-my $fork_limit = 50; # the number of process
-my $benchmark_loop_count = 10000; # the number of requests sent by each process
-
-my @child_pid = ();
-
-for(1..$fork_limit) {
-	my $pid = fork;
-	if ($pid) {
-		&parent_do($pid);
-	} elsif ($pid == 0) {
-		&child_do;
-		exit(0);
-	} else {
-		die "could not fork";
-	}
-}
-
-foreach (@child_pid) {
-	waitpid($_, 0);
-}
-
-
-sub parent_do {
-	my $pid = shift;
-	push(@child_pid, $pid);
-}
-
-sub child_do {
-	#for(1..10000) {
-	#	print "$_ ";
-	#}
-	&OpenSimTest::init();
-	# user
-	&OpenSimTest::PerformanceCompare("user", $benchmark_loop_count, "get_user_by_name", "Test User");
-	&OpenSimTest::PerformanceCompare("user", $benchmark_loop_count, "get_user_by_uuid", "db836502-de98-49c9-9edc-b90a67beb0a8");
-	# grid
-	&OpenSimTest::PerformanceCompare("grid", $benchmark_loop_count, "simulator_login", "3507f395-88e5-468c-a45f-d4fd96a1c668", "10.8.1.148", 9000);
-	&OpenSimTest::PerformanceCompare("grid", $benchmark_loop_count, "simulator_data_request", "1099511628032000");
-	&OpenSimTest::PerformanceCompare("grid", $benchmark_loop_count, "map_block", 999, 999, 1001, 1001);
-	# asset
-	&OpenSimTest::PerformanceCompare("asset", $benchmark_loop_count, "get_asset", "00000000000022223333000000000001");
-	# inventory
-	&OpenSimTest::PerformanceCompare("inventory", $benchmark_loop_count, "root_folders", "b9cb58e8-f3c9-4af5-be47-029762baa68f");
-	&OpenSimTest::PerformanceCompare("inventory", $benchmark_loop_count, "get_inventory", "b9cb58e8-f3c9-4af5-be47-029762baa68f");
-}
-
-__END__
-my $count = 10000;
-
-&OpenSimTest::init();
-# user
-#&OpenSimTest::PerformanceCompare("user", $count, "get_user_by_name", "Test User");
-#&OpenSimTest::PerformanceCompare("user", $count, "get_user_by_uuid", "db836502-de98-49c9-9edc-b90a67beb0a8");
-# grid
-#&OpenSimTest::PerformanceCompare("grid", $count, "simulator_login", "3507f395-88e5-468c-a45f-d4fd96a1c668", "10.8.1.148", 9000);
-#&OpenSimTest::PerformanceCompare("grid", $count, "simulator_data_request", "1099511628032000");
-#&OpenSimTest::PerformanceCompare("grid", $count, "map_block", 999, 999, 1001, 1001);
-# asset
-&OpenSimTest::PerformanceCompare("asset", $count, "get_asset", "00000000000022223333000000000001");
-# inventory
-#&OpenSimTest::PerformanceCompare("inventory", $count, "create_inventory", "b9cb58e8-f3c9-4af5-be47-029762baa68f");
-#&OpenSimTest::PerformanceCompare("inventory", $count, "root_folders", "b9cb58e8-f3c9-4af5-be47-029762baa68f");
-#&OpenSimTest::PerformanceCompare("inventory", $count, "get_inventory", "b9cb58e8-f3c9-4af5-be47-029762baa68f");
-#&OpenSimTest::PerformanceCompare("inventory", $count, "new_item");
-#&OpenSimTest::PerformanceCompare("inventory", $count, "new_folder");
-- 
cgit v1.1