/[virtual-ldap]/t/koha/01-remove-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/01-remove-test-user.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 104 by dpavlin, Thu Jul 14 18:49:24 2011 UTC revision 105 by dpavlin, Thu Jul 14 20:18:57 2011 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use Test::More tests => 6;  use Test::More tests => 7;
7  use Test::WWW::Mechanize;  use Test::WWW::Mechanize;
8  use XML::Simple;  use XML::Simple;
9  use Data::Dump qw(dump);  use Data::Dump qw(dump);
# Line 14  my $koha_conf = $ENV{KOHA_CONF} || '/etc Line 14  my $koha_conf = $ENV{KOHA_CONF} || '/etc
14  my $xml = XMLin( $koha_conf );  my $xml = XMLin( $koha_conf );
15  diag 'Koha config = ',dump $xml->{config};  diag 'Koha config = ',dump $xml->{config};
16    
17    ok( $xml->{config}->{useldapserver}, 'useldapserver' );
18    
19  our $config;  our $config;
20  require 't/config.pl';  require 't/config.pl';
21  diag 'test config = ',dump $config;  diag 'test config = ',dump $config;
22    
23  my $mech = Test::WWW::Mechanize->new;  my $mech = Test::WWW::Mechanize->new;
24    
25  $mech->get_ok( $url, 'intranet' );  $mech->get_ok( $url, "intranet $url" );
26    
27  $mech->submit_form_ok({  $mech->submit_form_ok({
28          fields => {          fields => {
# Line 32  $mech->submit_form_ok({ Line 34  $mech->submit_form_ok({
34  $mech->submit_form_ok({  $mech->submit_form_ok({
35          form_number => 2,          form_number => 2,
36          fields => {          fields => {
37                  member => 'kohatest@ffzg.hr',                  member => $config->{bind_as},
38          },          },
39  }, 'find patron' );  }, 'find patron' );
40    
Legend:
Removed from v.104  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.26