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); |
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 => { |
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 |
|
|