tests/ls/Test.pm

   1 package Test;
   2 require 5.002;
   3 use strict;
   4
   5 $Test::input_via_default = {FILE => 0};
   6
   7 my @tv = (
   8 # test name, options, input, expected output, expected return code
   9 #
  10 ['q1', '-b', sub{('""""" "', 'b')}, '"""""\\ " b', 0],
  11 ['q2', '-b -Q', sub{('""""" "', 'b')}, '\\"\\"\\"\\"\\"\\ \\" b', 0],
  12 );
  13
  14 sub test_vector
  15 {
  16   my $t;
  17   foreach $t (@tv)
  18     {
  19       # FIXME: append newline
  20       my ($test_name, $flags, $in, $exp, $ret) = @$t;
  21
  22     }
  23
  24   return @tv;
  25 }
  26
  27 1;