#!/usr/bin/env perl -w
use strict;
use Test::More qw(no_plan);

# by Eric Wilhelm in response to Randal Schwartz pointing out that
# CPAN.pm chokes on the VERSION >... construct
# I dare not mention it here.

use ExtUtils::MakeMaker;
use_ok('Jifty::Everything');

# XXX there may be a more cross-platform and harness-friendly way to say
# this.  Tricky bit is that the harness absolutifies the lib paths or
# plans to chdir() somewhere.

# just look for Jifty.pm
my $dir = $INC{'Jifty.pm'};
$dir =~ s/Jifty\.pm$//;
$dir = quotemeta $dir;  # as MSWin32 has backslashes in the path
my @files = grep({$_ and $_ =~ m/^$dir/} map({$INC{$_}} grep(/^Jifty\//, keys(%INC))));
ok(scalar(@files));

foreach my $file (@files) {
    # Gah! parse_version complains on stderr!
    my ($e, @a) = error_catch(sub {MM->parse_version($file)});
    ok(($e || '') eq '', $file) or warn "$e ";
}

# runs subroutine reference, looking for error message $look in STDERR
# and runs tests based on $name
#   ($errs, @ans) = error_catch(sub {$this->test()});
#
sub error_catch {
    my ($sub) = @_;
    my $TO_ERR;
    open($TO_ERR, '<&STDERR');
    close(STDERR);
    my $catch;
    open(STDERR, '>', \$catch);
    my @ans = $sub->();
    open(STDERR, ">&", $TO_ERR);
    close($TO_ERR);
    return($catch, @ans);
} # end subroutine error_catch definition
########################################################################