diff options
author | Jim Meyering <jim@meyering.net> | 1998-08-15 21:38:08 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1998-08-15 21:38:08 +0000 |
commit | c2bbdeab6d408d497485991d3930db729c16ef3d (patch) | |
tree | 25abec695ceec0e862b84cafc03a7e58db355139 /tests/ls-2 | |
parent | 0d3386199962a2ccc290223292716e3ee8fc2c37 (diff) | |
download | coreutils-c2bbdeab6d408d497485991d3930db729c16ef3d.tar.xz |
*** empty log message ***
Diffstat (limited to 'tests/ls-2')
-rw-r--r-- | tests/ls-2/T.pm | 3 | ||||
-rwxr-xr-x | tests/ls-2/quoting | 6 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm index de602afad..6c8fa0d08 100644 --- a/tests/ls-2/T.pm +++ b/tests/ls-2/T.pm @@ -42,6 +42,9 @@ sub _create_file ($$$$$) return $file; } +# FIXME: cleanup on interrupt +# FIXME: extract `do_1_test' function + # FIXME: having to include $program_name here is an expedient kludge. # Library code doesn't `die'. sub run_tests ($$$$$) diff --git a/tests/ls-2/quoting b/tests/ls-2/quoting index 8bc3dad88..0eb53f5a4 100755 --- a/tests/ls-2/quoting +++ b/tests/ls-2/quoting @@ -5,6 +5,11 @@ use strict; my $program_name; ($program_name = $0) =~ s|.*/||; +# Make sure the tools use the expected locale. +$ENV{LANGUAGE} = 'C'; +$ENV{LC_ALL} = 'C'; +$ENV{LANG} = 'C'; + # A file spec: a scalar or a reference to a single-keyed hash # ================ # 'contents' contents only (file name is derived from test name) @@ -43,6 +48,7 @@ my @Tests = ['q-q', '-q', $q_bell, {OUT => "q?\n"}], ['q-Q', '-Q', $q_bell, {OUT => "\"q\\a\"\n"}], + ['q-lit-q', '--quoting=literal -q', $q_bell, {OUT => "q?\n"}], ['q-qs-lit', '--quoting=literal', $q_bell, {OUT => "q\a\n"}], ['q-qs-sh', '--quoting=shell', $q_bell, {OUT => "q\a\n"}], ['q-qs-sh-a', '--quoting=shell-always', $q_bell, {OUT => "'q\a'\n"}], |