view scripts/test/nl.test @ 1100:b50e00c9df4b draft

Promote nl from pending to posix, and add tests.
author Rob Landley <rob@landley.net>
date Sun, 27 Oct 2013 02:50:55 -0500
parents
children
line wrap: on
line source

#!/bin/bash

[ -f testing.sh ] && . testing.sh

#testing "name" "command" "result" "infile" "stdin"

testing "nl" "nl" "     1\tone\n     2\ttwo\n     3\tthree\n" \
  "" "one\ntwo\nthree\n"

testing "nl explicit defaults" "nl -nrn -b a" \
  "     1\tone\n     2\ttwo\n     3\tthree\n" "" "one\ntwo\nthree\n"

# -n ln rn rz

testing "nl -nln" "nl -nln" "1     \tone\n2     \ttwo\n3     \tthree\n" \
  "" "one\ntwo\nthree\n"
testing "nl -nln -w" "nl -nln -w 8" \
  "1       \tone\n2       \ttwo\n3       \tthree\n" "" "one\ntwo\nthree\n"

testing "nl -nrz" "nl -nrz" "000001\tone\n000002\ttwo\n000003\tthree\n" \
  "" "one\ntwo\nthree\n"

testing "nl -nrz -w" "nl -w3 -nrz" "001\tone\n002\ttwo\n003\tthree\n" \
  "" "one\ntwo\nthree\n"


# For non-matching lines the separator is "suppressed" meaning it...
# turns into spaces! And the tab turns into one space, and -d boom turns
# into 4 spaces, but these:
#   nl -s"$(echo -e 'bo\tom')" -bpand README
#   nl -w 3 -bpthe README
# Yeah. And I doubt utf8 fontmetrics are used either.

testing "nl -b t" "nl -b t" "       \n     1\tone\n       \n     2\ttwo\n" \
  "" "\none\n\ntwo\n"
testing "nl -b n" "nl -b n" "       one\n       two\n       three\n" \
  "" "one\ntwo\nthree\n"
testing "nl -sook -b p" "nl -sook -bpoing" \
  "         one\n     1ookboing\n     2ooksproingy\n" \
  "" "one\nboing\nsproingy\n"

testing "nl -v" "nl -v 42" "    42\tone\n    43\ttwo\n    44\tthree\n" \
  "" "one\ntwo\nthree\n"
testing "nl -l" "nl -ba -l2 -w2 - input" \
  " 1\tone\n   \n 2\t\n 3\ttwo\n   \n 4\t\n   \n 5\tthree\n 6\tfour\n   \n 7\t\n   \n 8\tbang\n   \n" \
  "\n\nbang\n\n" "one\n\n\ntwo\n\n\n\nthree\nfour\n\n"
testing "nl no space" "nl -w 1 -v 42" "42\tline\n" "" "line\n"

# Should test for -E but no other implementation seems to have it?
#testing "nl -E" "nl -w2 -sx -Ebp'(one|two)'" " 1x" "one\nand\ntwo\n"