|
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 |
- |
|
|