.

1 files changed, 27 insertions, 0 deletions

diff --git a/tests/ls/Test.pm b/tests/ls/Test.pm
new file mode 100644
index 000000000..8d5d8d4db
--- /dev/null
+++ b/tests/ls/Test.pm
@@ -0,0 +1,27 @@
+package Test;
+require 5.002;
+use strict;
+
+$Test::input_via_default = {FILE => 0};
+
+my @tv = (
+# test name, options, input, expected output, expected return code
+#
+['q1', '-b', sub{('""""" "', 'b')}, '"""""\\ " b', 0],
+['q2', '-b -Q', sub{('""""" "', 'b')}, '\\"\\"\\"\\"\\"\\ \\" b', 0],
+);
+
+sub test_vector
+{
+  my $t;
+  foreach $t (@tv)
+    {
+      # FIXME: append newline
+      my ($test_name, $flags, $in, $exp, $ret) = @$t;
+
+    }
+
+  return @tv;
+}
+
+1;