Lines 30-36
use_ok('Koha::Illrequestattributes');
Link Here
|
30 |
|
30 |
|
31 |
subtest 'Basic object tests' => sub { |
31 |
subtest 'Basic object tests' => sub { |
32 |
|
32 |
|
33 |
plan tests => 5; |
33 |
plan tests => 6; |
34 |
|
34 |
|
35 |
$schema->storage->txn_begin; |
35 |
$schema->storage->txn_begin; |
36 |
|
36 |
|
Lines 42-53
subtest 'Basic object tests' => sub {
Link Here
|
42 |
|
42 |
|
43 |
my $illrqattr_obj = Koha::Illrequestattributes->find( |
43 |
my $illrqattr_obj = Koha::Illrequestattributes->find( |
44 |
$illrqattr->{illrequest_id}, |
44 |
$illrqattr->{illrequest_id}, |
|
|
45 |
$illrqattr->{backend}, |
45 |
$illrqattr->{type} |
46 |
$illrqattr->{type} |
46 |
); |
47 |
); |
47 |
isa_ok($illrqattr_obj, 'Koha::Illrequestattribute', |
48 |
isa_ok($illrqattr_obj, 'Koha::Illrequestattribute', |
48 |
"Correctly create and load an illrequestattribute object."); |
49 |
"Correctly create and load an illrequestattribute object."); |
49 |
is($illrqattr_obj->illrequest_id, $illrqattr->{illrequest_id}, |
50 |
is($illrqattr_obj->illrequest_id, $illrqattr->{illrequest_id}, |
50 |
"Illrequest_id getter works."); |
51 |
"Illrequest_id getter works."); |
|
|
52 |
is($illrqattr_obj->backend, $illrqattr->{backend}, |
53 |
"Backend getter works."); |
51 |
is($illrqattr_obj->type, $illrqattr->{type}, |
54 |
is($illrqattr_obj->type, $illrqattr->{type}, |
52 |
"Type getter works."); |
55 |
"Type getter works."); |
53 |
is($illrqattr_obj->value, $illrqattr->{value}, |
56 |
is($illrqattr_obj->value, $illrqattr->{value}, |
54 |
- |
|
|