1#!/usr/local/bin/perl 2# 3# Verify that the Config.pm values were updated from the 4# actual build process. Quick placeholder tests for now. 5# Eventually need to check that the configuration matches 6# the result of use_ok or some such. 7 8BEGIN { 9 use Test::More tests => 12; # 11 WITH_ keys and 1 use_ok test 10} 11 12BEGIN { 13 use_ok( 'PDL::Config' ); 14} 15 16TODO: { 17 # This is Known_problems bug sf.net #3030998 18 # PDL::Config does not match actual build configuration 19 local $TODO = 'Known_problem sf.net bug #3030998' if ($PDL::Config{SKIP_KNOWN_PROBLEMS} or exists $ENV{SKIP_KNOWN_PROBLEMS} ); 20 21 # generate list of WITH_* keys from PDL::Config 22 my @keys = grep { /^WITH_/ } keys %PDL::Config; 23 foreach my $key ( @keys ) { 24 # there should be no undef values 25 ok( defined $PDL::Config{$key} , "check $key in Config.pm" ); 26 } 27} 28 29# done_testing(); 30