kc3-lang/automake/t/pm/Wrap.pl

• Show log

  Commit

• Hash : 8a5096d1
  Author :
  Date : 2012-04-06T13:12:25
  

  tests: rename 'tests/' => 't/', '*.test' => '*.sh'
  
  When we (soon) convert the Automake testsuite to a non-recursive
  make setup, we'll have to fix the entries of $(TESTS) to be
  prepended with the subdirectory they are in; this will increase
  the length of $(TESTS), and thus increase the possibility of
  exceeding the command-line length limits on some systems (most
  notably, MinGW/MSYS).  See automake bug#7868 for more information.
  
  Thus we rename the 'tests/' subdirectory to 't/', and each 'x.test'
  script in there to 'x.sh'; this way, the $(TESTS) entry 'foo.test'
  will become 't/foo.sh', which have the same number of characters.
  
  * tests/: Rename ...
  * t/: ... to this.
  * t/*.test: Rename ...
  * t/*.sh: ... to this.
  * t/.gitignore: Removed as obsolete.
  * t/defs: Adjust.
  * t/gen-testsuite-part: Likewise.
  * t/list-of-tests.mk: Likewise.
  * t/ccnoco.sh: Likewise.
  * t/ccnoco3.sh: Likewise.
  * t/self-check-cleanup.tap: Likewise.
  * t/self-check-dir.tap: Likewise.
  * t/self-check-me.tap: Likewise.
  * t/self-check-reexec.tap: Likewise.
  * README: Likewise.
  * bootstrap: Likewise
  * configure.ac: Likewise.
  * Makefile.am: Likewise.
  * .gitignore: Likewise.
  * syntax-check.mk: Likewise.
  
  Signed-off-by: Stefano Lattarini <stefano.lattarini@gmail.com>
  

Download

• t/pm/Wrap.pl

• # Copyright (C) 2003-2012 Free Software Foundation, Inc.
  #
  # This program is free software; you can redistribute it and/or modify
  # it under the terms of the GNU General Public License as published by
  # the Free Software Foundation; either version 2, or (at your option)
  # any later version.
  #
  # This program is distributed in the hope that it will be useful,
  # but WITHOUT ANY WARRANTY; without even the implied warranty of
  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  # GNU General Public License for more details.
  #
  # You should have received a copy of the GNU General Public License
  # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  
  use Automake::Wrap qw/wrap makefile_wrap/;
  
  my $failed = 0;
  
  sub test_wrap
  {
    my ($in, $exp_out) = @_;
  
    my $out = &wrap (@$in);
    if ($out ne $exp_out)
      {
        print STDERR "For: @$in\nGot:\n$out\nInstead of:\n$exp_out\n---\n";
        ++$failed;
      }
  }
  
  sub test_makefile_wrap
  {
    my ($in, $exp_out) = @_;
  
    my $out = &makefile_wrap (@$in);
    if ($out ne $exp_out)
      {
        print STDERR "For: @$in\nGot:\n$out\nInstead of:\n$exp_out\n---\n";
        ++$failed;
      }
  }
  
  my @tests = (
    [["HEAD:", "NEXT:", "CONT", 13, "v" ,"a", "l", "ue", "s", "values"],
  "HEAD:v aCONT
  NEXT:l ueCONT
  NEXT:sCONT
  NEXT:values
  "],
    [["rule: ", "\t", " \\", 20, "dep1" ,"dep2", "dep3", "dep4", "dep5",
      "dep06", "dep07", "dep08"],
  "rule: dep1 dep2 \\
  \tdep3 dep4 \\
  \tdep5 dep06 \\
  \tdep07 \\
  \tdep08
  "],
    [["big header:", "big continuation:", " END", 5, "diag1", "diag2", "diag3"],
  "big header:diag1 END
  big continuation:diag2 END
  big continuation:diag3
  "],
    [["big header:", "cont: ", " END", 16, "word1", "word2"],
  "big header: END
  cont: word1 END
  cont: word2
  "],
    [["big header:", "", " END", 16, "w1", "w2 ", "w3"],
  "big header: END
  w1 w2 w3
  "]);
  
  my @makefile_tests = (
    [["target:"],
  "target:
  "],
    [["target:", "\t"],
  "target:
  "],
    [["target:", "\t", "prereq1", "prereq2"],
  "target: prereq1 prereq2
  "],
    [["target: ", "\t", "this is a long list of prerequisites ending in space",
      "so that there is no need for another space before the backslash",
      "unlike in the second line"],
  "target: this is a long list of prerequisites ending in space \\
  \tso that there is no need for another space before the backslash \\
  \tunlike in the second line
  "]);
  
  test_wrap (@{$_}) foreach @tests;
  test_makefile_wrap (@{$_}) foreach @makefile_tests;
  
  exit $failed;
  
  ### Setup "GNU" style for perl-mode and cperl-mode.
  ## Local Variables:
  ## perl-indent-level: 2
  ## perl-continued-statement-offset: 2
  ## perl-continued-brace-offset: 0
  ## perl-brace-offset: 0
  ## perl-brace-imaginary-offset: 0
  ## perl-label-offset: -2
  ## cperl-indent-level: 2
  ## cperl-brace-offset: 0
  ## cperl-continued-brace-offset: 0
  ## cperl-label-offset: -2
  ## cperl-extra-newline-before-brace: t
  ## cperl-merge-trailing-else: nil
  ## cperl-continued-statement-offset: 2
  ## End:
  

Download