kc3-lang/automake/tests/self-check-is_newest.test

• Show log

  Commit

• Hash : b6a40fa2
  Author :
  Date : 2011-07-23T13:55:20
  

  test defs: function 'is_newest' now works also with directories
  
  * tests/defs (is_newest): Call `find' with the `-prune' option,
  so that it won't descend in the directories (which could cause
  spurious results).
  * tests/self-check-is_newest: Extend accordingly.
  
  From a report by Jim Meyering, see automake bug#9147.
  

Download

• tests/self-check-is_newest.test

• #! /bin/sh
  # Copyright (C) 2011 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 `is_newest' subroutine.
  
  . ./defs || Exit 1
  
  : > a
  $sleep
  : > b
  : > c
  
  stat a b c || : # for debugging
  
  is_newest c a
  is_newest b a
  is_newest a b && Exit 1
  is_newest c b
  is_newest c c
  is_newest c a b c
  
  touch -r c d
  
  stat c d || : # for debugging
  
  is_newest c d
  
  # Should work on directories too, both empty and not-empty.  An older
  # implementation of `is_newest' failed if the first argument was a
  # directory containing files newer than itself (see automake bug#9147).
  mkdir u x
  touch x/foo
  $sleep
  touch x/foo
  $sleep
  mkdir v y
  touch y/foo
  $sleep
  touch y/foo
  
  stat u v x y x/foo y/foo || : # For debugging.
  
  for older in u x; do
    for newer in v y; do
      is_newest $newer $older
      is_newest $older $newer && Exit 1
    done
  done
  
  is_newest x/foo x
  is_newest x x/foo && Exit 1
  
  touch -r x u
  is_newest x u
  is_newest u x
  
  # A couple of mild "stress" tests.
  is_newest y x u v
  is_newest y u x/foo a b c
  
  :
  

Download