#!/usr/local/bin/perl -w =head1 NAME destp4.t - testing for VCP::Dest::p4 routines (not overal functionality). =cut use strict ; use Carp ; use Test ; require VCP::Dest::p4 ; my $p = "VCP::Dest::p4" ; my @tests = ( sub { ok $p->strip_p4_where( "//a //b /c\n" ), "/c" }, sub { ok $p->strip_p4_where( "//a //b b /c c\n" ), "/c c" }, sub {local$^O="Win32"; ok $p->strip_p4_where( "//a //b b /c c\n" ), "/c c" }, sub {local$^O="Win32"; ok $p->strip_p4_where( "//a //b C: C:/c c\n" ), "C:/c c"}, sub { ok ! defined $p->strip_p4_where( "//a //b C: C:/c c\n" ) ; }, ) ; plan tests => scalar( @tests ) ; $_->() for @tests ;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 701 | Barrie Slaymaker | Fixed VCP::Dest::p4 re-rooting problem, further t/* cleanup | ||
#1 | 669 | Barrie Slaymaker |
0.1 Wed Jul 4 00:27:35 EDT 2001 Fix VCP::Dest::p4 to take the filespec from the p4:<dest> spec and use it as the rev_root. No --rev-root option at this time, not sure if it's needed. Reported by david d zuhn <zoo@bravara.com>. |