|
Lines 30-41
my $builder = t::lib::TestBuilder->new();
Link Here
|
| 30 |
is( $builder->build(), undef, 'build without arguments returns undef' ); |
30 |
is( $builder->build(), undef, 'build without arguments returns undef' ); |
| 31 |
|
31 |
|
| 32 |
my @sources = $builder->schema->sources; |
32 |
my @sources = $builder->schema->sources; |
| 33 |
my $nb_failure = 0; |
33 |
my @source_in_failure; |
| 34 |
for my $source (@sources) { |
34 |
for my $source (@sources) { |
| 35 |
eval { $builder->build( { source => $source } ); }; |
35 |
eval { $builder->build( { source => $source } ); }; |
| 36 |
$nb_failure++ if ($@); |
36 |
push @source_in_failure, $source if $@; |
|
|
37 |
} |
| 38 |
is( @source_in_failure, 0, 'TestBuilder should be able to create an object for every sources' ); |
| 39 |
if ( @source_in_failure ) { |
| 40 |
diag ("The following sources have not been generated correctly: " . join ', ', @source_in_failure) |
| 37 |
} |
41 |
} |
| 38 |
is( $nb_failure, 0, 'TestBuilder can create a entry for every sources' ); |
|
|
| 39 |
|
42 |
|
| 40 |
my $my_overduerules_transport_type = { |
43 |
my $my_overduerules_transport_type = { |
| 41 |
message_transport_type => { |
44 |
message_transport_type => { |
| 42 |
- |
|
|