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

(-)a/t/db_dependent/Koha/Acquisition/Booksellers.t (-2 / +34 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::More tests => 5;
21
21
22
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
23
23
Lines 192-194 subtest 'aliases' => sub { Link Here
192
192
193
    $schema->storage->txn_rollback();
193
    $schema->storage->txn_rollback();
194
};
194
};
195
- 
195
196
subtest 'interfaces' => sub {
197
198
    plan tests => 11;
199
200
    $schema->storage->txn_begin();
201
202
    my $vendor = $builder->build_object( { class => 'Koha::Acquisition::Booksellers' } );
203
204
    is( $vendor->interfaces->count, 0, 'Vendor has no interfaces' );
205
206
    $vendor->interfaces( [ { name => 'first interface' }, { name => 'second interface', login => 'one_login' } ] );
207
208
    $vendor = $vendor->get_from_storage;
209
    my $interfaces = $vendor->interfaces;
210
    is( $interfaces->count, 2, '2 interfaces stored' );
211
    is( ref($interfaces), 'Koha::Acquisition::Bookseller::Interfaces', 'Type is correct' );
212
213
    $vendor->interfaces( [ { name => 'first interface', login => 'one_login', password => 'oneP@sswOrd' } ] );
214
    $vendor     = $vendor->get_from_storage;
215
    $interfaces = $vendor->interfaces;
216
    is( $interfaces->count, 1, '1 interface stored' );
217
    my $interface = $interfaces->next;
218
    is( $interface->name,  'first interface', 'name correctly saved' );
219
    is( $interface->login, 'one_login',       'login correctly saved' );
220
    is( $interface->uri,   undef,             'no value is stored as NULL' );
221
    isnt( $interface->password, 'oneP@sswOrd', 'Password is not stored in plain text' );
222
    isnt( $interface->password, '',            'Password is not removed' );
223
    isnt( $interface->password, undef,         'Password is not set to NULL' );
224
    is( $interface->plain_text_password, 'oneP@sswOrd', 'Password can be retrieved using ->plain_text_password' );
225
226
    $schema->storage->txn_rollback();
227
};

Return to bug 33104