Bug 22051: Unit tests

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Signed-off-by: Charles Farmer <charles.farmer@inLibro.com>

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Tomas Cohen Arazi 2018-12-28 12:15:36 -03:00 committed by Nick Clemens
parent 58cbba3c93
commit 0ce4ccdcee
1 changed files with 18 additions and 1 deletions

View File

@ -242,7 +242,7 @@ subtest "Test update method" => sub {
subtest 'store() tests' => sub {
plan tests => 7;
plan tests => 8;
# Using Koha::ApiKey to test Koha::Object>-store
# Simple object with foreign keys and unique key
@ -306,6 +306,23 @@ subtest 'store() tests' => sub {
my $ret = $api_key->store;
is( ref($ret), 'Koha::ApiKey', 'store() returns the object on success' );
subtest 'Bad value tests' => sub {
plan tests => 1;
my $patron = $builder->build_object({ class => 'Koha::Patrons' });
my $print_error = $schema->storage->dbh->{PrintError};
$schema->storage->dbh->{PrintError} = 0;
throws_ok
{ $patron->lastseen('wrong_value')->store; }
'Koha::Exceptions::Object::BadValue',
'Exception thrown correctly';
$schema->storage->dbh->{PrintError} = $print_error;
};
$schema->storage->txn_rollback;
};