#!/usr/local/bin/perl -w =head1 NAME 03dest_revml.t - testing of VCP::Dest::revml services =cut use strict ; use Carp ; use Test ; use VCP::Dest::revml; my $p; my $o; my @options = ( "--repo-id=repo-idfoo", "--db-dir=db-dirfoo", "--dtd=dtdfoo", "--compress", "--no-indent", ); my @tests = ( sub { $p = VCP::Dest::revml->new() ; ok ref $p, 'VCP::Dest::revml'; }, 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 ), ) ; 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 | 4146 | Barrie Slaymaker | - Spurious \rs removed from test scripts | ||
#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 |