|
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 |
- |
|
|