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 38-62
subtest 'Basic object tests' => sub {
Link Here
|
38 |
|
38 |
|
39 |
my $builder = t::lib::TestBuilder->new; |
39 |
my $builder = t::lib::TestBuilder->new; |
40 |
|
40 |
|
41 |
my $illrqattr = $builder->build({ source => 'Illrequestattribute' }); |
41 |
my $illrqattr = $builder->build( { source => 'Illrequestattribute' } ); |
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( |
48 |
"Correctly create and load an illrequestattribute object."); |
49 |
$illrqattr_obj, 'Koha::Illrequestattribute', |
49 |
is($illrqattr_obj->illrequest_id, $illrqattr->{illrequest_id}, |
50 |
"Correctly create and load an illrequestattribute object." |
50 |
"Illrequest_id getter works."); |
51 |
); |
51 |
is($illrqattr_obj->type, $illrqattr->{type}, |
52 |
is( |
52 |
"Type getter works."); |
53 |
$illrqattr_obj->illrequest_id, $illrqattr->{illrequest_id}, |
53 |
is($illrqattr_obj->value, $illrqattr->{value}, |
54 |
"Illrequest_id getter works." |
54 |
"Value getter works."); |
55 |
); |
|
|
56 |
is( |
57 |
$illrqattr_obj->backend, $illrqattr->{backend}, |
58 |
"Backend getter works." |
59 |
); |
60 |
is( |
61 |
$illrqattr_obj->type, $illrqattr->{type}, |
62 |
"Type getter works." |
63 |
); |
64 |
is( |
65 |
$illrqattr_obj->value, $illrqattr->{value}, |
66 |
"Value getter works." |
67 |
); |
55 |
|
68 |
|
56 |
$illrqattr_obj->delete; |
69 |
$illrqattr_obj->delete; |
57 |
|
70 |
|
58 |
is(Koha::Illrequestattributes->search->count, 0, |
71 |
is( |
59 |
"No attributes found after delete."); |
72 |
Koha::Illrequestattributes->search->count, 0, |
|
|
73 |
"No attributes found after delete." |
74 |
); |
60 |
|
75 |
|
61 |
$schema->storage->txn_rollback; |
76 |
$schema->storage->txn_rollback; |
62 |
}; |
77 |
}; |
63 |
- |
|
|