6 use Test::More tests => 6;
7 use Test::WWW::Mechanize;
9 our ( $user, $passwd );
12 my $url = 'https://localhost:8443'; # Koha intranet
14 my $mech = Test::WWW::Mechanize->new;
16 $mech->get_ok( $url, 'intranet' );
18 $mech->submit_form_ok({
25 $mech->submit_form_ok({
28 member => 'kohatest@ffzg.hr',
34 $mech->follow_link_ok({ url_regex => qr/moremember/ }, 'details' );
36 my $html = $mech->content();
38 if ( $html =~ m{(/cgi-bin/koha/members/deletemem\.pl\?member=\d+)}s ) {
39 ok( $1, 'found deletemem' );
40 $mech->get_ok( $url . $1 );