kc3-lang/automake/tests/self-check-seq.tap

• Show log

  Commit

• Hash : 5b44ce39
  Author :
  Date : 2012-02-23T13:07:57
  

  tests: quote 'like this', not `like this', as per GCS recommendation
  
  This patch converts the automake testsuite and related files, to
  the use of new quoting format 'like this' or "like this" rather
  than `like this'.
  
  This is done for consistency with the new recommendations in the GNU
  Coding Standards, and, well, because I've come to actually prefer
  the '...' and "..." quoting formats over the `...' one.
  
  * tests/README: Update quoting format throughout.  Remove some
  "excessive" use of quoting, and throw in minor rewording where
  appropriate.
  * tests/Makefile.am: Likewise, for comments.
  * tests/CheckListOfTests.am: Likewise.
  * tests/defs-static.in: Likewise.
  * tests/defs: Likewise.
  * tests/trivial-test-driver: Likewise.
  * Many tests/*.tap, tests/*.test and tests/*.sh files: Likewise,
  and for the diagnostic and informational messages as well.
  * tests/gen-testsuite-part: Likewise, and for the generated tests
  as well.
  

Download

• tests/self-check-seq.tap

• #! /bin/sh
  # Copyright (C) 2011-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/>.
  
  # Sanity check for the automake testsuite.
  # Check the 'seq_' subroutine.
  
  . ./defs || Exit 1
  
  plan_ 14
  
  unset stderr_fileno_ || :
  
  check_work ()
  {
    desc=$1 args=$2 exp=$3
    st=0; got=`seq_ $args` || st=$?
    command_ok_ "$desc [exit status = 0]" test $st -eq 0
    command_ok_ "$desc [output]" test x"$exp" = x"$got"
  }
  
  check_work 'one-argument form' '5' "\
  1
  2
  3
  4
  5"
  
  check_work 'two-arguments form' '7 11' "\
  7
  8
  9
  10
  11"
  
  check_work 'three-arguments form (1)' '120 5 135' "\
  120
  125
  130
  135"
  
  check_work 'three-arguments form (1)' '13 4 23' "\
  13
  17
  21"
  
  check_err ()
  {
    desc=$1 args=$2 err=$3
    (seq_ $args) >output || st=$?
    # Protect content emitted on stdout/stderr, to avoid sending to the
    # TAP driver possible "Bail out!" directives generated by 'seq_'.
    # Use 'grep -c' below for the same reason.
    sed 's/^/: /' output
    command_ok_ "$desc [exit status = 99]" test $st -eq 99
    command_ok_ "$desc [error message]" grep -c "seq_: $err" output
  }
  
  check_err 'no argument is an error' '' 'missing argument'
  check_err 'four arguments is an error' '1 1 2 1' 'too many arguments'
  check_err 'six arguments is an error' '1 1 1 1 1 1' 'too many arguments'
  
  :
  

Download