t/koha/02-create-test-user.t

#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 4;
use Test::WWW::Mechanize;
use File::Slurp;

our $config;
require 't/config.pl';

use WWW::Mechanize;

my $mech = Test::WWW::Mechanize->new;

my $save_count = 1;
sub save {
        my $path = '/tmp/login-' . $save_count++ . '.html';
        write_file $path, @_;
        warn "# save $path ", -s $path, " bytes\n";
}
        

$mech->get_ok( 'https://localhost', 'opac' );
save $mech->content;

$mech->follow_link_ok({ text_regex => qr/Log in to Your Account/i }, 'login form' );
save $mech->content;

$mech->submit_form_ok({
        form_number => 2,
        fields => {
                userid => $config->{bind_as},
                password => $config->{password},
        },
}, 'login');
save $mech->content;

$mech->follow_link_ok({ url_regex => qr/logout/ }, 'logout' );
1	dpavlin	78	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6	dpavlin	80	use Test::More tests => 4;
7	dpavlin	78	use Test::WWW::Mechanize;
8			use File::Slurp;
9
10			our $config;
11			require 't/config.pl';
12
13			use WWW::Mechanize;
14
15			my $mech = Test::WWW::Mechanize->new;
16
17			my $save_count = 1;
18	dpavlin	81	sub save {
19			my $path = '/tmp/login-' . $save_count++ . '.html';
20			write_file $path, @_;
21			warn "# save $path ", -s $path, " bytes\n";
22			}
23	dpavlin	78
24
25			$mech->get_ok( 'https://localhost', 'opac' );
26			save $mech->content;
27
28			$mech->follow_link_ok({ text_regex => qr/Log in to Your Account/i }, 'login form' );
29			save $mech->content;
30
31			$mech->submit_form_ok({
32			form_number => 2,
33			fields => {
34			userid => $config->{bind_as},
35			password => $config->{password},
36			},
37			}, 'login');
38			save $mech->content;
39
40	dpavlin	80	$mech->follow_link_ok({ url_regex => qr/logout/ }, 'logout' );