Page Menu
Home
FreeBSD
Search
Configure Global Search
Log In
Files
F166260900
D40564.id123274.diff
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Flag For Later
Award Token
Size
2 KB
Referenced Files
None
Subscribers
None
D40564.id123274.diff
View Options
diff --git a/etc/mtree/BSD.tests.dist b/etc/mtree/BSD.tests.dist
--- a/etc/mtree/BSD.tests.dist
+++ b/etc/mtree/BSD.tests.dist
@@ -902,6 +902,8 @@
usr.bin
apply
..
+ asa
+ ..
awk
bugs-fixed
..
diff --git a/usr.bin/asa/Makefile b/usr.bin/asa/Makefile
--- a/usr.bin/asa/Makefile
+++ b/usr.bin/asa/Makefile
@@ -1,6 +1,7 @@
-# $NetBSD: Makefile,v 1.2 1995/03/25 18:04:51 glass Exp $
-# $FreeBSD$
+.include <src.opts.mk>
PROG= asa
+HAS_TESTS=
+SUBDIR.${MK_TESTS}= tests
.include <bsd.prog.mk>
diff --git a/usr.bin/asa/tests/Makefile b/usr.bin/asa/tests/Makefile
new file mode 100644
--- /dev/null
+++ b/usr.bin/asa/tests/Makefile
@@ -0,0 +1,4 @@
+PACKAGE= tests
+ATF_TESTS_SH= asa_test
+
+.include <bsd.test.mk>
diff --git a/usr.bin/asa/tests/asa_test.sh b/usr.bin/asa/tests/asa_test.sh
new file mode 100644
--- /dev/null
+++ b/usr.bin/asa/tests/asa_test.sh
@@ -0,0 +1,99 @@
+#
+# Copyright (c) 2023 Klara, Inc.
+#
+# SPDX-License-Identifier: BSD-2-Clause
+#
+
+a="The magic words are"
+b="Squeamish Ossifrage"
+
+atf_check_asa() {
+ atf_check -o file:"$2" asa "$1"
+ atf_check -o file:"$2" asa <"$1"
+ atf_check -o file:"$2" asa - <"$1"
+}
+
+atf_test_case space
+space_head() {
+ atf_set descr "First character on line is ' '"
+}
+space_body() {
+ printf " %s\n %s\n" "$a" "$b" >infile
+ printf "%s\n%s\n" "$a" "$b" >outfile
+ atf_check_asa infile outfile
+}
+
+atf_test_case zero
+zero_head() {
+ atf_set descr "First character on line is '0'"
+}
+zero_body() {
+ printf " %s\n0%s\n" "$a" "$b" >infile
+ printf "%s\n\n%s\n" "$a" "$b" >outfile
+ atf_check_asa infile outfile
+}
+
+atf_test_case one
+one_head() {
+ atf_set descr "First character on line is '1'"
+}
+one_body() {
+ printf " %s\n1%s\n" "$a" "$b" >infile
+ printf "%s\f%s\n" "$a" "$b" >outfile
+ atf_check_asa infile outfile
+}
+
+atf_test_case plus
+plus_head() {
+ atf_set descr "First character on line is '+'"
+}
+plus_body() {
+ printf " %s\n+%s\n" "$a" "$b" >infile
+ printf "%s\r%s\n" "$a" "$b" >outfile
+ atf_check_asa infile outfile
+}
+
+atf_test_case plus_top
+plus_top_head() {
+ atf_set descr "First character in input is '+'"
+}
+plus_top_body() {
+ printf "+%s\n+%s\n" "$a" "$b" >infile
+ printf "%s\r%s\n" "$a" "$b" >outfile
+ atf_check_asa infile outfile
+}
+
+atf_test_case stdout
+stdout_head() {
+ atf_set descr "Failure to write to stdout"
+}
+stdout_body() {
+ (
+ trap "" PIPE
+ echo " $a $b" | asa 2>stderr
+ echo $? >result
+ ) | true
+ atf_check -o inline:"1\n" cat result
+ atf_check -o match:"stdout" cat stderr
+}
+
+atf_test_case dashdash
+dashdash_head() {
+ atf_set descr "Use -- to end options"
+}
+dashdash_body() {
+ echo " $a $b" >-infile
+ atf_check -s not-exit -e match:"illegal option" asa -infile
+ atf_check -o inline:"$a $b\n" asa -- -infile
+}
+
+atf_init_test_cases()
+{
+ atf_add_test_case space
+ atf_add_test_case zero
+ atf_add_test_case one
+ atf_add_test_case plus
+ atf_add_test_case plus_top
+ atf_add_test_case stdout
+ atf_add_test_case dashdash
+}
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Thu, Aug 13, 2:40 PM (8 h, 6 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
36651458
Default Alt Text
D40564.id123274.diff (2 KB)
Attached To
Mode
D40564: asa: Add some unit tests.
Attached
Detach File
Event Timeline
Log In to Comment