From c2bbdeab6d408d497485991d3930db729c16ef3d Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 15 Aug 1998 21:38:08 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/ls-2/T.pm    | 3 +++
 tests/ls-2/quoting | 6 ++++++
 2 files changed, 9 insertions(+)

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"}],
-- 
2.11.4.GIT