/[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 78 by dpavlin, Tue Feb 23 18:16:03 2010 UTC revision 81 by dpavlin, Tue Feb 23 19:40:01 2010 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use Test::More tests => 3;  use Test::More tests => 4;
7  use Test::WWW::Mechanize;  use Test::WWW::Mechanize;
8  use File::Slurp;  use File::Slurp;
9    
# 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' );
# Line 33  $mech->submit_form_ok({ Line 37  $mech->submit_form_ok({
37  }, 'login');  }, 'login');
38  save $mech->content;  save $mech->content;
39    
40    $mech->follow_link_ok({ url_regex => qr/logout/ }, 'logout' );
Legend:
Removed from v.78  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.26