61addlabels.t #1

#!/usr/local/bin/perl -w

=head1 NAME

addlabels.t - test VCP::Filter::addlabels

=cut

use strict ;

use Carp ;
use File::Spec ;
use Test ;
use VCP::TestUtils ;

## These next few are for in vitro testing
use VCP::Debug qw( :debug );
use VCP::Filter::addlabels;
use VCP::Rev;

enable_debug( split /,/, $ENV{VCPDEBUG} ) if defined $ENV{VCPDEBUG} ;

my @vcp = vcp_cmd ;

sub r {
   my ( $name, $rev_id, $change_id, $branch_id ) = split ",", $_[0];

   VCP::Rev->new(
      id        => $_[0],
      name      => $name,
      rev_id    => $rev_id,
      change_id => $change_id,
      branch_id => $branch_id,
   );
}

my $sub;

my $r_out;

# HACK
sub VCP::Filter::addlabels::dest {
    return "main";
}

sub handle_rev {
    my $self = shift;
    my ( $rev ) = @_;
    $r_out = join ",", $rev->labels;
}

sub t {
    return skip "compilation failed", 1 unless $sub;

    my ( $expr, $expected ) = @_;

    $r_out = undef;

    $sub->( r $expr );

    @_ = ( $r_out, $expected );
    goto &ok;
}

my @tests = (
## In vitro tests
sub {
   $sub = VCP::Filter::addlabels->_compile_label_add_routine(
      'rev_$rev_id', 'change_$change_id', 'branch_$branch_id'
   );
   ok defined $sub || $@, 1;
},

sub { t "a,r,c,b",  "branch_b,change_c,rev_r" },
sub { t "a,r,c",    "change_c,rev_r" },

### In vivo tests
#sub {
#  eval {
#     my $out ;
#     my $infile = "t/test-revml-in-0-no-big-files.revml";
#     ## $in and $out allow us to avoide execing diff most of the time.
#     run [ @vcp, "vcp:-" ], \<<'END_VCP', \$out;
#Source: t/test-revml-in-0-no-big-files.revml
#
#Destination: - --sort-by=name,rev_id
#
#Map:
#END_VCP
#
#     my $in = slurp $infile;
#     assert_eq $infile, $in, $out ;
#  } ;
#  ok $@ || '', '', 'diff' ;
#},
#
#sub {
#  eval {
#     my $out ;
#     my $infile = "t/test-revml-in-0-no-big-files.revml";
#     ## $in and $out allow us to avoide execing diff most of the time.
#     run [ @vcp, "vcp:-" ], \<<'END_VCP', \$out;
#Source: t/test-revml-in-0-no-big-files.revml
#
#Destination: - --sort-by=name,rev_id
#
#Map:
#    add/f(1)   hey/a$1b
#    add/f(2)   hey/a${1}b
#    add/f(*)   hey/a${1}b
#END_VCP
#     my $in = slurp $infile;
#
#     $in =~ s{(name>)add/f([^<]*)}{$1hey/a$2b}g;
#
#     assert_eq $infile, $in, $out ;
#  } ;
#  ok $@ || '', '', 'diff' ;
#},

) ;

plan tests => scalar( @tests ) ;

$_->() for @tests ;