[r419]: trunk / t / Issues / rt70381.t  Maximize  Restore  History

Download this file

33 lines (24 with data), 1.1 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
use Test::More;
if (not $ENV{PROFILE_PERFORMANCE}) {
plan ('skip_all' => 'This is a performance test. Set PROFILE_PERFORMANCE env var to a true value to run');
exit 1;
}
plan qw(no_plan);
use SOAP::Lite;
my $content = SOAP::Data->name('test')->uri('http://example.org')
->value([
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
]);
my $soap = SOAP::Lite->proxy('loopback://');
for (1..100) {
my $response = $soap->call('test', \$content);
}

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks