source/texk/texlive/tests/updmap-cmdline-test.pl

   1 #!/usr/bin/env perl
   2 # $Id: updmap-cmdline-test.pl 30033 2013-04-19 07:07:46Z peter $
   3 # Public domain.  Originally written 2011, Karl Berry.
   4 # Check that updmap can parse various cmdline invocations.
   5
   6 # srcdir = texlive (in the source tree)
   7 BEGIN { chomp ($srcdir = $ENV{"srcdir"} || `cd \`dirname $0\`/.. && pwd`); }
   8 require "$srcdir/../tests/common-test.pl";
   9
  10 exit (&main ());
  11
  12 sub main {
  13   my $ret = &test_run ("$srcdir/linked_scripts/texlive/updmap.pl", "--version");
  14
  15   # we aren't going to fix this in the current updmap.pl.
  16                        # "foo", "--enable Map"
  17                        # "-n", "--quiet",
  18   my $bad = $ret != 0;
  19   return $bad;
  20 }