CVSROOT: /sources/m4 Module name: m4 Changes by: Eric Blake <ericb> 07/05/28 20:10:02
Index: tests/freeze.at =================================================================== RCS file: /sources/m4/m4/tests/freeze.at,v retrieving revision 1.10 retrieving revision 1.11 diff -u -b -r1.10 -r1.11 --- tests/freeze.at 25 Feb 2007 22:43:55 -0000 1.10 +++ tests/freeze.at 28 May 2007 20:10:02 -0000 1.11 @@ -19,6 +19,41 @@ AT_BANNER([Freezing state.]) +## --------------- ## +## large diversion ## +## --------------- ## + +AT_SETUP([large diversion]) +AT_KEYWORDS([frozen]) + +# Check that large diversions are handled across freeze boundaries. + +AT_DATA([[frozen.m4]], [M4_ONE_MEG_DEFN[divert(2)f +divert(1)hi +]]) + +AT_DATA([[unfrozen.m4]], +[[divert(3)bye +]]) + +# First generate the `expout' output by running over the sources before +# freezing. +AT_CHECK_M4([frozen.m4 unfrozen.m4], [0], + [stdout], [stderr]) + +mv stdout expout +mv stderr experr + +# Now freeze the first source file. +AT_CHECK_M4([-F frozen.m4f frozen.m4], [0]) + +# Now rerun the original sequence, but using the frozen file. +AT_CHECK_M4([-R frozen.m4f unfrozen.m4], [0], + [expout], [experr]) + +AT_CLEANUP + + ## ---------------- ## ## loading format 1 ## ## ---------------- ##
