Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Tidied

  • Loading branch information...
commit b258ae16ad13c2cfef0fa7d9f49ade0b54fdf20d 1 parent bdcf54c
@AndyA AndyA authored
Showing with 11 additions and 6 deletions.
  1. +1 −1  t/lib/EmptyParser.pm
  2. +8 −4 t/source.t
  3. +2 −1  t/source_handler.t
View
2  t/lib/EmptyParser.pm
@@ -15,7 +15,7 @@ sub _initialize {
sub _set_defaults {
my $self = shift;
- for my $key ( qw( grammar_class result_factory_class ) ) {
+ for my $key (qw( grammar_class result_factory_class )) {
my $default_method = "_default_$key";
$self->$key( $self->$default_method() );
}
View
12 t/source.t
@@ -30,13 +30,17 @@ use_ok('TAP::Parser::Source');
{
my $source = TAP::Parser::Source->new;
isa_ok( $source, 'TAP::Parser::Source', 'new source' );
- can_ok( $source,
- qw( raw meta config merge switches test_args assemble_meta ) );
+ can_ok(
+ $source,
+ qw( raw meta config merge switches test_args assemble_meta )
+ );
is_deeply( $source->config, {}, 'config empty by default' );
$source->config->{Foo} = { bar => 'baz' };
- is_deeply( $source->config_for('Foo'), { bar => 'baz' },
- 'config_for( Foo )' );
+ is_deeply(
+ $source->config_for('Foo'), { bar => 'baz' },
+ 'config_for( Foo )'
+ );
is_deeply(
$source->config_for('TAP::Parser::SourceHandler::Foo'),
{ bar => 'baz' }, 'config_for( ...::SourceHandler::Foo )'
View
3  t/source_handler.t
@@ -427,7 +427,8 @@ sub test_handler {
my $default_vote = $tests->{default_vote} || 0;
my $source = TAP::Parser::Source->new;
is( $class->can_handle($source), $default_vote,
- '... can_handle default vote' );
+ '... can_handle default vote'
+ );
}
foreach my $test ( @{ $tests->{can_handle} } ) {
Please sign in to comment.
Something went wrong with that request. Please try again.