oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added benchmark script for NYTProf-ing

Browse source
This commit is contained in:
Patrick Donelan 2010-03-16 23:35:13 -04:00
parent 5d4e0f95d7
commit e15c32e3f7
2 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
benchmark.pl Executable file
View file

@ -0,0 +1,14 @@
# Little script used to run benchmarks against dev.localhost.localdomain
#
# To profile, run "perl -d:NYTProf benchmark.pl"
use lib '/data/WebGUI/lib';
use WebGUI;
use Plack::Test;
use HTTP::Request::Common;
my $app = WebGUI->new( root => '/data/WebGUI', site => 'dev.localhost.localdomain.conf' )->psgi_app;
test_psgi $app, sub {
my $cb = shift;
my $res = $cb->( GET "/" );
} for 1..100;