Bug 29958: Regression tests
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> (cherry picked from commit3684a53dc3) Signed-off-by: Lucas Gass <lucas@bywatersolutions.com> (cherry picked from commit91c4d41115) Signed-off-by: Arthur Suzuki <arthur.suzuki@biblibre.com> (cherry picked from commit35643f28f9) Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>
This commit is contained in:
parent
5265b8a92c
commit
65494643fa
|
|
@ -19,7 +19,7 @@
|
|||
|
||||
use Modern::Perl;
|
||||
|
||||
use Test::More tests => 9;
|
||||
use Test::More tests => 10;
|
||||
use Test::Exception;
|
||||
|
||||
use C4::Biblio;
|
||||
|
|
@ -816,3 +816,32 @@ subtest 'get_transfers' => sub {
|
|||
|
||||
$schema->storage->txn_rollback;
|
||||
};
|
||||
|
||||
subtest 'store() tests' => sub {
|
||||
|
||||
plan tests => 1;
|
||||
|
||||
subtest 'dateaccessioned handling' => sub {
|
||||
|
||||
plan tests => 3;
|
||||
|
||||
$schema->storage->txn_begin;
|
||||
|
||||
my $item = $builder->build_sample_item;
|
||||
|
||||
ok( defined $item->dateaccessioned, 'dateaccessioned is set' );
|
||||
|
||||
# reset dateaccessioned on the DB
|
||||
$schema->resultset('Item')->find({ itemnumber => $item->id })->update({ dateaccessioned => undef });
|
||||
$item->discard_changes;
|
||||
|
||||
ok( !defined $item->dateaccessioned );
|
||||
|
||||
# update something
|
||||
$item->replacementprice(100)->store->discard_changes;
|
||||
|
||||
ok( !defined $item->dateaccessioned, 'dateaccessioned not set on update if undefined' );
|
||||
|
||||
$schema->storage->txn_rollback;
|
||||
};
|
||||
};
|
||||
|
|
|
|||
Loading…
Reference in New Issue