#!/usr/bin/perl 

# Test things needed on the local filesystem

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 5;
use File::Spec::Functions ':ALL';
use File::Flat;

# Create the test directory containing a test file
my $testdir  = catdir('t', 'data');
my $testfile = catfile( $testdir, 'foo', 'testfile' );
File::Flat->write( $testfile, 'This is some content' );
END {
	system( "chmod -R u+w $testdir" );
	File::Flat->remove( $testdir ) if -e $testdir;
}

# Does chmod behave the way we wan't
is( system( "chmod -R a-w $testdir/*" ), 0, 'chmod a-w is supported'  );
is( system( "chmod -R a+rX $testdir" ),  0, 'chmod a+rX is supported' );
is( system( "chmod -R u+w $testdir" ),   0, 'chmod u+w is supported'  );

# Is the CVS client new enough
my @version = `cvs -v`;
chomp @version;
my $ver = $version[1] =~ /\b(1\.[\d\.p]+)/ ? $1 : undef;
ok( $ver, "Found CVS version" );
my @ver = split /\./, $ver;
my $new_enough = ( $ver[0] and $ver[0] >= 1 and $ver[1] and $ver[1] >= 11 );
ok( $new_enough, 'CVS version is new enough' );

exit(0);