aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/share/perl/test/OpenSimTest.pm
diff options
context:
space:
mode:
Diffstat (limited to 'share/perl/test/OpenSimTest.pm')
-rw-r--r--share/perl/test/OpenSimTest.pm53
1 files changed, 0 insertions, 53 deletions
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 @@
1package OpenSimTest;
2
3use strict;
4use PerformanceTest;
5use OpenSimTest::Config;
6use OpenSimTest::UserTester;
7use OpenSimTest::GridTester;
8use OpenSimTest::AssetTester;
9use OpenSimTest::InventoryTester;
10
11sub init {
12 UserTester::init();
13 GridTester::init();
14 AssetTester::init();
15 InventoryTester::init();
16}
17
18sub SingleTest {
19 my $url = shift;
20 my $methodname = shift;
21 my @ARGS = @_;
22
23 if (!$OpenSimTest::Config::HANDLER_LIST{$methodname}) {
24 Carp::croak("unknown handler name: [$methodname]");
25 } else {
26 my $handler = $OpenSimTest::Config::HANDLER_LIST{$methodname};
27 my $result = $handler->($url, @ARGS);
28 return $result;
29 }
30}
31
32sub PerformanceCompare {
33 my $server_name = shift;
34 my $count = shift;
35 my @args = @_;
36 my $test = new PerformanceTest();
37 {
38 my @params = @args;
39 unshift(@params, $OpenSimTest::Config::APACHE_SERVERS{$server_name});
40 $test->add_test("APACHE::$args[0]", \&OpenSimTest::SingleTest, \@params);
41 }
42 {
43 my @params = @args;
44 unshift(@params, $OpenSimTest::Config::OPENSIM_SERVERS{$server_name});
45 $test->add_test("OPENSIM::$args[0]", \&OpenSimTest::SingleTest, \@params);
46 }
47 $test->set_count($count);
48 $test->start();
49 print "\n\n";
50 #$test->bref_result();
51}
52
531;