#!/usr/local/bin/perl -w =head1 NAME identity.t - test VCP::Filter::identity =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::map; use VCP::Rev; enable_debug( split /,/, $ENV{VCPDEBUG} ) if defined $ENV{VCPDEBUG} ; my %seen ; my @perl = ( $^X, map { my $s = $_ ; $s = File::Spec->rel2abs( $_ ) ; "-I$s" ; } grep ! $seen{$_}++, @INC ) ; ## We always run vcp by doing a @perl, vcp, to make sure that vcp runs under ## the same version of perl that we are running under. my $vcp = 'vcp' ; $vcp = "bin/$vcp" if -e "bin/$vcp" ; $vcp = "../bin/$vcp" if -e "../bin/$vcp" ; $vcp = File::Spec->rel2abs( $vcp ) ; my @vcp = ( @perl, $vcp ) ; my $t = -d 't' ? 't/' : '' ; sub r { my ( $name, $branch_id ) = $_[0] =~ /\A(?:(.+?))?(?:<(.*)>)?\z/ or die "Couldn't parse '$_[0]'"; VCP::Rev->new( id => $_[0], name => $name, branch_id => $branch_id, ) } my $sub; my $r_out; # HACK sub VCP::Filter::map::dest { return "main"; } sub handle_rev { my $self = shift; my ( $rev ) = @_; $r_out = join "", $rev->name || "", "<", $rev->branch_id || "", ">"; } sub t { return skip "compilation failed", 1 unless $sub; my ( $expr, $expected ) = @_; $r_out = undef; $sub->( r $expr ); @_ = ( $r_out || "<<deleted>>", $expected || "<<deleted>>" ); goto &ok; } my @tests = ( ## In vitro tests sub { $sub = eval { VCP::Filter::map->_compile_rules( [ "a", "A" ], [ "<b>", "<B>" ], [ "c<d>", "C<D>" ], [ "x*", "<<delete>>" ], [ "xyz", "<<keep>>" ], ) }; ok defined $sub || $@, 1; }, sub { t "a<b>", "a<B>" }, sub { t "a<c>", "A<c>" }, sub { t "c<d>", "C<D>" }, sub { t "c<e>", "c<e>" }, sub { t "e<d>", "e<d>" }, sub { t "xab", undef }, sub { t "xyz", "xyz<>" }, sub { t "Z<Z>", "Z<Z>" }, \&die, ## In vivo tests sub { eval { my $out ; my $infile = "t/test-revml-in-0.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.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.revml"; ## $in and $out allow us to avoide execing diff most of the time. run [ @vcp, "vcp:-" ], \<<'END_VCP', \$out; Source: null: #t/test-revml-in-0.revml Destination: - --sort-by=name,rev_id Map: add/f(*) hey/a${1}b add/f(1) hey/a$1b add/f(2) hey/a${1}b END_VCP exit; my $in = slurp $infile; $in =~ s{(name>)add/f([^<]*)}{$1hey/a$2b}g; assert_eq $infile, $in, $out ; } ; ok $@ || '', '', 'diff' ; }, ) ; plan tests => scalar( @tests ) ; unless ( -e $vcp ) { print STDERR "# '$vcp' not found\n" ; skip( 1, '' ) for @tests ; exit ; } $_->() for @tests ;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#16 | 5404 | Barrie Slaymaker |
- SVN support added - Makefile gives clearer notices about missing optional prereqs. - VCP::Filter::labelmap and VCP::Filter::map: <<skip>> replaces deprecated <<delete>> to be clearer that no revisions are deleted from either repository but some just are skipped and not inserted. - VCP::Filter::map: support added for SVN-like branch labels - VCP::Source: support added for ISO8601 timestamps emitted by SVN. |
||
#15 | 4486 | Barrie Slaymaker | - 61map.t adapted to skip_rev() logging code | ||
#14 | 4481 | Barrie Slaymaker | - VCP::Filter::map calls skip_rev when deleting a rev (spotted by clkao) | ||
#13 | 3155 | Barrie Slaymaker |
Convert to logging using VCP::Logger to reduce stdout/err spew. Simplify & speed up debugging quite a bit. Provide more verbose information in logs. Print to STDERR progress reports to keep users from wondering what's going on. Breaks test; halfway through upgrading run3() to an inline function for speed and for VCP specific features. |
||
#12 | 3115 | Barrie Slaymaker |
Move sorting function to the new VCP::Filter::sort; it's for testing and reporting only and the code was bloating VCP::Dest and limiting VCP::Rev and VCP::Dest optimizations. Breaks test suite in minor way. |
||
#11 | 3091 | Barrie Slaymaker |
Factor out rules list parsing; it's useful elsewhere and should not have been copy & edited in to two files in the first place. |
||
#10 | 3016 | Barrie Slaymaker | and fix test suite breakage due to last change | ||
#9 | 2743 | John Fetkovich |
Add fields to vcp: source_name, source_filebranch_id, source_branch_id, source_rev_id, source_change_id 1. Alter revml.dtd to include the fields 2. Alter bin/gentrevml to emit legal RevML 3. Extend VCP::Rev to have the fields 4. Extend VCP::{Source,Dest}::revml to read/write the fields (VCP::Dest::revml should die() if VCP tries to emit illegal RevML) 5. Extend VCP::{Source,Dest}::{cvs,p4} to read the fields 7. Get all tests through t/91*.t to pass except those that rely on ch_4 labels |
||
#8 | 2694 | Barrie Slaymaker | Remove spurious variable | ||
#7 | 2693 | Barrie Slaymaker | Fix typoe. | ||
#6 | 2371 | John Fetkovich | Modified to use vcp_cmd from VCP::TestUtils. | ||
#5 | 2317 | Barrie Slaymaker | Get map working on revml->revml | ||
#4 | 2316 | Barrie Slaymaker | intermediate checkin | ||
#3 | 2315 | Barrie Slaymaker | update docs, implement a bit more mapping code | ||
#2 | 2307 | Barrie Slaymaker | get VCP::Filter::map working, update docs | ||
#1 | 2304 | Barrie Slaymaker | VCP::Filter::map docs and infrastructure |