Lines 19-27
BEGIN {
Link Here
|
19 |
} |
19 |
} |
20 |
my $success; |
20 |
my $success; |
21 |
|
21 |
|
|
|
22 |
# Make sure we can rollback. |
23 |
my $dbh = C4::Context->dbh; |
24 |
$dbh->{AutoCommit} = 0; |
25 |
$dbh->{RaiseError} = 1; |
26 |
|
22 |
eval { |
27 |
eval { |
23 |
# FIXME: are we sure there is an member number 1? |
28 |
# FIXME: are we sure there is an member number 1? |
24 |
# FIXME: can we remove this log entry somehow? |
|
|
25 |
logaction("MEMBERS","MODIFY",1,"test operation"); |
29 |
logaction("MEMBERS","MODIFY",1,"test operation"); |
26 |
$success = 1; |
30 |
$success = 1; |
27 |
} or do { |
31 |
} or do { |
Lines 57-67
eval {
Link Here
|
57 |
}; |
61 |
}; |
58 |
ok($success, "GetLogs seemed to find ".$success." like our test record in a tighter search"); |
62 |
ok($success, "GetLogs seemed to find ".$success." like our test record in a tighter search"); |
59 |
|
63 |
|
60 |
# Make sure we can rollback. |
|
|
61 |
my $dbh = C4::Context->dbh; |
62 |
$dbh->{AutoCommit} = 0; |
63 |
$dbh->{RaiseError} = 1; |
64 |
|
65 |
# We want numbers to be the same between runs. |
64 |
# We want numbers to be the same between runs. |
66 |
$dbh->do("DELETE FROM action_logs;"); |
65 |
$dbh->do("DELETE FROM action_logs;"); |
67 |
|
66 |
|
68 |
- |
|
|