Attachment #149799 for bug #32484

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





use Modern::Perl;

use DateTime;
use Test::More;

use C4::ClassSource;

use Koha::ClassSources;
use Koha::DateUtils qw( dt_from_string );
use Koha::ItemTypes;
use Koha::Libraries;


        },
    );

    my $today = dt_from_string()->ymd;
    is($subfield->{marc_value}->{value}, "The date is $today and user is superlibrarian");
};

- 

Return to bug 32484

Lines 2-13 Link Here

(-)a/t/db_dependent/Koha/UI/Form/Builder/Biblio.t (-3 / +2 lines)
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	-