summaryrefslogtreecommitdiff
path: root/tests/ls-2
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>1998-08-26 15:17:59 +0000
committerJim Meyering <jim@meyering.net>1998-08-26 15:17:59 +0000
commitded46c159bd3d814db3fda22eb0fc8c46a23320e (patch)
tree15c2db8483e165f7896f72e5d9aa972972253931 /tests/ls-2
parent9cc2f64ff3c2579d1dac862ad6fb7bd5201d2294 (diff)
downloadcoreutils-ded46c159bd3d814db3fda22eb0fc8c46a23320e.tar.xz
.
Diffstat (limited to 'tests/ls-2')
-rw-r--r--tests/ls-2/Test.pm31
1 files changed, 0 insertions, 31 deletions
diff --git a/tests/ls-2/Test.pm b/tests/ls-2/Test.pm
deleted file mode 100644
index d98f55875..000000000
--- a/tests/ls-2/Test.pm
+++ /dev/null
@@ -1,31 +0,0 @@
-# -*-perl-*-
-package Test;
-require 5.002;
-use strict;
-
-# Always copy filename arguments from $srcdir to current directory
-# before running ls on them. Otherwise, we'd have to factor out
-# differences in $srcdir from the expected output.
-$Test::copy_fileargs_default = 1;
-
-sub test_vector
-{
- my @tv =
- (
- # test-name options input expected-output expected-return-code
- #
- ['q-', '', {"q\a" => 'contents'}, "q\a\n", 0],
- ['q-N', '-N', {"q\a" => ''}, "q\a\n", 0],
- ['q-q', '-q', {"q\a" => ''}, "q?\n", 0],
- ['q-Q', '-Q', {"q\a" => ''}, "\"q\\a\"\n", 0],
- ['q-qs-lit', '--quoting=literal', {"q\a" => ''}, "q\a\n", 0],
- ['q-qs-sh', '--quoting=shell', {"q\a" => ''}, "q\a\n", 0],
- ['q-qs-sh-a', '--quoting=shell-always', {"q\a" => ''}, "'q\a'\n", 0],
- ['q-qs-c', '--quoting=c', {"q\a" => ''}, "\"q\\a\"\n", 0],
- ['q-qs-esc', '--quoting=escape', {"q\a" => ''}, "q\\a\n", 0],
- );
-
- return @tv;
-}
-
-1;