c:\@Work\Perl\monks\yueli711>perl normalize_tsv_1.pl
#
#  === all test cases are with and without terminating newlines ===
#
# simple cases - no tab separator
ok 1 - ("\n", "\n")
ok 2 - ("", "")
ok 3 - (
#   1
# ,
#   1
# ,
# )
ok 4 - (1, 1)
# simple cases - tab separator(s), no null fields
ok 5 - ("1\t23\n", "1\t23\n")
ok 6 - ("1\t23", "1\t23")
ok 7 - ("1\t23\t456\n", "1\t23\t456\n")
ok 8 - ("1\t23\t456", "1\t23\t456")
# simple cases - only tab(s) (null fields)
ok 9 - ("\t\n", "0\t0\n")
ok 10 - ("\t", "0\t0")
ok 11 - ("\t\t\n", "0\t0\t0\n")
ok 12 - ("\t\t", "0\t0\t0")
ok 13 - ("\t\t\t\n", "0\t0\t0\t0\n")
ok 14 - ("\t\t\t", "0\t0\t0\t0")
# tabs and digits intermixed (leading/trailing null fields)
ok 15 - ("1\t\n", "1\t0\n")
ok 16 - ("1\t", "1\t0")
ok 17 - ("\t1\n", "0\t1\n")
ok 18 - ("\t1", "0\t1")
ok 19 - ("1\t\t\n", "1\t0\t0\n")
ok 20 - ("1\t\t", "1\t0\t0")
ok 21 - ("\t1\t\n", "0\t1\t0\n")
ok 22 - ("\t1\t", "0\t1\t0")
ok 23 - ("\t\t1\n", "0\t0\t1\n")
ok 24 - ("\t\t1", "0\t0\t1")
ok 25 - ("1\t\t\t\n", "1\t0\t0\t0\n")
ok 26 - ("1\t\t\t", "1\t0\t0\t0")
ok 27 - ("\t1\t\t\n", "0\t1\t0\t0\n")
ok 28 - ("\t1\t\t", "0\t1\t0\t0")
ok 29 - ("\t\t1\t\n", "0\t0\t1\t0\n")
ok 30 - ("\t\t1\t", "0\t0\t1\t0")
ok 31 - ("\t\t\t1\n", "0\t0\t0\t1\n")
ok 32 - ("\t\t\t1", "0\t0\t0\t1")
# tabs and digits intermixed (no leading/trailing null fields)
ok 33 - ("12\t34\n", "12\t34\n")
ok 34 - ("12\t34", "12\t34")
ok 35 - ("12\t\t34\n", "12\t0\t34\n")
ok 36 - ("12\t\t34", "12\t0\t34")
ok 37 - ("12\t\t\t34\n", "12\t0\t0\t34\n")
ok 38 - ("12\t\t\t34", "12\t0\t0\t34")
# test cases posted with pm 1220510 (with/without newlines)
ok 39 - (
#   "1\t2\t\t\t2\t\t5\t\t\t\t4\n",
#   "1\t2\t0\t0\t2\t0\t5\t0\t0\t0\t4\n",
# )
ok 40 - (
#   "1\t2\t\t\t2\t\t5\t\t\t\t4",
#   "1\t2\t0\t0\t2\t0\t5\t0\t0\t0\t4",
# )
ok 41 - (
#   "4\t4\t4\t\t\t4\t\t\t\t3\t\n",
#   "4\t4\t4\t0\t0\t4\t0\t0\t0\t3\t0\n",
# )
ok 42 - (
#   "4\t4\t4\t\t\t4\t\t\t\t3\t",
#   "4\t4\t4\t0\t0\t4\t0\t0\t0\t3\t0",
# )
ok 43 - (
#   "\t\t4\t4\t\t\t1\t\t\t\t\n",
#   "0\t0\t4\t4\t0\t0\t1\t0\t0\t0\t0\n",
# )
ok 44 - ("\t\t4\t4\t\t\t1\t\t\t\t", "0\t0\t4\t4\t0\t0\t1\t0\t0\t0\t0")
ok 45 - (
#   "\t1\t5\t6\t\t4\t\t\t\t\t\n",
#   "0\t1\t5\t6\t0\t4\t0\t0\t0\t0\t0\n",
# )
ok 46 - ("\t1\t5\t6\t\t4\t\t\t\t\t", "0\t1\t5\t6\t0\t4\t0\t0\t0\t0\t0")
1..46
ok 47 - no warnings
1..47