18 lines
716 B
Perl
18 lines
716 B
Perl
#!/bin/perl
|
|
BEGIN { push @INC, '.' }
|
|
use strict;
|
|
use warnings;
|
|
use helpers;
|
|
|
|
my ($url) = helpers::prompt_instance_info();
|
|
my $num = helpers::prompt('# of requests per each page');
|
|
|
|
helpers::stress_test('About page', $url, $num, 'about');
|
|
helpers::stress_test('License page', $url, $num, 'about/license');
|
|
helpers::stress_test('Login page', $url, $num, 'login');
|
|
helpers::stress_test('Search page', $url, $num, 'search');
|
|
helpers::stress_test('Emoji picker page', $url, $num, 'emoji_picker');
|
|
helpers::stress_test('Config page', $url, $num, 'config');
|
|
helpers::stress_test('General page for Config', $url, $num, 'config/general');
|
|
helpers::stress_test('Appearance page for Config', $url, $num, 'config/appearance');
|
|
|