.

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/tail/Test.pm b/tests/tail/Test.pm
new file mode 100755
index 000000000..05feee636
--- /dev/null
+++ b/tests/tail/Test.pm
@@ -0,0 +1,22 @@
+package Test;
+require 5.002;
+use strict;
+
+$Test::input_via_stdin = 1;
+
+my @tv = (
+# test name, options, input, expected output, expected return code
+#
+['1', '+2c', 'abcd', 'bcd', 0],
+['2', '+8c', 'abcd', '', 0],
+['3', '-1c', 'abcd', 'd', 0],
+['4', '-9c', 'abcd', 'abcd', 0],
+['5', '-12c', 'x' . ('y' x 12) . 'z', ('y' x 11) . 'z', 0],
+);
+
+sub test_vector
+{
+  return @tv;
+}
+
+1;