|
Lines 37-43
use_ok('Koha::Illrequests');
Link Here
|
| 37 |
|
37 |
|
| 38 |
subtest 'Basic object tests' => sub { |
38 |
subtest 'Basic object tests' => sub { |
| 39 |
|
39 |
|
| 40 |
plan tests => 21; |
40 |
plan tests => 22; |
| 41 |
|
41 |
|
| 42 |
$schema->storage->txn_begin; |
42 |
$schema->storage->txn_begin; |
| 43 |
|
43 |
|
|
Lines 74-79
subtest 'Basic object tests' => sub {
Link Here
|
| 74 |
"Accessurl getter works."); |
74 |
"Accessurl getter works."); |
| 75 |
is($illrq_obj->cost, $illrq->{cost}, |
75 |
is($illrq_obj->cost, $illrq->{cost}, |
| 76 |
"Cost getter works."); |
76 |
"Cost getter works."); |
|
|
77 |
is($illrq_obj->price_paid, $illrq->{price_paid}, |
| 78 |
"Price_paid getter works."); |
| 77 |
is($illrq_obj->notesopac, $illrq->{notesopac}, |
79 |
is($illrq_obj->notesopac, $illrq->{notesopac}, |
| 78 |
"Notesopac getter works."); |
80 |
"Notesopac getter works."); |
| 79 |
is($illrq_obj->notesstaff, $illrq->{notesstaff}, |
81 |
is($illrq_obj->notesstaff, $illrq->{notesstaff}, |
| 80 |
- |
|
|