From ed63af49a22315fce7f49fdba59eca4cf5b2a721 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Tue, 14 Oct 1997 22:14:48 +0000 Subject: Add tests to exercise fraccompare. --- tests/sort/Test.pm | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) (limited to 'tests/sort') diff --git a/tests/sort/Test.pm b/tests/sort/Test.pm index fa120c8c6..b3ffbaadf 100755 --- a/tests/sort/Test.pm +++ b/tests/sort/Test.pm @@ -6,6 +6,23 @@ use strict; my @tv = ( #test options input expected-output expected-return-code # +["n1", '-n', ".01\n0\n", "0\n.01\n", 0], +["n2", '-n', ".02\n.01\n", ".01\n.02\n", 0], +["n3", '-n', ".02\n.00\n", ".00\n.02\n", 0], +["n4", '-n', ".02\n.000\n", ".000\n.02\n", 0], +["n5", '-n', ".021\n.029\n", ".021\n.029\n", 0], + +["n6", '-n', ".02\n.0*\n", ".0*\n.02\n", 0], +["n7", '-n', ".02\n.*\n", ".*\n.02\n", 0], +["n8a", '-s -n -k1,1', ".0a\n.0b\n", ".0a\n.0b\n", 0], +["n8b", '-s -n -k1,1', ".0b\n.0a\n", ".0b\n.0a\n", 0], +["n9a", '-s -n -k1,1', ".000a\n.000b\n", ".000a\n.000b\n", 0], +["n9b", '-s -n -k1,1', ".000b\n.000a\n", ".000b\n.000a\n", 0], +["n10a", '-s -n -k1,1', ".00a\n.000b\n", ".00a\n.000b\n", 0], +["n10b", '-s -n -k1,1', ".00b\n.000a\n", ".00b\n.000a\n", 0], +["n11a", '-s -n -k1,1', ".01a\n.010\n", ".01a\n.010\n", 0], +["n11b", '-s -n -k1,1', ".010\n.01a\n", ".010\n.01a\n", 0], + ["01a", '', "A\nB\nC\n", "A\nB\nC\n", 0], # ["02a", '-c', "A\nB\nC\n", '', 0], @@ -19,9 +36,9 @@ my @tv = ( ["03a", '-k1', "B\nA\n", "A\nB\n", 0], ["03b", '-k1,1', "B\nA\n", "A\nB\n", 0], ["03c", '-k1 -k2', "A b\nA a\n", "A a\nA b\n", 0], -# FIXME: fail with a diagnostic when -k specifies field == 0 +# Fail with a diagnostic when -k specifies field == 0. ["03d", '-k0', "", "", 2], -# FIXME: fail with a diagnostic when -k specifies character == 0 +# Fail with a diagnostic when -k specifies character == 0. ["03e", '-k1.0', "", "", 2], ["03f", '-k1.1,-k0', "", "", 2], # This is ok. @@ -68,7 +85,7 @@ my @tv = ( ["09c", '-n', "2e1\n1e2\n", "1e2\n2e1\n", 0], ["09d", '-k2g', "a 1e2\nb 2e1\n", "b 2e1\na 1e2\n", 0], # -# Bug reported by Roger Peel" +# Bug reported by Roger Peel ["10a", '-t : -k 2.2,2.2', ":ba\n:ab\n", ":ba\n:ab\n", 0], # Equivalent to above, but using obsolescent `+pos -pos' option syntax. ["10b", '-t : +1.1 -1.2', ":ba\n:ab\n", ":ba\n:ab\n", 0], @@ -166,7 +183,6 @@ my @tv = ( "_________U___iob\n_________U__abort\n_________U__abort\n_________U__fprintf\n_________U__free\n_________U__malloc\n_________U__malloc\n_________U__memcpy\n_________U__memset\n_________U_dyld_stub_binding_helper\n", 0], - ); sub test_vector -- cgit v1.2.3-54-g00ecf