View | Details | Raw Unified | Return to bug 30571
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Z3950Servers.t (-36 / +36 lines)
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
- 

Return to bug 30571