Changeset 3613 in kBuild for trunk/src/sed/testsuite/distrib.sh

Timestamp:

Sep 19, 2024 12:34:43 AM (7 months ago)

Author:

bird

Message:

src/sed: Merged in changes between 4.1.5 and 4.9 from the vendor branch. (svn merge ^{/vendor/sed/4.1.5} /vendor/sed/current .)

Location:

trunk/src/sed

Files:

• . (modified) (1 prop)
• testsuite/distrib.sh (modified) (4 diffs)

trunk/src/sed/testsuite/distrib.sh

@@ -1 @@
-#! /bin/sh
+#!/bin/sh
+
+# Test runner for the old 'distrib' test
+
+# Copyright (C) 2017-2022 Free Software Foundation, Inc.
+
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+. "${srcdir=.}/testsuite/init.sh"; path_prepend_ ./sed
+print_ver_ sed
+
+#   This is straight out of C News
 #
-#   This is stolen from C News
-# 
-
-
 #
 # All this does is massage the headers so they look like what news
@@ -21 +38 @@
 # in a newsgroup that bears this stamp will not be fed into the
 # matching mailing list.
-
-sed=${1-sed}
-
-$sed -n -e "1{i\\
+cat << \EOF > distrib.sed || framework_failure_
+1i\
 Path: mailnewsgateway
-        }" \
-    -e ":a
+        :a
         /^[Rr]eceived:/b r
         /^[Nn]ewsgroups:/b r
@@ -37 +51 @@
         s/^[Ii]n-[Rr]eply-[Tt]o:/References:/
         /^From:/{
-                s/<\([^@]*\)>\$/<\1@$thissite>/
-                s/^From:[       ][      ]*\(.*\)  *<\(.*\)>\$/From: \2 (\1)/
+                s/<\([^@]*\)>$/<\1@$thissite>/
+                s/^From:[       ][      ]*\(.*\)  *<\(.*\)>$/From: \2 (\1)/
                 }
         s/-[Ii]d:/-ID:/
         s/^[Ss][Uu][Bb][Jj][Ee][Cc][Tt]:[       ]*$/Subject: (none)/
         s/^\([^:]*:\)[   ]*/\1 /
-        /^\$/{i\\
-Newsgroups: alt.buddha.short.fat.guy\\
-Distribution: world\\
-Sender: [email protected]\\
+        /^$/{i\
+Newsgroups: alt.buddha.short.fat.guy\
+Distribution: world\
+Sender: [email protected]\
 Approved: [email protected]
         b e
@@ -61 +75 @@
         p
         n
-        b e"
+        b e
+EOF
+
+
+# The expected output
+cat << \EOF > distrib-exp || framework_failure_
+Path: mailnewsgateway
+From [email protected]  Wed Mar  8 18: 02:42 1995
+From: [email protected] (Jason Molenda)
+Message-ID: <[email protected]>
+Subject: Note for sed testsuite
+Original-To: [email protected]
+Date: Wed, 8 Mar 1995 18:02:24 -0800 (PST)
+X-Mailer: ELM [version 2.4 PL23]
+Newsgroups: alt.buddha.short.fat.guy
+Distribution: world
+Sender: [email protected]
+Approved: [email protected]
+
+                _Summum Bonum_
+
+    All the breath and the bloom of the
+            year in the bag of one bee:
+    All the wonder and wealth of the mine in
+         the heart of one gem:
+    In the core of one pearl all the shade and the
+           shine of the sea:
+    Breath and bloom, shade and shine, -- wonder,
+        wealth, and -- how far above them --
+          Truth, thats brighter than gem,
+          Trust, that's purer than pearl, --
+    Brightest truth, purest trust in the universe --
+              all were for me
+                 In the kiss of one girl.
+        -- Robert Browning
+EOF
+
+# NOTE:
+# The input has lines wider than 80 characters, and is kept as a separate file.
+
+# location of external test files
+dir="$abs_top_srcdir/testsuite"
+
+
+sed -n -f distrib.sed < "$dir/distrib.inp" > distrib-out || fail=1
+remove_cr_inplace distrib-out
+compare distrib-exp distrib-out || fail=1
+
+
+Exit $fail