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

#!/usr/bin/perl

use warnings;
use strict;

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

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';
        open(my $fh, '>', $path);
        print $fh @_;
        warn "# save $path ", -s $path, " bytes\n";
}
        

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

$mech->follow_link_ok({ url_regex => qr/opac-user/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
9			our $config;
10			require 't/config.pl';
11
12			use WWW::Mechanize;
13
14			my $mech = Test::WWW::Mechanize->new;
15
16			my $save_count = 1;
17	dpavlin	81	sub save {
18			my $path = '/tmp/login-' . $save_count++ . '.html';
19	dpavlin	101	open(my $fh, '>', $path);
20			print $fh @_;
21	dpavlin	81	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	dpavlin	101	$mech->follow_link_ok({ url_regex => qr/opac-user/i }, 'login form' );
29	dpavlin	78	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' );