|
Lines 383-393
subtest 'build_object() tests' => sub {
Link Here
|
| 383 |
$module =~ s|^.*/(Koha.*)\.pm$|$1|; |
383 |
$module =~ s|^.*/(Koha.*)\.pm$|$1|; |
| 384 |
$module =~ s|/|::|g; |
384 |
$module =~ s|/|::|g; |
| 385 |
next if $module eq 'Koha::Objects'; |
385 |
next if $module eq 'Koha::Objects'; |
| 386 |
eval "require $module";; |
386 |
eval "require $module"; |
| 387 |
my $object = $builder->build_object( { class => $module } ); |
387 |
my $object = $builder->build_object( { class => $module } ); |
| 388 |
is( ref($object), $module->object_class, "Testing $module" ); |
388 |
is( ref($object), $module->object_class, "Testing $module" ); |
| 389 |
eval {$object->get_from_storage}; |
389 |
eval {$object->get_from_storage}; |
| 390 |
is( $@, '', "Module $module should have koha_object[s]_class method if needed" ); |
390 |
is( $@, '', "Module $module should have koha_object[s]_class method if needed" ); |
|
|
391 |
|
| 392 |
# Testing koha_object_class and koha_objects_class |
| 393 |
my $object_class = Koha::Object::_get_object_class($object->_result->result_class); |
| 394 |
eval "require $object_class"; |
| 395 |
is( $@, '', "Module $object_class should be defined"); |
| 396 |
my $objects_class = Koha::Objects::_get_objects_class($object->_result->result_class); |
| 397 |
eval "require $objects_class"; |
| 398 |
is( $@, '', "Module $objects_class should be defined"); |
| 391 |
} |
399 |
} |
| 392 |
}; |
400 |
}; |
| 393 |
|
401 |
|
| 394 |
- |
|
|