View | Details | Raw Unified | Return to bug 18182
Collapse All | Expand All

(-)a/t/db_dependent/TestBuilder.t (-3 / +18 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use Test::More tests => 12;
22
use Test::More tests => 12;
23
use Test::Warn;
23
use Test::Warn;
24
use Data::Dumper qw(Dumper);
24
use File::Basename qw(dirname);
25
25
26
use Koha::Database;
26
use Koha::Database;
27
use Koha::Patrons;
27
use Koha::Patrons;
Lines 344-350 subtest 'Default values' => sub { Link Here
344
344
345
subtest 'build_object() tests' => sub {
345
subtest 'build_object() tests' => sub {
346
346
347
    plan tests => 5;
347
    plan tests => 6;
348
348
349
    $builder = t::lib::TestBuilder->new();
349
    $builder = t::lib::TestBuilder->new();
350
350
Lines 371-376 subtest 'build_object() tests' => sub { Link Here
371
    is( $issuing_rule, undef,
371
    is( $issuing_rule, undef,
372
        'If the class parameter is missing, undef is returned' );
372
        'If the class parameter is missing, undef is returned' );
373
373
374
    subtest 'Test all classes' => sub {
375
        my $Koha_modules_dir = dirname(__FILE__) . '/../../Koha';
376
        my @koha_object_based_modules = `/bin/grep -rl 'sub object_class' $Koha_modules_dir`;
377
        my @source_in_failure;
378
        for my $module_filepath ( @koha_object_based_modules ) {
379
            chomp $module_filepath;
380
            next unless $module_filepath =~ m|\.pm$|;
381
            my $module = $module_filepath;
382
            $module =~ s|^.*/(Koha.*)\.pm$|$1|;
383
            $module =~ s|/|::|g;
384
            next if $module eq 'Koha::Objects';
385
            eval "require $module";;
386
            my $object = $builder->build_object( { class => $module } );
387
            is( ref($object), $module->object_class, "Testing $module" );
388
        }
389
    };
374
};
390
};
375
391
376
$schema->storage->txn_rollback;
392
$schema->storage->txn_rollback;
377
- 

Return to bug 18182