|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 4; |
22 |
use Test::More tests => 5; |
| 23 |
|
23 |
|
| 24 |
use Koha::Authority::Types; |
24 |
use Koha::Authority::Types; |
| 25 |
use Koha::Cities; |
25 |
use Koha::Cities; |
|
Lines 57-61
subtest 'pager' => sub {
Link Here
|
| 57 |
is( ref($pager), 'DBIx::Class::ResultSet::Pager', 'Koha::Objects->pager returns a valid DBIx::Class object' ); |
57 |
is( ref($pager), 'DBIx::Class::ResultSet::Pager', 'Koha::Objects->pager returns a valid DBIx::Class object' ); |
| 58 |
}; |
58 |
}; |
| 59 |
|
59 |
|
|
|
60 |
subtest 'reset' => sub { |
| 61 |
plan tests => 1; |
| 62 |
my $builder = t::lib::TestBuilder->new; |
| 63 |
my $patrons = Koha::Patrons->search; |
| 64 |
my $first_borrowernumber = $patrons->next->borrowernumber; |
| 65 |
my $second_borrowernumber = $patrons->next->borrowernumber; |
| 66 |
is( $patrons->reset->next->borrowernumber, $first_borrowernumber, 'Koha::Objects->reset should work as expected'); |
| 67 |
}; |
| 68 |
|
| 60 |
$schema->storage->txn_rollback; |
69 |
$schema->storage->txn_rollback; |
| 61 |
1; |
70 |
1; |
| 62 |
- |
|
|