diff options
Diffstat (limited to 'Perl/t/testdoc.pl')
| -rw-r--r-- | Perl/t/testdoc.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Perl/t/testdoc.pl b/Perl/t/testdoc.pl index 5b82cbd..d054f45 100644 --- a/Perl/t/testdoc.pl +++ b/Perl/t/testdoc.pl @@ -14,6 +14,7 @@ use Tk::Zinc; use strict; + my $mw = MainWindow->new(); # Creating the zinc widget @@ -53,11 +54,15 @@ my $prev_attribute = 0; my %documentedOptions; my %itemAttributeDoc; +die "missing refman.tex path_name as unique argument to this script" unless defined $ARGV[0]; + + &scanDoc ($ARGV[0]); sub scanDoc { my ($filename) = @_; open (DOC, $filename) or die "unable to open " . $filename . "\n"; + print "------- Testing conformity of refman.tex and meta-information from zinc Version $Tk::Zinc::VERSION\n"; while (<DOC>) { if ( /^\\attribute\{(\w+)\}\{(\w+)\}\{(\w+)\}/ ) { $itemAttributeDoc{$1}{-$2}=$3; @@ -94,7 +99,7 @@ sub testAllOptions { foreach my $optionName (sort keys %options) { my ($optionType, $readOnly, $empty, $optionValue) = @{$options{$optionName}}; # $empty is for provision by Zinc - + if (!defined $documentedOptions{$optionName}) { print "E: $optionName ($optionType) of Zinc IS NOT DOCUMENTED!\n"; $options{$optionName} = undef; |