Parent Directory | Revision Log | Patch
revision 101 by dpavlin, Tue Nov 16 18:07:05 2010 UTC | revision 106 by dpavlin, Thu Jul 14 20:23:45 2011 UTC | |
---|---|---|
# | Line 20 sub save { | Line 20 sub save { |
20 | print $fh @_; | print $fh @_; |
21 | warn "# save $path ", -s $path, " bytes\n"; | warn "# save $path ", -s $path, " bytes\n"; |
22 | } | } |
23 | ||
24 | $mech->get_ok( 'https://localhost', 'opac' ); | my $opac_url = $ENV{OPAC_URL} || 'http://ffzg.koha-dev.rot13.org'; |
25 | ||
26 | $mech->get_ok( $opac_url, "opac $opac_url" ); | |
27 | save $mech->content; | save $mech->content; |
28 | ||
29 | $mech->follow_link_ok({ url_regex => qr/opac-user/i }, 'login form' ); | $mech->follow_link_ok({ url_regex => qr/opac-user/i }, 'login form' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |