[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 <[email protected]>                      #
 #          atheik <[email protected]>           #
 #               Vincent Mihalkovic <[email protected]>               #
+#             dnewhall <[email protected]>             #
 #                Ryan Schmidt <[email protected]>                #
 #                 Harald van Dijk <[email protected]>                 #
 #                   Chase <[email protected]>                   #
 #           rymrg <[email protected]>            #
 #       hyousatsu <[email protected]>       #
-#             dnewhall <[email protected]>             #
 #                      Trey Valenta <[email protected]>                       #
 #  Sterling Jensen <[email protected]>   #
 #                   Marc Wilson <[email protected]>                   #

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 <[email protected]>                   *
 *                  Martijn Dekker <[email protected]>                   *
 *            Johnothan King <[email protected]>             *
+*             dnewhall <[email protected]>             *
 *                                                                      *
 ***********************************************************************/
 

src/cmd/ksh93/sh/init.c

@@ -16,6 +16,7 @@
 *         hyenias <[email protected]>          *
 *                 Harald van Dijk <[email protected]>                 *
 *               K. Eugene Carlson <[email protected]>               *
+*             dnewhall <[email protected]>             *
 *                                                                      *
 ***********************************************************************/
 /*

src/cmd/ksh93/sh/subshell.c

@@ -14,6 +14,7 @@
 *                  Martijn Dekker <[email protected]>                   *
 *            Johnothan King <[email protected]>             *
 *         hyenias <[email protected]>          *
+*             dnewhall <[email protected]>             *
 *                                                                      *
 ***********************************************************************/
 /*

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))