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

(-)a/t/db_dependent/Accounts.t (-4 / +31 lines)
Lines 3-16 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 2;
10
9
11
BEGIN {
10
BEGIN {
12
        use_ok('C4::Accounts');
11
        use_ok('C4::Accounts');
13
}
12
}
14
13
15
14
15
my $dbh = C4::Context->dbh;
16
16
17
- 
17
# Start transaction
18
$dbh->{AutoCommit} = 0;
19
$dbh->{RaiseError} = 1;
20
21
$dbh->do(q{
22
INSERT INTO  accountlines (
23
    borrowernumber ,
24
    accountno ,
25
    itemnumber ,
26
    date ,
27
    amount ,
28
    description ,
29
    dispute ,
30
    accounttype ,
31
    amountoutstanding ,
32
    lastincrement ,
33
    timestamp ,
34
    notify_id ,
35
    notify_level ,
36
    note ,
37
    manager_id
38
    )
39
VALUES 
40
    ('1',  '32766', NULL ,  '2013-07-31',  '1.000000', NULL , NULL , NULL ,  '1.000000', NULL ,  '2013-07-31 10:21:01',  '0',  '0', NULL , NULL),
41
    ('1',  '32767', NULL ,  '2013-07-31',  '2.000000', NULL , NULL , NULL ,  '2.000000', NULL ,  '2013-07-31 10:21:01',  '0',  '0', NULL , NULL)
42
});
43
44
ok( GetTotalFines( 1 ) == 3, "GetTotalFines functions correctly" );

Return to bug 7560