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);
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 => {
$mech->submit_form_ok({
form_number => 2,
fields => {
- member => 'kohatest@ffzg.hr',
+ member => $config->{bind_as},
},
}, 'find patron' );