#!/usr/local/bin/perl -w =head1 NAME 03source_vss.t - testing of VCP::Source::vss services =cut use strict ; use Carp ; use Test ; use VCP::Source::vss; my $p; my $o; my @options = ( "--repo-id=repo-idfoo", "--db-dir=db-dirfoo", "--cd=cdfoo", # "--V=Vfoo1", # "--V=Vfoo2", ); my @tests = ( sub { $p = VCP::Source::vss->new() ; ok ref $p, 'VCP::Source::vss'; }, 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 | |
---|---|---|---|---|---|
#5 | 4147 | Barrie Slaymaker | - t/03*.t adapted to new help and config file docs API | ||
#4 | 4146 | Barrie Slaymaker | - Spurious \rs removed from test scripts | ||
#3 | 3674 | Barrie Slaymaker | - t/03source_vss.t no longer tests the deleted --cd option | ||
#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 |