view release on metacpan or  search on metacpan

t/08_status.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
use File::Spec::Functions qw(catdir curdir splitdir devnull tmpdir);
use Test::More tests=>5;
use Cvs::Simple;
use Cwd;
use Scalar::Util qw(reftype);

require Cvs_Test;

my($status_ok) = 0;
my(@stat_line);
my($status_callback) = sub {
    my($cmd,$line) = @_;
    return unless ($cmd=~m{\bstatus\b});

    if($line=~m{\A\s+working revision:\s+\d+\.\d+}i) {
        ++$status_ok;
    }
    push @stat_line, $line;
};

my($cvs) = Cvs::Simple->new();
isa_ok($cvs,'Cvs::Simple','ISA Cvs::Simple');

# Set our callbacks.  
$cvs->callback(status   => $status_callback   );

is(reftype($cvs->callback('status')), 'CODE','Callback OK');

SKIP: {
skip(q{Cvs not in $cvs->cvs_bin}, 1 ) unless (-x $cvs->cvs_bin );

my($cwd) = getcwd();

unless((splitdir($cwd))[-1] eq 't') {
    chdir (File::Spec->catdir($cwd, 't'));
    $cwd = catdir($cwd, 't');
}
chdir($cwd) or die "Can\'t chdir to $cwd:$!";

my($testdir) = tmpdir();
my($cvs_bin) = Cvs::Simple::Config::CVS_BIN;
my($devnull) = devnull();
Cvs_Test::cvs_clean($cwd);
Cvs_Test::cvs_make($cwd);

my($repos) = catdir($testdir, 'cvsdir');
$cvs->external($repos);

my($basefile) = 'add_test_01.txt';

$cvs->co('Add');
chdir(catdir($cwd,'Add')) or die $!;

$cvs->status($basefile);
is($status_ok,1);

} # End of skip

{
local($@);
eval{$cvs->add()};
like($@, qr/Syntax:/);
}
{
local($@);
eval{$cvs->add_bin()};
like($@, qr/Syntax:/);
}

exit;
__END__