123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475 |
- #! /bin/sh
- # Copyright (C) 2011-2017 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.
- . test-init.sh
- 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'
- :
|