X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2Fkoha%2F01-remove-test-user.t;h=b3a8806c9771a423716629caa3838554d294c111;hb=18fe1e064f5df47388257a74464a112e76b204ee;hp=3f3a694a2250de4cd08d821ec7d620db914a167f;hpb=66576637717e069cd9c4a34e3a0f5148e52a6bbc;p=virtual-ldap

diff --git a/t/koha/01-remove-test-user.t b/t/koha/01-remove-test-user.t
index 3f3a694..b3a8806 100755
--- a/t/koha/01-remove-test-user.t
+++ b/t/koha/01-remove-test-user.t
@@ -3,29 +3,38 @@
 use warnings;
 use strict;
 
-use Test::More tests => 6;
+use Test::More tests => 7;
 use Test::WWW::Mechanize;
+use XML::Simple;
+use Data::Dump qw(dump);
 
-our ( $user, $passwd );
-require 'config.pl';
+my $url =       $ENV{INTRANET}  || 'http://ffzg.koha-dev.rot13.org:8080';
+my $koha_conf = $ENV{KOHA_CONF} || '/etc/koha/sites/ffzg/koha-conf.xml';
 
-my $url = 'https://localhost:8443'; # Koha intranet
+my $xml = XMLin( $koha_conf );
+diag 'Koha config = ',dump $xml->{config};
+
+ok( $xml->{config}->{useldapserver}, 'useldapserver' );
+
+our $config;
+require 't/config.pl';
+diag 'test config = ',dump $config;
 
 my $mech = Test::WWW::Mechanize->new;
 
-$mech->get_ok( $url, 'intranet' );
+$mech->get_ok( $url, "intranet $url" );
 
 $mech->submit_form_ok({
 	fields => {
-		userid => $user,
-		password => $passwd,
+		userid   => $xml->{config}->{user},
+		password => $xml->{config}->{pass},
 	},
-}, 'login');
+}, "login $xml->{config}->{user}");
 
 $mech->submit_form_ok({
 	form_number => 2,
 	fields => {
-		member => 'kohatest@ffzg.hr',
+		member => $config->{bind_as},
 	},
 }, 'find patron' );