Introduce TAP tests of man pages for command_subcommand
[openafs.git] / tests / volser / vos-man-t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use File::Basename;
6
7 # Set this to the bare command to test
8 my $command = 'vos';
9 my $builddir = $ENV{BUILD};
10 if (!$builddir) {
11     $builddir = dirname($0) . "/..";
12 }
13 $builddir .= "/..";
14 # Set this to the directory holding $command
15 my $srcdir = "$builddir/src/volser";
16
17 #---------------------------------------------------------------------
18
19 # Keep track of number of tests we ran. We don't know up front.
20 my $testcount = 0;
21
22 use lib "./tests-lib/perl5";
23 use mancheck_utils;
24
25 check_command_binary("$srcdir/$command");
26 my $count = test_command_man_pages($builddir, "$srcdir/$command");
27 done_testing($count);