Lines Matching full:base

9 use ExtUtils::CBuilder::Base;
12 ## in the base class.  Specifically, don't do anything that will send
19 my ( $base, $phony, $cwd );
22 $base = ExtUtils::CBuilder::Base->new();
23 ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
24 isa_ok( $base, 'ExtUtils::CBuilder::Base' );
28   $base = ExtUtils::CBuilder::Base->new(
31   ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
32   isa_ok( $base, 'ExtUtils::CBuilder::Base' );
33   is( $base->{config}->{cc}, $phony,
40     $base = ExtUtils::CBuilder::Base->new();
41     ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
42     isa_ok( $base, 'ExtUtils::CBuilder::Base' );
43     is( $base->{config}->{cc}, $phony,
53         ExtUtils::CBuilder::Base::find_perl_interpreter(),
61     skip "Base doesn't know about override on VMS", 1
71             ExtUtils::CBuilder::Base::find_perl_interpreter(),
79             ExtUtils::CBuilder::Base::find_perl_interpreter(),
90     $base = ExtUtils::CBuilder::Base->new();
91     ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
92     isa_ok( $base, 'ExtUtils::CBuilder::Base' );
93     is( scalar keys %{$base->{files_to_clean}}, 0,
102     $base->add_to_cleanup( $file_for_cleaning );
103     is( scalar keys %{$base->{files_to_clean}}, 1,
106     $base->cleanup();
113 $base = ExtUtils::CBuilder::Base->new(
119 ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
120 isa_ok( $base, 'ExtUtils::CBuilder::Base' );
122     $base->compile(foo => 'bar');
130 $base = ExtUtils::CBuilder::Base->new( quiet => 1 );
131 ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
132 isa_ok( $base, 'ExtUtils::CBuilder::Base' );
139 my $obj_ext = $base->{config}{obj_ext};
140 is( $base->object_file($source_file),
150     my $include_dir = $base->perl_inc();
155 $base = ExtUtils::CBuilder::Base->new( quiet => 1 );
156 ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
157 isa_ok( $base, 'ExtUtils::CBuilder::Base' );
164 my @defines = $base->arg_defines( %args );
174 @defines = $base->arg_defines( %args );
190     { map {$_ => 1} $base->arg_include_dirs( qw| alpha beta gamma | ) };
197 is( '-c', $base->arg_nolink(), "arg_nolink(): got expected value" );
200     { map {$_ => 1} $base->arg_object_file('alpha') };
207 $seen_ref = { map {$_ => 1} $base->arg_share_object_file('alpha') };
208 my %exp = map {$_ => 1} $base->split_like_shell($base->{config}{lddlflags});
219     { map {$_ => 1} $base->arg_exec_file('alpha') };
226 ok(! $base->split_like_shell(undef),
230 my %split_seen = map { $_ => 1 } $base->split_like_shell($array_ref);
252     $rv = $base->perl_src();
260     $rv = $base->perl_src();
268     $rv = $base->perl_src();
278     $rv = $base->perl_src();
317     ExtUtils::CBuilder::Base::_prepare_mksymlists_args(\%args);
342     ExtUtils::CBuilder::Base::_prepare_mksymlists_args(\%args);
365     $base = ExtUtils::CBuilder::Base->new( quiet => 1 );
366     ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
367     isa_ok( $base, 'ExtUtils::CBuilder::Base' );
368     like($base->{config}{$var}, qr/\Q$Config{$var}/,
372     $base = ExtUtils::CBuilder::Base->new( quiet => 1 );
373     ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
374     isa_ok( $base, 'ExtUtils::CBuilder::Base' );
375     like($base->{config}{$var}, qr/\Q$ENV{$VAR}/,
377     like($base->{config}{$var}, qr/\Q$Config{$var}/,