tests/ptserver/pts-man-t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use File::Basename;
   6 use lib "./tests-lib/perl5";
   7 use mancheck_utils;
   8
   9 # Set this to the bare command to test
  10 my $command = 'pts';
  11 my $builddir = $ENV{BUILD};
  12 if (!$builddir) {
  13     $builddir = dirname($0) . "/..";
  14 }
  15 $builddir .= "/..";
  16 # Set this to the directory holding $command
  17 my $srcdir = "$builddir/src/ptserver";
  18
  19 #---------------------------------------------------------------------
  20
  21 my @sub_commands = lookup_sub_commands($srcdir, $command);
  22 plan tests => scalar @sub_commands;
  23
  24 test_command_man_pages($builddir, $command, @sub_commands);
  25