Revision 105

Date:
2011/07/14 20:18:57
Author:
dpavlin
Revision Log:
use bind_as from config file
Files:

Legend:

 
Added
 
Removed
 
Modified
  • t/koha/01-remove-test-user.t

     
    3 3 use warnings;
    4 4 use strict;
    5 5
    6 use Test::More tests => 6;
    6 use Test::More tests => 7;
    7 7 use Test::WWW::Mechanize;
    8 8 use XML::Simple;
    9 9 use Data::Dump qw(dump);
     
    14 14 my $xml = XMLin( $koha_conf );
    15 15 diag 'Koha config = ',dump $xml->{config};
    16 16
    17 ok( $xml->{config}->{useldapserver}, 'useldapserver' );
    18
    17 19 our $config;
    18 20 require 't/config.pl';
    19 21 diag 'test config = ',dump $config;
    20 22
    21 23 my $mech = Test::WWW::Mechanize->new;
    22 24
    23 $mech->get_ok( $url, 'intranet' );
    25 $mech->get_ok( $url, "intranet $url" );
    24 26
    25 27 $mech->submit_form_ok({
    26 28 fields => {
     
    32 34 $mech->submit_form_ok({
    33 35 form_number => 2,
    34 36 fields => {
    35 member => 'kohatest@ffzg.hr',
    37 member => $config->{bind_as},
    36 38 },
    37 39 }, 'find patron' );
    38 40