From 1b47ed271434cea6ebdb28f799b49b6c0b40dc99 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sun, 22 Dec 1996 14:09:10 +0000 Subject: Use test_vector, not array @t. --- tests/cut/Test.pm | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) (limited to 'tests/cut/Test.pm') diff --git a/tests/cut/Test.pm b/tests/cut/Test.pm index 7e0a07271..bfbd6da48 100755 --- a/tests/cut/Test.pm +++ b/tests/cut/Test.pm @@ -2,27 +2,26 @@ package Test; require 5.002; use strict; -my $nl = "\n"; -@Test::t = ( +my @tv = ( # test flags input expected output expected return code # -['1', '-d: -f1,3-', "a:b:c$nl", "a:c\n", 0], +['1', '-d: -f1,3-', "a:b:c\n", "a:c\n", 0], ['2', '-d: -f1,3-', "a:b:c\n", "a:c\n", 0], -['3', '-d: -f2-', "a:b:c$nl", "b:c\n", 0], -['4', '-d: -f4', "a:b:c$nl", "\n", 0], +['3', '-d: -f2-', "a:b:c\n", "b:c\n", 0], +['4', '-d: -f4', "a:b:c\n", "\n", 0], ['5', '-d: -f4', "", "", 0], -['6', '-c4', "123$nl", "\n", 0], +['6', '-c4', "123\n", "\n", 0], ['7', '-c4', "123", "\n", 0], ['8', '-c4', "123\n1", "\n\n", 0], ['9', '-c4', "", "", 0], -['a', '-s -d: -f3-', "a:b:c$nl", "c\n", 0], -['b', '-s -d: -f2,3', "a:b:c$nl", "b:c\n", 0], -['c', '-s -d: -f1,3', "a:b:c$nl", "a:c\n", 0], +['a', '-s -d: -f3-', "a:b:c\n", "c\n", 0], +['b', '-s -d: -f2,3', "a:b:c\n", "b:c\n", 0], +['c', '-s -d: -f1,3', "a:b:c\n", "a:c\n", 0], # Trailing colon should not be output -['d', '-s -d: -f1,3', "a:b:c:$nl", "a:c\n", 0], -['e', '-s -d: -f3-', "a:b:c:$nl", "c:\n", 0], -['f', '-s -d: -f3-4', "a:b:c:$nl", "c:\n", 0], -['g', '-s -d: -f3,4', "a:b:c:$nl", "c:\n", 0], +['d', '-s -d: -f1,3', "a:b:c:\n", "a:c\n", 0], +['e', '-s -d: -f3-', "a:b:c:\n", "c:\n", 0], +['f', '-s -d: -f3-4', "a:b:c:\n", "c:\n", 0], +['g', '-s -d: -f3,4', "a:b:c:\n", "c:\n", 0], # Make sure -s suppresses non-delimited lines ['h', '-s -d: -f2,3', "abc\n", "", 0], # @@ -59,4 +58,9 @@ my $nl = "\n"; ['D', '-b', ":\n", "", 1], ); +sub test_vector +{ + return @tv; +} + 1; -- cgit v1.2.3-70-g09d2