regress: move tests for platform tools to tools-platform


(rillig)

#! /bin/sh
# $NetBSD: awk.test,v 1.1 2020/05/02 07:24:32 rillig Exp $
#

set -e

mydir=`dirname "$0"`
. "${mydir}/tests.subr"

#
# Functions specific for the awk testsuite.
#

# usage: test_assignment <testname> <input> <expected-output>
test_assignment() {
	testcase_start "$1"
	o=`echo "" | awk '{print var}' var="$2"`
	assert_equal "$1" "$3" "${o}"
}

# usage: test_passline <testname> <input>
test_passline() {
	testcase_start "$1"
	o=`awk '{print}' <<EOF
$2
EOF
`
	assert_equal "$1" "$2" "${o}"
}

#
# The actual test.
#

#
# Assignment of variables from the command line. The Solaris
# /usr/bin/awk does not conform to the POSIX specification, but passes
# the right hand side of the assignment uninterpreted. It fails the
# cmd.3 test case. The "for" loop makes sure that awk can handle strings
# of 4096 bytes length.
#
test_assignment "cmd.1" \
	"foo" "foo"
test_assignment "cmd.2" \
	"foo bar baz" "foo bar baz"
test_assignment "cmd.3" \
	"CPPFLAGS=\\\"-Dfoo=bar\\\"" "CPPFLAGS=\"-Dfoo=bar\""
line="a"
for i in 0 1 2 3 4 5 6 7 8 9 10 11 12; do
	test_assignment "cmd.2^${i}" "${line}" "${line}"
	line="${line}${line}"
done

#
# Passing strings from stdin to stdout. awk should be able to handle at
# least 2^12 characters per line.
#
# Solaris 9 /usr/bin/awk: 2559 bytes
# Solaris 9 /usr/bin/nawk: 6144 bytes
#
line="a"
for i in 0 1 2 3 4 5 6 7 8 9 10 11 12; do
	test_passline "line.2^${i}" "${line}"
	line="${line}${line}"
done

#! /bin/sh
# $NetBSD: sed.test,v 1.1 2020/05/02 07:24:32 rillig Exp $
#

set -e

mydir=`dirname "$0"`
. "${mydir}/tests.subr"

#
# Functions specific for the "sed" testsuite.
#

# usage: sed_test <testname> <input> <expected-output> <args...>
sed_test() {
	testname=$1; input=$2; expected=$3; shift 3;

	testcase_start "${testname}"
	output=`sed "$@" <<EOF
$input
EOF
`
	assert_equal "${testname}" "${expected}" "${output}"
}

#
# The actual test.
#

nl="
"

#
# Make sure that sed(1) can handle character classes.
#
sed_test "[[:character classes:]]" \
	"hello${nl}foo bar" \
	"hello" \
	-e "/[[:space:]]/d"

#! /bin/sh
# $NetBSD: sort.test,v 1.1 2020/05/02 07:24:32 rillig Exp $
#

set -e

mydir=`dirname "$0"`
. "${mydir}/tests.subr"

#
# Functions specific for the "sort" testsuite.
#

# usage: sort_test <testname> <input> <expected-output> <args...>
sort_test() {
	testname=$1; input=$2; expected=$3; shift 3;

	testcase_start "${testname}"
	output=`sort "$@" <<EOF
$input
EOF
`
	assert_equal "${testname}" "${expected}" "${output}"
}

#
# The actual test.
#

nl="
"

sort_test "one line" \
	"text line 1" "text line 1"
sort_test "uppercase letters" \
	"A${nl}B${nl}C" "A${nl}B${nl}C"
sort_test "A < C < b" \
	"A${nl}b${nl}C" "A${nl}C${nl}b"

#! /bin/sh
# $NetBSD: tar.test,v 1.1 2020/05/02 07:24:32 rillig Exp $
#

set -e

mydir=`dirname "$0"`
. "${mydir}/tests.subr"

#
# Functions specific for the tar testsuite.
#

# none.

#
# The actual test.
#

# tar must support the -z option.
#
testcase_start "-z"
echo "data" > file
tar cfz archive.tar.gz file

# $NetBSD: tests.subr,v 1.1 2020/05/02 07:24:32 rillig Exp $
#

# usage: testcase_start <testname>
testcase_start() {
	printf "  Running testcase %s\\n" "$1"
}

# usage: assert_equal <testname> <expected> <got>
assert_equal() {
	[ "x$2" = "x$3" ] && return 0
	printf "error: assert_equal failed for \"%s\":\nexpected: %s\nbut got:  %s\n" "$1" "$2" "$3" 1>&2
	return 1
}

#! /bin/sh
# $NetBSD: tr.test,v 1.1 2020/05/02 07:24:32 rillig Exp $
#

set -e

mydir=`dirname "$0"`
. "${mydir}/tests.subr"

#
# Functions specific for the tr testsuite.
#

# usage: tr_test <testname> <input> <expected-output> <args...>
tr_test() {
	testname=$1; input=$2; expected=$3; shift 3;

	testcase_start "${testname}"
	output=`tr "$@" <<EOF
$input
EOF
`
	assert_equal "${testname}" "${expected}" "${output}"
}

#
# The actual test.
#

nl="
"

tr_test "simple" \
	"foo" "baa" "fo" "ba"
tr_test "tolower" \
	"The Great Green Fox" "the great green fox" "A-Z" "a-z"
tr_test "eat-newlines" \
	"foo${nl}bar${nl}" "foobar" -d "\\n"
tr_test "eat-minus" \
	"describe-function" "describefunction" -d "-"
tr_test "eat-minus-d" \
	"describe-function" "escribefunction" -d -- "-d"
tr_test "eat-d-minus" \
	"describe-function" "escribefunction" -d "d-"

s="0123456789abcdef"
s="$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s"
s="$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s"
s="$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s"
f="ffffffffffffffff"
f="$f$f$f$f$f$f$f$f$f$f$f$f$f$f$f$f"
f="$f$f$f$f$f$f$f$f$f$f$f$f$f$f$f$f"

tr_test "65536" \
	"$s" "$f" -d "0-9a-e"