view release on metacpan or  search on metacpan

t/002Cache.t  view on Meta::CPAN

######################################################################
# Test suite for Cvs::Trigger
# by Mike Schilli <m@perlmeister.com>
######################################################################

use warnings;
use strict;

use Test::More;
use Log::Log4perl qw(:easy);
use Cvs::Trigger;
use Sysadm::Install qw(:all);
use YAML qw(LoadFile);

my $nof_tests = 20;
plan tests => $nof_tests;

SKIP: {

if(!defined bin_find("cvs")) {
    skip "cvs not installed", $nof_tests;
}

#Log::Log4perl->easy_init($DEBUG);

my $c = Cvs::Temp->new();
$c->init();
$c->module_import();

my $code = $c->test_trigger_code("commitinfo", 1);
my $script = "$c->{bin_dir}/trigger";
blurt $code, $script;
chmod 0755, $script;

my $vcode = $c->test_trigger_code("verifymsg", 1);
my $vscript = "$c->{bin_dir}/vtrigger";
blurt $vcode, $vscript;
chmod 0755, $vscript;

my $commitinfo = "$c->{local_root}/CVSROOT/commitinfo";
chmod 0644, $commitinfo or die "cannot chmod $commitinfo";
blurt "DEFAULT $script", $commitinfo;

my $verifymsg = "$c->{local_root}/CVSROOT/verifymsg";
chmod 0644, $verifymsg or die "cannot chmod $verifymsg";
blurt "DEFAULT $vscript", $verifymsg;

$c->admin_rebuild();

    # Single file
$c->files_commit("m/a/a1.txt");
my $yml = LoadFile("$c->{out_dir}/trigger.yml.1");
is($yml->{files}->[0], "a1.txt", "yml trigger check for single file");
is($yml->{repo_dir}, "$c->{cvsroot}/m/a", "yml trigger check repo_dir");

$yml = LoadFile("$c->{out_dir}/trigger.yml.2");
is($yml->{message}, "m/a/a1.txt-check-in-message\n", 
                    "verifymsg message");
is($yml->{cache}->{"$c->{cvsroot}/m/a"}->[0], "a1.txt", 
                   "cached filename");

    # Multiple files, same dir
$c->files_commit("m/a/a1.txt", "m/a/a2.txt");
$yml = LoadFile("$c->{out_dir}/trigger.yml.3");
is($yml->{files}->[0], "a1.txt", "yml trigger check for mult files (same dir)");
is($yml->{files}->[1], "a2.txt", "yml trigger check for mult files (same dir)");
is($yml->{repo_dir}, "$c->{cvsroot}/m/a", "yml trigger check repo_dir");

$yml = LoadFile("$c->{out_dir}/trigger.yml.4");
is($yml->{message}, "m/a/a1.txt m/a/a2.txt-check-in-message\n", 
                    "verifymsg message");

is($yml->{cache}->{"$c->{cvsroot}/m/a"}->[0], "a1.txt", 
                   "cached filename");
is($yml->{cache}->{"$c->{cvsroot}/m/a"}->[1], "a2.txt", 
                   "cached filename");

    # Multiple files, diff dirs
$c->files_commit("m/a/a1.txt", "m/a/b/b.txt");

$yml = LoadFile("$c->{out_dir}/trigger.yml.5");
is($yml->{files}->[0], "a1.txt", 
                       "yml trigger check for mult files (diff dir)");
is(scalar @{$yml->{files}}, 1, "yml trigger check for mult files (diff dir)");
is($yml->{repo_dir}, "$c->{cvsroot}/m/a", "yml trigger check repo_dir");

$yml = LoadFile("$c->{out_dir}/trigger.yml.6");
is($yml->{files}->[0], "b.txt", 
                       "yml trigger check for mult files (diff dir)");
is(scalar @{$yml->{files}}, 1, "yml trigger check for mult files (diff dir)");
is($yml->{repo_dir}, "$c->{cvsroot}/m/a/b", "yml trigger check repo_dir");


   # commitinfo logfile
$yml = LoadFile("$c->{out_dir}/trigger.yml.7");
is($yml->{message}, "m/a/a1.txt m/a/b/b.txt-check-in-message\n", 
                    "verifymsg message");

is($yml->{cache}->{"$c->{cvsroot}/m/a"}->[0], "a1.txt", 
                   "cached filename");
   # commitinfo logfile
$yml = LoadFile("$c->{out_dir}/trigger.yml.8");
is($yml->{message}, "m/a/a1.txt m/a/b/b.txt-check-in-message\n", 
                    "verifymsg message");