#!/usr/local/bin/perl -w =head1 NAME 03dest_topo_table.t - testing of VCP::Dest::topo_table services =cut use strict ; use Carp ; use Test ; use VCP::Dest::topo_table; my $p; my $o; my @options = (); my @tests = ( sub { $p = VCP::Dest::topo_table->new() ; ok ref $p, 'VCP::Dest::topo_table'; }, sub { $o = join( " ", map "'$_'", $p->options_as_strings ); ok !length $o; }, sub { $p->parse_options( [] ); $o = join( " ", map "'$_'", $p->options_as_strings ); ok !length $o; }, 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 | 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 |