Lines 18-61
Link Here
|
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
|
|
21 |
use Test::More tests => 1; |
21 |
|
22 |
|
22 |
use Test::More tests => 4; |
23 |
use t::lib::TestBuilder; |
23 |
|
24 |
use Koha::Database; |
24 |
use Koha::Z3950Server; |
25 |
use Koha::Z3950Server; |
25 |
use Koha::Z3950Servers; |
26 |
use Koha::Z3950Servers; |
26 |
use Koha::Database; |
|
|
27 |
|
28 |
use t::lib::TestBuilder; |
29 |
|
27 |
|
30 |
my $schema = Koha::Database->new->schema; |
28 |
my $schema = Koha::Database->new->schema; |
31 |
$schema->storage->txn_begin; |
|
|
32 |
|
33 |
my $builder = t::lib::TestBuilder->new; |
29 |
my $builder = t::lib::TestBuilder->new; |
34 |
my $nb_of_z39s = Koha::Z3950Servers->search->count; |
30 |
|
35 |
my $new_z39_1 = Koha::Z3950Server->new({ |
31 |
subtest 'new, find and delete tests' => sub { |
36 |
host => 'my_host1.org', |
32 |
plan tests => 4; |
37 |
port => '32', |
33 |
$schema->storage->txn_begin; |
38 |
db => 'db1', |
34 |
my $nb_of_z39s = Koha::Z3950Servers->search->count; |
39 |
servername => 'my_test_1', |
35 |
my $new_z39_1 = Koha::Z3950Server->new({ |
40 |
servertype => 'zed', |
36 |
host => 'my_host1.org', |
41 |
recordtype => 'biblio', |
37 |
port => '32', |
42 |
})->store; |
38 |
db => 'db1', |
43 |
my $new_z39_2 = Koha::Z3950Server->new({ |
39 |
servername => 'my_test_1', |
44 |
host => 'my_host2.org', |
40 |
servertype => 'zed', |
45 |
port => '64', |
41 |
recordtype => 'biblio', |
46 |
db => 'db2', |
42 |
})->store; |
47 |
servername => 'my_test_2', |
43 |
my $new_z39_2 = Koha::Z3950Server->new({ |
48 |
servertype => 'zed', |
44 |
host => 'my_host2.org', |
49 |
recordtype => 'authority', |
45 |
port => '64', |
50 |
})->store; |
46 |
db => 'db2', |
51 |
|
47 |
servername => 'my_test_2', |
52 |
like( $new_z39_1->id, qr|^\d+$|, 'Adding a new z39 server should have set the id'); |
48 |
servertype => 'zed', |
53 |
is( Koha::Z3950Servers->search->count, $nb_of_z39s + 2, 'The 2 z39 servers should have been added' ); |
49 |
recordtype => 'authority', |
54 |
|
50 |
})->store; |
55 |
my $retrieved_z39_1 = Koha::Z3950Servers->find( $new_z39_1->id ); |
51 |
|
56 |
is( $retrieved_z39_1->servername, $new_z39_1->servername, 'Find a z39 server by id should return the correct z39 server' ); |
52 |
like( $new_z39_1->id, qr|^\d+$|, 'Adding a new z39 server should have set the id'); |
57 |
|
53 |
is( Koha::Z3950Servers->search->count, $nb_of_z39s + 2, 'The 2 z39 servers should have been added' ); |
58 |
$retrieved_z39_1->delete; |
54 |
|
59 |
is( Koha::Z3950Servers->search->count, $nb_of_z39s + 1, 'Delete should have deleted the z39 server' ); |
55 |
my $retrieved_z39_1 = Koha::Z3950Servers->find( $new_z39_1->id ); |
60 |
|
56 |
is( $retrieved_z39_1->servername, $new_z39_1->servername, 'Find a z39 server by id should return the correct z39 server' ); |
61 |
$schema->storage->txn_rollback; |
57 |
|
|
|
58 |
$retrieved_z39_1->delete; |
59 |
is( Koha::Z3950Servers->search->count, $nb_of_z39s + 1, 'Delete should have deleted the z39 server' ); |
60 |
|
61 |
$schema->storage->txn_rollback; |
62 |
}; |
62 |
- |
|
|