diff options
author | Adam Frisby | 2008-03-25 16:29:54 +0000 |
---|---|---|
committer | Adam Frisby | 2008-03-25 16:29:54 +0000 |
commit | 8c05b81d6860d8e0da4098cc6f59f630d7c53037 (patch) | |
tree | 3325e09660ee8ad5a12cc19c8da6c4bd8bff5c21 /share/perl/test/PerformanceTest.pl | |
parent | * On Ray casting. Now returning the face normal of the collision face. (diff) | |
download | opensim-SC_OLD-8c05b81d6860d8e0da4098cc6f59f630d7c53037.zip opensim-SC_OLD-8c05b81d6860d8e0da4098cc6f59f630d7c53037.tar.gz opensim-SC_OLD-8c05b81d6860d8e0da4098cc6f59f630d7c53037.tar.bz2 opensim-SC_OLD-8c05b81d6860d8e0da4098cc6f59f630d7c53037.tar.xz |
* Committing Lulurun's Cgi/Perl implementation of the UGAI servers.
* I love you long time.
Diffstat (limited to '')
-rw-r--r-- | share/perl/test/PerformanceTest.pl | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/share/perl/test/PerformanceTest.pl b/share/perl/test/PerformanceTest.pl new file mode 100644 index 0000000..5f570e8 --- /dev/null +++ b/share/perl/test/PerformanceTest.pl | |||
@@ -0,0 +1,78 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | # Usage: | ||
4 | # ./PerformanceTest.pl | ||
5 | # 2 variables should be changed: | ||
6 | # Line 14: $fork_limit | ||
7 | # Line 13: $benchmark_loop_count | ||
8 | # | ||
9 | |||
10 | use strict; | ||
11 | use OpenSimTest; | ||
12 | |||
13 | my $script = "./PerformanceTest.pl"; | ||
14 | my $fork_limit = 50; # the number of process | ||
15 | my $benchmark_loop_count = 10000; # the number of requests sent by each process | ||
16 | |||
17 | my @child_pid = (); | ||
18 | |||
19 | for(1..$fork_limit) { | ||
20 | my $pid = fork; | ||
21 | if ($pid) { | ||
22 | &parent_do($pid); | ||
23 | } elsif ($pid == 0) { | ||
24 | &child_do; | ||
25 | exit(0); | ||
26 | } else { | ||
27 | die "could not fork"; | ||
28 | } | ||
29 | } | ||
30 | |||
31 | foreach (@child_pid) { | ||
32 | waitpid($_, 0); | ||
33 | } | ||
34 | |||
35 | |||
36 | sub parent_do { | ||
37 | my $pid = shift; | ||
38 | push(@child_pid, $pid); | ||
39 | } | ||
40 | |||
41 | sub child_do { | ||
42 | #for(1..10000) { | ||
43 | # print "$_ "; | ||
44 | #} | ||
45 | &OpenSimTest::init(); | ||
46 | # user | ||
47 | &OpenSimTest::PerformanceCompare("user", $benchmark_loop_count, "get_user_by_name", "Test User"); | ||
48 | &OpenSimTest::PerformanceCompare("user", $benchmark_loop_count, "get_user_by_uuid", "db836502-de98-49c9-9edc-b90a67beb0a8"); | ||
49 | # grid | ||
50 | &OpenSimTest::PerformanceCompare("grid", $benchmark_loop_count, "simulator_login", "3507f395-88e5-468c-a45f-d4fd96a1c668", "10.8.1.148", 9000); | ||
51 | &OpenSimTest::PerformanceCompare("grid", $benchmark_loop_count, "simulator_data_request", "1099511628032000"); | ||
52 | &OpenSimTest::PerformanceCompare("grid", $benchmark_loop_count, "map_block", 999, 999, 1001, 1001); | ||
53 | # asset | ||
54 | &OpenSimTest::PerformanceCompare("asset", $benchmark_loop_count, "get_asset", "00000000000022223333000000000001"); | ||
55 | # inventory | ||
56 | &OpenSimTest::PerformanceCompare("inventory", $benchmark_loop_count, "root_folders", "b9cb58e8-f3c9-4af5-be47-029762baa68f"); | ||
57 | &OpenSimTest::PerformanceCompare("inventory", $benchmark_loop_count, "get_inventory", "b9cb58e8-f3c9-4af5-be47-029762baa68f"); | ||
58 | } | ||
59 | |||
60 | __END__ | ||
61 | my $count = 10000; | ||
62 | |||
63 | &OpenSimTest::init(); | ||
64 | # user | ||
65 | #&OpenSimTest::PerformanceCompare("user", $count, "get_user_by_name", "Test User"); | ||
66 | #&OpenSimTest::PerformanceCompare("user", $count, "get_user_by_uuid", "db836502-de98-49c9-9edc-b90a67beb0a8"); | ||
67 | # grid | ||
68 | #&OpenSimTest::PerformanceCompare("grid", $count, "simulator_login", "3507f395-88e5-468c-a45f-d4fd96a1c668", "10.8.1.148", 9000); | ||
69 | #&OpenSimTest::PerformanceCompare("grid", $count, "simulator_data_request", "1099511628032000"); | ||
70 | #&OpenSimTest::PerformanceCompare("grid", $count, "map_block", 999, 999, 1001, 1001); | ||
71 | # asset | ||
72 | &OpenSimTest::PerformanceCompare("asset", $count, "get_asset", "00000000000022223333000000000001"); | ||
73 | # inventory | ||
74 | #&OpenSimTest::PerformanceCompare("inventory", $count, "create_inventory", "b9cb58e8-f3c9-4af5-be47-029762baa68f"); | ||
75 | #&OpenSimTest::PerformanceCompare("inventory", $count, "root_folders", "b9cb58e8-f3c9-4af5-be47-029762baa68f"); | ||
76 | #&OpenSimTest::PerformanceCompare("inventory", $count, "get_inventory", "b9cb58e8-f3c9-4af5-be47-029762baa68f"); | ||
77 | #&OpenSimTest::PerformanceCompare("inventory", $count, "new_item"); | ||
78 | #&OpenSimTest::PerformanceCompare("inventory", $count, "new_folder"); | ||