Lines Matching full:source

17 use TAP::Parser::Source;
32   qw( source source.1 source.bat source.pl source.sh source_args.sh source.t
33   source.tap );
38     my $source = TAP::Parser::Source->new;
42     eval { $class->can_handle($source) };
48     eval { $class->make_iterator($source) };
54 # Executable source tests
92                     '-It/lib', '-T', $file{source}
95                 output        => [ '1..1', 'ok 1 - source' ],
98             {   name  => "invalid source->raw",
99                 raw   => "$perl -It/lib $file{source}",
102             {   name  => "non-existent source->raw",
106             {   name        => $file{'source.sh'},
107                 raw         => \$file{'source.sh'},
111                 output        => [ '1..1', 'ok 1 - source.sh' ],
123             {   name        => $file{'source.bat'},
124                 raw         => \$file{'source.bat'},
128                 output        => [ '1..1', 'ok 1 - source.bat' ],
137 # Perl source tests
209             {   name          => $file{source},
210                 raw           => \$file{source},
212                 output        => [ '1..1', 'ok 1 - source' ],
222         my $source = TAP::Parser::Source->new->raw( \$file{source} );
223         $source->assemble_meta;
224         my $iterator = $class->make_iterator($source);
232 # Raw TAP source tests
278 # Text file TAP source tests
301             {   name          => $file{'source.tap'},
302                 raw           => \$file{'source.tap'},
304                 output        => [ '1..1', 'ok 1 - source.tap' ],
307             {   name   => $file{'source.1'},
308                 raw    => \$file{'source.1'},
311                 output        => [ '1..1', 'ok 1 - source.1' ],
320 # IO::Handle TAP source tests
338                 raw           => IO::File->new( $file{'source.tap'} ),
340                 output        => [ '1..1', 'ok 1 - source.tap' ],
361         my $source = TAP::Parser::Source->new;
362         is( $class->can_handle($source), $default_vote,
368         my $source = TAP::Parser::Source->new;
369         $source->raw( $test->{raw} )       if $test->{raw};
370         $source->meta( $test->{meta} )     if $test->{meta};
371         $source->config( $test->{config} ) if $test->{config};
372         $source->assemble_meta             if $test->{assemble_meta};
376         is( $class->can_handle($source), $vote, $name );
389             my $source = TAP::Parser::Source->new;
390             $source->raw( $test->{raw} )             if $test->{raw};
391             $source->test_args( $test->{test_args} ) if $test->{test_args};
392             $source->meta( $test->{meta} )           if $test->{meta};
393             $source->config( $test->{config} )       if $test->{config};
394             $source->assemble_meta if $test->{assemble_meta};
396             my $iterator = eval { $class->make_iterator($source) };