From df2e98367790ea4f755a5da479e7b136465bff08 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sat, 7 Mar 2009 20:41:00 +0100 Subject: tests: ls -v: exercise the bug fixed by gnulib's new filevercmp * tests/misc/ls-misc (version-sort): New test. (mk_file): New function. Reported by Josh Triplett in . Details in http://thread.gmane.org/gmane.comp.lib.gnulib.bugs/16902 * NEWS (Bug fixes): Mention it. --- tests/misc/ls-misc | 25 +++++++++++++++++++++---- 1 file changed, 21 insertions(+), 4 deletions(-) (limited to 'tests/misc/ls-misc') diff --git a/tests/misc/ls-misc b/tests/misc/ls-misc index 5a93b510c..b58949e34 100755 --- a/tests/misc/ls-misc +++ b/tests/misc/ls-misc @@ -1,6 +1,6 @@ #!/usr/bin/perl -# Copyright (C) 1998, 2000-2008 Free Software Foundation, Inc. +# Copyright (C) 1998, 2000-2009 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 @@ -64,12 +64,20 @@ sub setuid_setup() . "so can't run this test\n"), exit 77; } +sub mk_file(@) +{ + foreach my $f (@_) + { + open (F, '>', $f) && close F + or die "creating $f: $!\n"; + } +} + sub mkdir_d {mkdir 'd',0755 or die "d: $!\n"} sub rmdir_d {rmdir 'd' or die "d: $!\n"} my $mkdir = {PRE => sub {mkdir_d}}; my $rmdir = {POST => sub {rmdir_d}}; -my $mkdir_reg = {PRE => sub {mkdir_d; open (FH, '>d/f') && close FH - or die "d/f: $!\n" }}; +my $mkdir_reg = {PRE => sub {mkdir_d; mk_file 'd/f' }}; my $rmdir_reg = {POST => sub {unlink 'd/f' or die "d/f: $!\n"; rmdir 'd' or die "d: $!\n"}}; @@ -100,10 +108,12 @@ my $rmdir_d_slink = {POST => sub {unlink 'd/s' or die "d/s: $!\n"; sub make_j_d () { mkdir 'j', 0700 or die "creating j: $!\n"; - (open F, '>j/d') && close F or die "creating j/d: $!\n"; + mk_file 'j/d'; chmod 0555, 'j/d' or die "making j/d executable: $!\n"; } +my @v1 = qw(0 9 A Z a z); +my @v_files = ((map { ".$_" } @v1), @v1); my $exe_in_subdir = {PRE => sub { make_j_d (); push_ls_colors('ex=01;32') }}; my $remove_j = {POST => sub {unlink 'j/d' or die "j/d: $!\n"; rmdir 'j' or die "j: $!\n"; @@ -207,6 +217,13 @@ my @Tests = # For 5.97 and earlier, --file-type acted like --indicator-style=slash. ['file-type', '--file-type d', {OUT => "s@\n"}, $mkdir_d_slink, $rmdir_d_slink], + + # 7.1 had a regression in how -v -a ordered some files + ['version-sort', '-v -A ' . join (' ', @v_files), + {OUT => join ("\n", @v_files) . "\n"}, + {PRE => sub { mk_file @v_files }}, + {POST => sub { unlink @v_files }}, + ], ); # Start with an unset LS_COLORS environment variable. -- cgit v1.2.3-54-g00ecf