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

(-)a/t/db_dependent/TestBuilder_txn.t (-1 / +33 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
use Test::More tests => 1;
5
use t::lib::TestBuilder;
6
7
my $dbh = C4::Context->dbh; # after start transaction of testbuilder
8
$dbh->{AutoCommit} = 0;
9
$dbh->{RaiseError} = 1;
10
$dbh->do("INSERT INTO tags (entry) VALUES (?)",undef,('#$%'.time));
11
my $builder = t::lib::TestBuilder->new();
12
$dbh->do("INSERT INTO tags (entry) VALUES (?)",undef,('#$%'.time));
13
14
# Category with hold fee, two patrons
15
$builder->build({
16
    source => 'Category',
17
    value  => {
18
        categorycode          => 'XYZ1',
19
        reservefee            => 2.5,
20
    },
21
});
22
23
# Actual testing starts here!
24
is(1, 1, 'OK' );
25
$dbh->do("DELETE FROM tags WHERE entry LIKE '#$%'");
26
27
#$builder->DESTROY;
28
undef $builder;
29
print "L29\n";
30
31
$dbh->rollback;
32
33
print "I did reach this point though\n";

Return to bug 14197