Attachment #131120 for bug #30035

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

Lines 2511-2517 sub _numeration { Link Here

(-)a/C4/Serials.pm (-1 / +1 lines)
2511	locale => $locale,	2511	locale => $locale,
2512	);	2512	);
2513	$string = $num_type =~ /^monthname$/	2513	$string = $num_type =~ /^monthname$/
2514	? $dt->strftime("%B")	2514	? $dt->format_cldr( "LLLL" )
2515	: $dt->strftime("%b");	2515	: $dt->strftime("%b");
2516	} elsif ( $num_type =~ /^season$/ ) {	2516	} elsif ( $num_type =~ /^season$/ ) {
2517	my @seasons= qw( Spring Summer Fall Winter );	2517	my @seasons= qw( Spring Summer Fall Winter );




use Koha::Acquisition::Booksellers;
use t::lib::Mocks;
use t::lib::TestBuilder;
use Test::More tests => 50;

BEGIN {
    use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));

    is( $serials->count, 1, "Still only one serial" );
    is( $serials->next->biblionumber, $biblio_2->biblionumber, 'ModSubscription should have updated serial.biblionumber');
};

subtest "_numeration" => sub {

    plan tests => 6;

    my $s = C4::Serials::_numeration(0, 'monthname', 'cat');
    is( $s, "gener" );
    $s = C4::Serials::_numeration(0, 'monthname', 'es');
    is( $s, "enero" );
    $s = C4::Serials::_numeration(0, 'monthname', 'fr');
    is( $s, "janvier" );

    $s = C4::Serials::_numeration(0, 'monthabrv', 'cat');
    is( $s, "de gen." );
    $s = C4::Serials::_numeration(0, 'monthabrv', 'es');
    is( $s, "ene" );
    $s = C4::Serials::_numeration(0, 'monthabrv', 'fr');
    is( $s, "janv." );
};

Return to bug 30035

Lines 16-22 use Koha::DateUtils qw( dt_from_string output_pref ); Link Here

(-)a/t/db_dependent/Serials.t (-2 / +20 lines)
16	use Koha::Acquisition::Booksellers;	16	use Koha::Acquisition::Booksellers;
17	use t::lib::Mocks;	17	use t::lib::Mocks;
18	use t::lib::TestBuilder;	18	use t::lib::TestBuilder;
19	use Test::More tests => 49;	19	use Test::More tests => 50;
20		20
21	BEGIN {	21	BEGIN {
22	use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));	22	use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
Lines 451-453 subtest "NewSubscription\|ModSubscription" => sub { Link Here
451	is( $serials->count, 1, "Still only one serial" );	451	is( $serials->count, 1, "Still only one serial" );
452	is( $serials->next->biblionumber, $biblio_2->biblionumber, 'ModSubscription should have updated serial.biblionumber');	452	is( $serials->next->biblionumber, $biblio_2->biblionumber, 'ModSubscription should have updated serial.biblionumber');
453	};	453	};
454	-	454
		455	subtest "_numeration" => sub {
		456
		457	plan tests => 6;
		458
		459	my $s = C4::Serials::_numeration(0, 'monthname', 'cat');
		460	is( $s, "gener" );
		461	$s = C4::Serials::_numeration(0, 'monthname', 'es');
		462	is( $s, "enero" );
		463	$s = C4::Serials::_numeration(0, 'monthname', 'fr');
		464	is( $s, "janvier" );
		465
		466	$s = C4::Serials::_numeration(0, 'monthabrv', 'cat');
		467	is( $s, "de gen." );
		468	$s = C4::Serials::_numeration(0, 'monthabrv', 'es');
		469	is( $s, "ene" );
		470	$s = C4::Serials::_numeration(0, 'monthabrv', 'fr');
		471	is( $s, "janv." );
		472	};