#!/usr/local/bin/perl -w =head1 NAME 03dest_p4.t - testing of VCP::Dest::p4 services =cut use strict ; use Carp ; use Test ; use VCP::Dest::p4; my $p; my $o; my @options = ( "--repo-id=repo-idfoo", "--db-dir=db-dirfoo", "--init-p4d", "--change-branch-rev-1", "--delete-p4d-dir", "--run-p4d", ); my @tests = ( sub { $p = VCP::Dest::p4->new() ; ok ref $p, 'VCP::Dest::p4'; }, sub { $o = join( " ", map "'$_'", $p->options_as_strings ); ok length $o; }, ( map { my $option = $_; $option =~ s/=.*//; sub { ok 0 <= index( $o, "'#$option" ), 1, $option; }; } @options ), sub { $p->parse_options( [ @options ] ); $o = join( " ", map "'$_'", $p->options_as_strings ); ok length $o; }, ( map { my $option = $_; sub { ok 0 <= index( $o, "'$option'" ), 1, $option; }; } @options ), sub { $o = $p->options_documentation; ok $o; }, ( map { my $option = $_; $option =~ s/^--?//; $option =~ s/=.*//; sub { ok defined $o->{$option}, 1, "$option documented"; }; } @options ), ) ; plan tests => scalar( @tests ) ; $_->() for @tests ;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#4 | 4147 | Barrie Slaymaker | - t/03*.t adapted to new help and config file docs API | ||
#3 | 3970 | Barrie Slaymaker |
- VCP::Source handles rev queing, uses disk to reduce RAM - Lots of other fixes |
||
#2 | 3489 | Barrie Slaymaker | - Document options emitted to .vcp files. | ||
#1 | 3460 | Barrie Slaymaker |
- Revamp Plugin/Source/Dest hierarchy to allow for reguritating options in to .vcp files |