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

(-)a/t/db_dependent/Koha/UI/Form/Builder/Biblio.t (-3 / +2 lines)
Lines 2-13 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use DateTime;
6
use Test::More;
5
use Test::More;
7
6
8
use C4::ClassSource;
7
use C4::ClassSource;
9
8
10
use Koha::ClassSources;
9
use Koha::ClassSources;
10
use Koha::DateUtils qw( dt_from_string );
11
use Koha::ItemTypes;
11
use Koha::ItemTypes;
12
use Koha::Libraries;
12
use Koha::Libraries;
13
13
Lines 33-39 subtest 'generate_subfield_form default value' => sub { Link Here
33
        },
33
        },
34
    );
34
    );
35
35
36
    my $today = DateTime->now->ymd;
36
    my $today = dt_from_string()->ymd;
37
    is($subfield->{marc_value}->{value}, "The date is $today and user is superlibrarian");
37
    is($subfield->{marc_value}->{value}, "The date is $today and user is superlibrarian");
38
};
38
};
39
39
40
- 

Return to bug 32484