6 use Test::More tests => 4;
7 use Test::WWW::Mechanize;
11 require 't/config.pl';
15 my $mech = Test::WWW::Mechanize->new;
19 my $path = '/tmp/login-' . $save_count++ . '.html';
21 warn "# save $path ", -s $path, " bytes\n";
25 $mech->get_ok( 'https://localhost', 'opac' );
28 $mech->follow_link_ok({ text_regex => qr/Log in to Your Account/i }, 'login form' );
31 $mech->submit_form_ok({
34 userid => $config->{bind_as},
35 password => $config->{password},
40 $mech->follow_link_ok({ url_regex => qr/logout/ }, 'logout' );