From 2a08e10112a8545ef59633064e0d6e5fd369d9b7 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Wed, 21 Feb 2001 10:49:58 +0000 Subject: Add two tests of existing behavior -- both will have to be changed (soon after release), once ls is fixed. --- tests/ls-2/tests | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'tests/ls-2') diff --git a/tests/ls-2/tests b/tests/ls-2/tests index c7fa35215..d611e7238 100755 --- a/tests/ls-2/tests +++ b/tests/ls-2/tests @@ -22,6 +22,9 @@ use strict; my $mkdir = {PRE => sub {mkdir 'd',0755 or die "d: $!\n"}}; my $rmdir = {POST => sub {rmdir 'd' or die "d: $!\n"}}; +my $slink_d = {PRE => sub {symlink '/', 'd' or die "d: $!\n"}}; +my $unlink_d = {POST => sub {unlink 'd' or die "d: $!\n"}}; + my $q_bell = {IN => {"q\a" => ''}}; my @Tests = ( @@ -51,9 +54,10 @@ my @Tests = $mkdir, $rmdir], # FIXME: change the trailing `/' to be a `@'. - ['slink-dir', '-Fd d', {OUT => "d/\n"}, - {PRE => sub {symlink '/', 'd' or die "d: $!\n"}}, - {POST => sub {unlink 'd' or die "d: $!\n"}} ], + ['slink-dir', '-Fd d', {OUT => "d/\n"}, $slink_d, $unlink_d], + + # FIXME: uncomment the following once ls has been fixed + # ['slink-dir2', '-F d', {OUT => "d\@/\n"}, $slink_d, $unlink_d], ); my $save_temps = $ENV{SAVE_TEMPS}; -- cgit v1.2.3-70-g09d2