Parent Directory | Revision Log | Patch
revision 80 by dpavlin, Tue Feb 23 18:59:42 2010 UTC | revision 81 by dpavlin, Tue Feb 23 19:40:01 2010 UTC | |
---|---|---|
# | Line 15 use WWW::Mechanize; | Line 15 use WWW::Mechanize; |
15 | my $mech = Test::WWW::Mechanize->new; | my $mech = Test::WWW::Mechanize->new; |
16 | ||
17 | my $save_count = 1; | my $save_count = 1; |
18 | sub save { write_file "/tmp/login-$save_count.html", @_; $save_count++; } | sub save { |
19 | my $path = '/tmp/login-' . $save_count++ . '.html'; | |
20 | write_file $path, @_; | |
21 | warn "# save $path ", -s $path, " bytes\n"; | |
22 | } | |
23 | ||
24 | ||
25 | $mech->get_ok( 'https://localhost', 'opac' ); | $mech->get_ok( 'https://localhost', 'opac' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |