1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
use Module::Build;
my $filename = shift;
my $mb = Module::Build->current();
if ( $mb->feature('rsync_support') and $mb->notes('rsynctests') ) {
my $ssh = '';
if ( $mb->feature('rsyncsshtests') ) {
$ssh = "'rsync-ssh' => 1";
}
open my $FILE, '>', $filename;
print {$FILE} <<"EOF";
require SVN::Notify;
use Test::More;
require "t/coretests.pm";
SKIP: {
my \$SVNNOTIFY = \$ENV{'SVNNOTIFY'} || SVN::Notify->find_exe('svnnotify');
skip "Cannot locate svnnotify binary!", 78
unless defined(\$SVNNOTIFY);
reset_all_tests();
run_tests(\$SVNNOTIFY, 'rsync-host' => 'localhost', $ssh);
reset_all_tests();
run_tests("\$SVNNOTIFY --minimal", 'rsync-host' => 'localhost', $ssh);
}
EOF
close $FILE;
}
|