*** empty log message ***

diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm
index de602afadc46c5bbe6b13e6a82cb47030c237928..6c8fa0d08faf4dc8a2c0d74cecc39c4ef7628e04 100644 (file)
--- 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 8bc3dad880f0767177d1f9acb2874df4194ea62b..0eb53f5a49553776b70f7683d75f973c151e36d3 100755 (executable)
--- 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"}],