/[virtual-ldap]/t/koha/02-create-test-user.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/koha/02-create-test-user.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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' );
Legend:
Removed from v.80  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.26