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

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

Return to bug 11934