Lines Matching full:config

17     use_ok ("Config::Perl::V");
20 ok (my $conf = Config::Perl::V::myconfig,	"Read config");
21 ok (exists $conf->{$_},	"Has $_ entry") for qw( build environment config inc );
22 is (lc $conf->{build}{osname}, lc $conf->{config}{osname}, "osname");
25 ok (my $info1 = Config::Perl::V::summary ($conf), "Get a summary for \$conf");
26 ok (my $info2 = Config::Perl::V::summary,         "Get a summary for \$^X");
29 ok (my $sig = Config::Perl::V::signature, "Get signature");
33 ok (my $bad = Config::Perl::V::signature ({ cfg => 0 }), "Signature on invalid data");
35 ok (   $bad = Config::Perl::V::signature ({ config => {} }), "Signature on incomplete data");
37 ok (   $bad = Config::Perl::V::signature ({ config => 0, build => {} }), "Signature on invalid data…
39 ok (   $bad = Config::Perl::V::signature ({ config => {}, build => 0 }), "Signature on invalid data…
44     # gives the same results as the code that calls Config::* routines directly.
45     defined &Config::compile_date or
46 	skip "This perl doesn't provide perl -V in the Config module", 2;
47     eval q{no warnings "redefine"; sub Config::compile_date { return undef }};
48     is (Config::compile_date (), undef, "Successfully overriden compile_date");
49     is_deeply (Config::Perl::V::myconfig, $conf,
50 	"perl -V parsing code produces same result as the Config module");
54 ok ($conf = Config::Perl::V::myconfig ({ env => qr{^CPV_TEST_ENV$} }), "Read config plus ENV");
55 ok (exists $conf->{$_},	"Has $_ entry") for qw( build environment config inc environment );
59 ok ($conf = Config::Perl::V::myconfig ([ env => qr{^CPV_TEST_ENV$} ]), "Read config plus ENV");
60 ok (exists $conf->{$_},	"Has $_ entry") for qw( build environment config inc environment );
64 ok ($conf = Config::Perl::V::myconfig (  env => qr{^CPV_TEST_ENV$}  ), "Read config invalid argumen…
71 ok ($sig = Config::Perl::V::signature, "Get signature (No Digest::MD5)");