my(@no_args) = qw{
   call_anon
   hashref
   power
   persistent
   match
   string
};


my(%tests) = (
   interp => qq( -e 'print "interp ok"'),
   regex => ' "You see, Perl and C are family"',  
   (map	{ $_,"" } @no_args),
);

eval { require URI::URL; };
unless ($@) {
    $tests{'uri-url'} = qq( http://www.perl.com/ host);
}

for (sort keys %tests) {
    my $l = length $_; 
    $max = $l  > $max ? $l : $max;
}
 
for (sort keys %tests) {
    unless (-e $_) {
	print "building $_\n";
	system "$^X build $_";
    }
    print "$_...";
    print "." x ($max - length($_));

    my $test = "$_$tests{$_}";
    if($_ eq "persistent") {
	$test = "echo script.pl | persistent";
    }
    my $output = `$test`;
#    system "$test";
    if(not $output  or -e "core") {
	print "not ok\n";
	warn "$output\n";
	unlink "core";
    }
    else {
	print "ok\n";
    }
}