From: Jim Meyering Date: Fri, 9 Jan 2004 21:49:32 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: COREUTILS-5_1_1~98 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0b4554f2f48451362f37b9594a0a7c470ec44ce8;p=platform%2Fupstream%2Fcoreutils.git *** empty log message *** --- diff --git a/ChangeLog b/ChangeLog index 511f16c..25d2542 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,11 @@ -2004-01-08 Jim Meyering +2004-01-09 Jim Meyering * Version 5.1.1. + * configure.ac: Quote underquoted `jm_DUMMY_1' to avoid new warning. + +2004-01-08 Jim Meyering + * src/stat.c (human_fstype): Use %lx, not %x format for `unsigned long'. From Andreas Schwab. diff --git a/tests/misc/expand b/tests/misc/expand new file mode 100755 index 0000000..8bd63aa --- /dev/null +++ b/tests/misc/expand @@ -0,0 +1,39 @@ +#!/bin/sh +# -*- perl -*- +# Exercise expand. + +: ${PERL=perl} +: ${srcdir=.} + +$PERL -e 1 > /dev/null 2>&1 || { + echo 1>&2 "$0: configure didn't find a usable version of Perl," \ + "so can't run this test" + exit 77 +} + +exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF +#/ +require 5.003; +use strict; + +(my $program_name = $0) =~ s|.*/||; + +$ENV{PROG} = 'expand'; + +# Turn off localization of executable's ouput. +@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3; + +my @Tests = + ( + ['t1', '--tabs=3', {IN=>"a\tb"}, {OUT=>"a b"}], + ['t2', '--tabs=3,6,9', {IN=>"a\tb\tc\td\te"}, {OUT=>"a b c d e"}], + ['i1', '--tabs=3 -i', {IN=>"\ta\tb"}, {OUT=>" a\tb"}], + ); + +my $save_temps = $ENV{DEBUG}; +my $verbose = $ENV{VERBOSE}; + +my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n"; +my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); +exit $fail; +EOF