[v1.1] add regression test (re: 23a6ba0)

src/cmd/ksh93/tests/variables.sh:
- Since nrand48(3) uses a POSIX-specified pseudorandom generator on
  all systems, check that a known seed value (123) produces the
  expected reproducable pseudorandom sequence.

Other files:
- Related housekeeping.

Author: McDutchie

COPYRIGHT

@@ -23,12 +23,12 @@ ksh 93u+m general copyright notice
 #                      Phi <phi.debian@gmail.com>                      #
 #          atheik <14833674+atheik@users.noreply.github.com>           #
 #               Vincent Mihalkovic <vmihalko@redhat.com>               #
+#             dnewhall <dnewhall@users.noreply.github.com>             #
 #                Ryan Schmidt <ryandesign@macports.org>                #
 #                 Harald van Dijk <harald@gigawatt.nl>                 #
 #                   Chase <nicetrynsa@protonmail.ch>                   #
 #           rymrg <54061433+rymrg@users.noreply.github.com>            #
 #       hyousatsu <118750527+hyousatsu@users.noreply.github.com>       #
-#             dnewhall <dnewhall@users.noreply.github.com>             #
 #                      Trey Valenta <t@trey.net>                       #
 #  Sterling Jensen <5555776+sterlingjensen@users.noreply.github.com>   #
 #                   Marc Wilson <posguy99@gmail.com>                   #

src/cmd/ksh93/include/variables.h

@@ -2,7 +2,7 @@
 *                                                                      *
 *               This software is part of the ast package               *
 *          Copyright (c) 1982-2011 AT&T Intellectual Property          *
-*          Copyright (c) 2020-2024 Contributors to ksh 93u+m           *
+*          Copyright (c) 2020-2025 Contributors to ksh 93u+m           *
 *                      and is licensed under the                       *
 *                 Eclipse Public License, Version 2.0                  *
 *                                                                      *
@@ -13,6 +13,7 @@
 *                  David Korn <dgk@research.att.com>                   *
 *                  Martijn Dekker <martijn@inlv.org>                   *
 *            Johnothan King <johnothanking@protonmail.com>             *
+*             dnewhall <dnewhall@users.noreply.github.com>             *
 *                                                                      *
 ***********************************************************************/
 

src/cmd/ksh93/sh/init.c

@@ -16,6 +16,7 @@
 *         hyenias <58673227+hyenias@users.noreply.github.com>          *
 *                 Harald van Dijk <harald@gigawatt.nl>                 *
 *               K. Eugene Carlson <kvngncrlsn@gmail.com>               *
+*             dnewhall <dnewhall@users.noreply.github.com>             *
 *                                                                      *
 ***********************************************************************/
 /*

src/cmd/ksh93/sh/subshell.c

@@ -14,6 +14,7 @@
 *                  Martijn Dekker <martijn@inlv.org>                   *
 *            Johnothan King <johnothanking@protonmail.com>             *
 *         hyenias <58673227+hyenias@users.noreply.github.com>          *
+*             dnewhall <dnewhall@users.noreply.github.com>             *
 *                                                                      *
 ***********************************************************************/
 /*

src/cmd/ksh93/tests/variables.sh

@@ -1741,5 +1741,20 @@ exp='^[[:digit:]]{8}$'
 [[ $got =~ $exp ]] || err_exit '$((.sh.version)) does not yield YYYYMMDD digits' \
 	"(expected match of ERE $exp, got '$got')"
 
+# ======
+# As of 93u+m/1.1, $RANDOM uses nrand48(3) which should use the same pseudorandom
+# generator on all systems, producing a known sequence for a given seed value.
+case ${.sh.version} in
+*93u+m/1.0.*)
+	;;
+*93u+m/*)
+	RANDOM=123
+	exp='24979 26943 1328 1988 6255 23944 24547 11971 6923 8339'
+	got="$RANDOM $RANDOM $RANDOM $RANDOM $RANDOM $RANDOM $RANDOM $RANDOM $RANDOM $RANDOM"
+	[[ $got == "$exp" ]] || err_exit "RANDOM does not seem to use the expected pseudorandom generator" \
+		"(expected $(printf %q "$exp"), got $(printf %q "$got"))"
+	;;
+esac
+
 # ======
 exit $((Errors<125?Errors:125))