[src/trunk]: src/tests/usr.bin PR/46155: Miguel Pi?eiro Jr: awk RS handling i...

[christos <christos%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/757e8d7126cb
branches:  trunk
changeset: 777936:757e8d7126cb
user:      christos <christos%NetBSD.org@localhost>
date:      Sat Mar 10 19:08:56 2012 +0000

description:
PR/46155: Miguel Pi?eiro Jr: awk RS handling is broken. Add the test cases
from the PR.

diffstat:

 tests/usr.bin/Makefile     |    4 +-
 tests/usr.bin/awk/Makefile |    9 +
 tests/usr.bin/awk/t_awk.sh |  274 +++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 285 insertions(+), 2 deletions(-)

diffs (truncated from 307 to 300 lines):

diff -r 5405e5bcc523 -r 757e8d7126cb tests/usr.bin/Makefile
--- a/tests/usr.bin/Makefile    Sat Mar 10 18:42:18 2012 +0000
+++ b/tests/usr.bin/Makefile    Sat Mar 10 19:08:56 2012 +0000
@@ -1,10 +1,10 @@
-#      $NetBSD: Makefile,v 1.6 2011/05/30 19:31:19 pgoyette Exp $
+#      $NetBSD: Makefile,v 1.7 2012/03/10 19:08:56 christos Exp $
 #
 
 .include <bsd.own.mk>
 
 TESTSDIR=       ${TESTSBASE}/usr.bin
 
-TESTS_SUBDIRS+= diff mkdep pr rump_server shmif_dumpbus unifdef
+TESTS_SUBDIRS+= awk diff mkdep pr rump_server shmif_dumpbus unifdef
 
 .include <bsd.test.mk>
diff -r 5405e5bcc523 -r 757e8d7126cb tests/usr.bin/awk/Makefile
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/usr.bin/awk/Makefile        Sat Mar 10 19:08:56 2012 +0000
@@ -0,0 +1,9 @@
+# $NetBSD: Makefile,v 1.1 2012/03/10 19:08:56 christos Exp $
+
+.include <bsd.own.mk>
+
+TESTSDIR=      ${TESTSBASE}/usr.bin/awk
+
+TESTS_SH=      t_awk
+
+.include <bsd.test.mk>
diff -r 5405e5bcc523 -r 757e8d7126cb tests/usr.bin/awk/t_awk.sh
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/usr.bin/awk/t_awk.sh        Sat Mar 10 19:08:56 2012 +0000
@@ -0,0 +1,274 @@
+# $NetBSD: t_awk.sh,v 1.1 2012/03/10 19:08:56 christos Exp $
+#
+# Copyright (c) 2012 The NetBSD Foundation, Inc.
+# All rights reserved.
+#
+# This code is derived from software contributed to The NetBSD Foundation
+# by Christos Zoulas
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+# PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+#
+
+awk=awk
+
+atf_test_case single_char_rs
+
+single_char_rs_head() {
+       atf_set "descr" "Test awk(1) with single character RS"
+}
+
+single_char_rs_body() {
+       atf_check \
+               -o "inline:1\n2\n\n3\n\n\n4\n\n" \
+               -x "echo 1a2aa3aaa4 | $awk 1 RS=a"
+}
+
+atf_test_case two_char_rs
+
+two_char_rs_head() {
+       atf_set "descr" "Test awk(1) with two characters RS"
+}
+
+two_char_rs_body() {
+       atf_check \
+               -o "inline:1\n2\n3\n4\n\n" \
+               -x "echo 1ab2ab3ab4 | $awk 1 RS=ab"
+}
+
+atf_test_case single_char_regex_group_rs
+
+single_char_regex_group_rs_head() {
+       atf_set "descr" "Test awk(1) with single character regex group RS"
+}
+
+single_char_regex_group_rs_body() {
+       atf_check \
+               -o "inline:1\n2\n\n3\n\n\n4\n\n" \
+               -x "echo 1a2aa3aaa4 | $awk 1 RS='[a]'"
+}
+
+atf_test_case two_char_regex_group_rs
+
+two_char_regex_group_rs_head() {
+       atf_set "descr" "Test awk(1) with two characters regex group RS"
+}
+
+two_char_regex_group_rs_body() {
+       atf_check \
+               -o "inline:1\n2\n\n3\n\n\n4\n\n" \
+               -x "echo 1a2ab3aba4 | $awk 1 RS='[ab]'"
+}
+
+atf_test_case single_char_regex_star_rs
+
+single_char_regex_star_rs_head() {
+       atf_set "descr" "Test awk(1) with single character regex star RS"
+}
+
+single_char_regex_star_rs_body() {
+       atf_check \
+               -o "inline:1\n2\n3\n4\n\n" \
+               -x "echo 1a2aa3aaa4 | $awk 1 RS='a*'"
+}
+
+atf_test_case two_char_regex_star_rs
+
+two_char_regex_star_rs_head() {
+       atf_set "descr" "Test awk(1) with two characters regex star RS"
+}
+
+two_char_regex_star_rs_body() {
+       atf_check \
+               -o "inline:1\n2\n3\n4\n\n" \
+               -x "echo 1a2aa3aaa4 | $awk 1 RS='aa*'"
+}
+
+atf_test_case regex_two_star_rs
+
+regex_two_star_rs_head() {
+       atf_set "descr" "Test awk(1) with regex two star RS"
+}
+
+regex_two_star_rs_body() {
+       atf_check \
+               -o "inline:1\n2\n3\n4\n\n" \
+               -x "echo 1a2ab3aab4 | $awk 1 RS='aa*b*'"
+}
+
+atf_test_case regex_or_1_rs
+
+regex_or_1_rs_head() {
+       atf_set "descr" "Test awk(1) with regex | case 1 RS"
+}
+
+regex_or_1_rs_body() {
+       atf_check \
+               -o "inline:1a\nc\n\n" \
+               -x "echo 1abc | $awk 1 RS='abcde|b'"
+}
+
+atf_test_case regex_or_2_rs
+
+regex_or_2_rs_head() {
+       atf_set "descr" "Test awk(1) with regex | case 2 RS"
+}
+
+regex_or_2_rs_body() {
+       atf_check \
+               -o "inline:1a\ncdf2\n\n" \
+               -x "echo 1abcdf2 | $awk 1 RS='abcde|b'"
+}
+
+atf_test_case regex_or_3_rs
+
+regex_or_3_rs_head() {
+       atf_set "descr" "Test awk(1) with regex | case 3 RS"
+}
+
+regex_or_3_rs_body() {
+       atf_check \
+               -o "inline:1\n\nf2\n\n" \
+               -x "echo 1abcdebf2 | $awk 1 RS='abcde|b'"
+}
+
+atf_test_case regex_or_4_rs
+
+regex_or_4_rs_head() {
+       atf_set "descr" "Test awk(1) with regex | case 4 RS"
+}
+
+regex_or_4_rs_body() {
+       atf_check \
+               -o "inline:1\nbcdf2\n\n" \
+               -x "echo 1abcdf2 | $awk 1 RS='abcde|a'"
+
+}
+
+atf_test_case regex_caret_1_rs
+
+regex_caret_1_rs_head() {
+       atf_set "descr" "Test awk(1) with regex ^ case 1 RS"
+}
+
+regex_caret_1_rs_body() {
+       atf_check \
+               -o "inline:\n1a2a3a\n\n" \
+               -x "echo a1a2a3a | $awk 1 RS='^a'"
+
+}
+
+atf_test_case regex_caret_2_rs
+
+regex_caret_2_rs_head() {
+       atf_set "descr" "Test awk(1) with regex ^ case 2 RS"
+}
+
+regex_caret_2_rs_body() {
+       atf_check \
+               -o "inline:\n1a2an\n" \
+               -x "echo aaa1a2a | $awk 1 RS='^a'"
+
+}
+
+atf_test_case regex_dollar_1_rs
+
+regex_dollar_1_rs_head() {
+       atf_set "descr" "Test awk(1) with regex $ case 1 RS"
+}
+
+regex_dollar_1_rs_body() {
+       atf_check \
+               -o "inline:a1a2a3a\n\n" \
+               -x "echo a1a2a3a | $awk 1 RS='a$'"
+
+}
+
+atf_test_case regex_dollar_2_rs
+
+regex_dollar_2_rs_head() {
+       atf_set "descr" "Test awk(1) with regex $ case 2 RS"
+}
+
+regex_dollar_2_rs_body() {
+       atf_check \
+               -o "inline:a1a2aaa\n" \
+               -x "echo a1a2aaa | $awk 1 RS='a$'"
+
+}
+
+atf_test_case regex_reallocation_rs
+
+regex_reallocation_rs_head() {
+       atf_set "descr" "Test awk(1) with regex reallocation RS"
+}
+
+regex_reallocation_rs_body() {
+       atf_check \
+               -o "inline:a\na\na\na\na\na\na\na\na\na10000\n\n" \
+               -x "jot -s a 10000 | $awk 'NR>1' RS='999[0-9]'"
+
+}
+
+atf_test_case empty_rs
+
+empty_rs_head() {
+       atf_set "descr" "Test awk(1) with empty RS"
+}
+
+empty_rs_body() {
+       atf_check \
+               -o "inline:foo\n" \
+               -x "echo foo | $awk RS=''"
+
+}
+
+atf_test_case newline_rs
+
+newline_rs_head() {
+       atf_set "descr" "Test awk(1) with newline RS"
+}
+
+newline_rs_body() {
+       atf_check \
+               -o "inline:r1f1:r1f2\nr2f1:r2f2\n" \
+               -x "printf '\n\n\nr1f1\nr1f2\n\nr2f1\nr2f2\n\n\n' | $awk '{$1=$1}1' RS= OFS=:"
+}
+
+atf_init_test_cases() {
+       atf_add_test_case single_char_rs
+       atf_add_test_case two_char_rs
+       atf_add_test_case single_char_regex_group_rs
+       atf_add_test_case two_char_regex_group_rs
+       atf_add_test_case two_char_regex_star_rs
+       atf_add_test_case single_char_regex_star_rs
+       atf_add_test_case regex_two_star_rs
+       atf_add_test_case regex_or_1_rs
+       atf_add_test_case regex_or_2_rs
+       atf_add_test_case regex_or_3_rs
+       atf_add_test_case regex_caret_1_rs