Lines Matching full:source

15 use_ok('TAP::Parser::Source');
28     my $source = TAP::Parser::Source->new;
29     isa_ok( $source, 'TAP::Parser::Source', 'new source' );
31         $source,
35     is_deeply( $source->config, {}, 'config empty by default' );
36     $source->config->{Foo} = { bar => 'baz' };
38         $source->config_for('Foo'), { bar => 'baz' },
42         $source->config_for('TAP::Parser::SourceHandler::Foo'),
46     ok( !$source->merge, 'merge not set by default' );
47     $source->merge(1);
48     ok( $source->merge, '... merge now set' );
50     is( $source->switches, undef, 'switches not set by default' );
51     $source->switches( ['-Ilib'] );
52     is_deeply( $source->switches, ['-Ilib'], '... switches now set' );
54     is( $source->test_args, undef, 'test_args not set by default' );
55     $source->test_args( ['foo'] );
56     is_deeply( $source->test_args, ['foo'], '... test_args now set' );
58     $source->raw( \'hello world' );
59     my $meta = $source->assemble_meta;
70     is( $source->meta, $meta, '... and caches meta' );
75     my $source = TAP::Parser::Source->new;
76     $source->raw( [ 'hello', 'world' ] );
77     my $meta = $source->assemble_meta;
90     my $source = TAP::Parser::Source->new;
91     $source->raw( { hello => 'world' } );
92     my $meta = $source->assemble_meta;
104     my $source = TAP::Parser::Source->new;
105     $source->raw( \*__DATA__ );
106     my $meta = $source->assemble_meta;
118     my $source = TAP::Parser::Source->new;
119     $source->raw( bless {}, 'Foo::Bar' );
120     my $meta = $source->assemble_meta;
132     my $test = File::Spec->catfile( $dir, 'source.t' );
133     my $source = TAP::Parser::Source->new;
135     $source->raw( \$test );
136     my $meta = $source->assemble_meta;
163         ct {basename   => 'source.t',
187     my $source = TAP::Parser::Source->new;
189     $source->raw( \$test );
190     my $meta = $source->assemble_meta;
242     my $test    = File::Spec->catfile( $dir, 'source.t' );
244     my $source  = TAP::Parser::Source->new;
253     $source->raw( \$symlink );
254     my $meta = $source->assemble_meta;