t/koha/01-remove-test-user.t

#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 6;
use Test::WWW::Mechanize;
use XML::Simple;
use Data::Dump qw(dump);

my $url =       $ENV{INTRANET}  || 'http://ffzg.koha-dev.rot13.org:8080';
my $koha_conf = $ENV{KOHA_CONF} || '/etc/koha/sites/ffzg/koha-conf.xml';

my $xml = XMLin( $koha_conf );
diag 'Koha config = ',dump $xml->{config};

our $config;
require 't/config.pl';
diag 'test config = ',dump $config;

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

$mech->get_ok( $url, 'intranet' );

$mech->submit_form_ok({
        fields => {
                userid   => $xml->{config}->{user},
                password => $xml->{config}->{pass},
        },
}, "login $xml->{config}->{user}");

$mech->submit_form_ok({
        form_number => 2,
        fields => {
                member => 'kohatest@ffzg.hr',
        },
}, 'find patron' );

#diag $mech->content;

$mech->follow_link_ok({ url_regex => qr/moremember/ }, 'details' );

my $html = $mech->content();

if ( $html =~ m{(/cgi-bin/koha/members/deletemem\.pl\?member=\d+)}s ) {
        ok( $1, 'found deletemem' );
        $mech->get_ok( $url . $1 );
}
1	dpavlin	78	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use Test::More tests => 6;
7			use Test::WWW::Mechanize;
8	dpavlin	104	use XML::Simple;
9			use Data::Dump qw(dump);
10	dpavlin	78
11	dpavlin	104	my $url = $ENV{INTRANET} \|\| 'http://ffzg.koha-dev.rot13.org:8080';
12			my $koha_conf = $ENV{KOHA_CONF} \|\| '/etc/koha/sites/ffzg/koha-conf.xml';
13	dpavlin	78
14	dpavlin	104	my $xml = XMLin( $koha_conf );
15			diag 'Koha config = ',dump $xml->{config};
16	dpavlin	78
17	dpavlin	104	our $config;
18			require 't/config.pl';
19			diag 'test config = ',dump $config;
20
21	dpavlin	78	my $mech = Test::WWW::Mechanize->new;
22
23			$mech->get_ok( $url, 'intranet' );
24
25			$mech->submit_form_ok({
26			fields => {
27	dpavlin	104	userid => $xml->{config}->{user},
28			password => $xml->{config}->{pass},
29	dpavlin	78	},
30	dpavlin	104	}, "login $xml->{config}->{user}");
31	dpavlin	78
32			$mech->submit_form_ok({
33			form_number => 2,
34			fields => {
35			member => 'kohatest@ffzg.hr',
36			},
37			}, 'find patron' );
38
39			#diag $mech->content;
40
41			$mech->follow_link_ok({ url_regex => qr/moremember/ }, 'details' );
42
43			my $html = $mech->content();
44
45			if ( $html =~ m{(/cgi-bin/koha/members/deletemem\.pl\?member=\d+)}s ) {
46			ok( $1, 'found deletemem' );
47			$mech->get_ok( $url . $1 );
48			}