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