View | Details | Raw Unified | Return to bug 13264
Collapse All | Expand All

(-)a/t/db_dependent/www/auth_values_input_www.t (-12 / +3 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
# Copyright 2012 C & P Bibliography Services
3
# This file is part of Koha.
4
#
4
#
5
# This is free software; you can redistribute it and/or modify it under the
5
# This is free software; you can redistribute it and/or modify it under the
6
# terms of the GNU General Public License as published by the Free Software
6
# terms of the GNU General Public License as published by the Free Software
Lines 17-22 Link Here
17
#
17
#
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
use utf8;
21
use utf8;
21
use Test::More;
22
use Test::More;
22
use Test::WWW::Mechanize;
23
use Test::WWW::Mechanize;
Lines 45-57 my $user = $ENV{KOHA_USER} || $xml->{config}->{user}; Link Here
45
my $password = $ENV{KOHA_PASS} || $xml->{config}->{pass};
46
my $password = $ENV{KOHA_PASS} || $xml->{config}->{pass};
46
my $intranet = $ENV{KOHA_INTRANET_URL};
47
my $intranet = $ENV{KOHA_INTRANET_URL};
47
48
48
my $mysql_on = ProgProcesses('mysql');
49
50
51
if ($mysql_on < 2) {
52
    plan skip_all => "Tests skip. You must start Mysql to do those tests\n";
53
}
54
55
if (not defined $intranet) {
49
if (not defined $intranet) {
56
    plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n";
50
    plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n";
57
}
51
}
Lines 107-112 if ($id_to_del) { Link Here
107
101
108
done_testing();
102
done_testing();
109
103
110
sub ProgProcesses {
104
1;
111
   return scalar grep /$_[0]/, (split /\n/, `ps -aef`);
112
}
113
- 

Return to bug 13264