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' );