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

(-)a/t/db_dependent/Circulation_issuingrules.t (-23 / +33 lines)
Lines 61-73 is_deeply($loanlength, $default, 'none matches'); Link Here
61
61
62
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days'
62
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days'
63
$contextmodule->mock('preference', sub {
63
$contextmodule->mock('preference', sub {
64
    my ($self, $syspref) = @_;
64
			 my ($self, $syspref) = @_;
65
    given ( $syspref ) {
65
			 if ( $syspref eq "ReturnBeforeExpiry") {
66
        when ("ReturnBeforeExpiry"){ return 1; }
66
			     return 1;
67
        when ("useDaysMode"){ return 'Days'; }
67
			 }
68
        default{ return; }
68
			 elsif ( $syspref eq "useDaysMode") {
69
    }
69
			     return 'Days';
70
});
70
			 }
71
			 else {
72
			     return;
73
			 }
74
		     });
71
75
72
my $dateexpiry = '2013-01-01';
76
my $dateexpiry = '2013-01-01';
73
77
Lines 76-95 my $start_date = DateTime->new({year => 2013, month => 2, day => 9}); Link Here
76
$dbh->{mock_add_resultset} = $mock_loan_length;
80
$dbh->{mock_add_resultset} = $mock_loan_length;
77
my $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower );
81
my $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower );
78
is($date, $dateexpiry . 'T23:59:00', 'date expiry');
82
is($date, $dateexpiry . 'T23:59:00', 'date expiry');
79
80
$dbh->{mock_add_resultset} = $mock_loan_length;
83
$dbh->{mock_add_resultset} = $mock_loan_length;
81
$date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 );
84
$date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 );
82
85
83
86
84
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode != 'Days'
87
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode != 'Days'
85
$contextmodule->mock('preference', sub {
88
$contextmodule->mock('preference', sub {
86
    my ($self, $syspref) = @_;
89
			 my ($self, $syspref) = @_;
87
    given ( $syspref ) {
90
			 if ( $syspref eq "ReturnBeforeExpiry") {
88
        when ("ReturnBeforeExpiry"){ return 1; }
91
			     return 1;
89
        when ("useDaysMode"){ return 'noDays'; }
92
			 }
90
        default{ return; }
93
			 elsif ($syspref eq "useDaysMode") {
91
    }
94
			     return 'noDays';
92
});
95
			 }
96
			 else {
97
			     return;
98
			 }
99
		     });
93
100
94
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
101
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
95
$start_date = DateTime->new({year => 2013, month => 2, day => 9});
102
$start_date = DateTime->new({year => 2013, month => 2, day => 9});
Lines 103-115 $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borr Link Here
103
110
104
#Set syspref ReturnBeforeExpiry = 0 and useDaysMode = 'Days'
111
#Set syspref ReturnBeforeExpiry = 0 and useDaysMode = 'Days'
105
$contextmodule->mock('preference', sub {
112
$contextmodule->mock('preference', sub {
106
    my ($self, $syspref) = @_;
113
			 my ($self, $syspref) = @_;
107
    given ( $syspref ) {
114
			 if ( $syspref eq "ReturnBeforeExpiry") {
108
        when ("ReturnBeforeExpiry"){ return 0; }
115
			     return 0;
109
        when ("useDaysMode"){ return 'Days'; }
116
			 }
110
        default{ return; }
117
			 elsif ( $syspref eq "useDaysMode") {
111
    }
118
			     return 'Days';
112
});
119
			 }
120
			 else {
121
			     return;
122
			 }
123
		     });
113
124
114
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
125
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
115
$start_date = DateTime->new({year => 2013, month => 2, day => 9});
126
$start_date = DateTime->new({year => 2013, month => 2, day => 9});
116
- 

Return to bug 11934