|
Lines 21-26
use Test::More tests => 4;
Link Here
|
| 21 |
use CGI; |
21 |
use CGI; |
| 22 |
|
22 |
|
| 23 |
use C4::Context; |
23 |
use C4::Context; |
|
|
24 |
use Koha::Database; |
| 24 |
|
25 |
|
| 25 |
BEGIN { |
26 |
BEGIN { |
| 26 |
use_ok('C4::Auth_with_cas'); |
27 |
use_ok('C4::Auth_with_cas'); |
|
Lines 35-41
BEGIN {
Link Here
|
| 35 |
|
36 |
|
| 36 |
my $dbh = C4::Context->dbh; |
37 |
my $dbh = C4::Context->dbh; |
| 37 |
# Start transaction |
38 |
# Start transaction |
| 38 |
$dbh->{ AutoCommit } = 0; |
39 |
my $database = Koha::Database->new(); |
|
|
40 |
my $schema = $database->schema(); |
| 41 |
$schema->storage->txn_begin(); |
| 39 |
$dbh->{ RaiseError } = 1; |
42 |
$dbh->{ RaiseError } = 1; |
| 40 |
|
43 |
|
| 41 |
C4::Context->set_preference('OPACBaseURL','http://localhost'); |
44 |
C4::Context->set_preference('OPACBaseURL','http://localhost'); |
|
Lines 63-68
is(C4::Auth_with_cas::_url_with_get_params($cgi, 'intranet'),
Link Here
|
| 63 |
|
66 |
|
| 64 |
|
67 |
|
| 65 |
|
68 |
|
| 66 |
$dbh->rollback; |
69 |
$schema->storage->txn_rollback(); |
| 67 |
|
70 |
|
| 68 |
1; |
71 |
1; |
| 69 |
- |
|
|