.

1 files changed, 27 insertions, 0 deletions

diff --git a/tests/head/Test.pm b/tests/head/Test.pm
new file mode 100644
index 000000000..729795609
--- /dev/null
+++ b/tests/head/Test.pm
@@ -0,0 +1,27 @@
+package Test;
+require 5.002;
+use strict;
+
+my @tv = (
+# test name, options, input, expected output, expected return code
+#
+['idem-1', '', "", "", 0],
+['idem-2', '', "a", "a\n", 0],
+['idem-3', '', "\n", "\n", 0],
+['idem-4', '', "a\n", "a\n", 0],
+
+);
+
+sub test_vector
+{
+  my $t;
+  foreach $t (@tv)
+    {
+      my ($test_name, $flags, $in, $exp, $ret) = @$t;
+      $Test::input_via{$test_name} = {REDIR => 0, FILE => 0, PIPE => 0}
+    }
+
+  return @tv;
+}
+
+1;