Changes to m4/tests/testsuite.at,v

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Changes by:     Eric Blake <ericb>      06/10/05 23:07:28

Index: tests/testsuite.at
===================================================================
RCS file: /sources/m4/m4/tests/testsuite.at,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- tests/testsuite.at  4 Oct 2006 23:30:46 -0000       1.24
+++ tests/testsuite.at  5 Oct 2006 23:07:28 -0000       1.25
@@ -47,8 +47,8 @@
 # or m4:input.m4:7: cannot open module `no_such': can't open the module
 # to m4:input.m4:7: cannot open module `no_such'
 m4_define([AT_CHECK_M4],
-[AT_CHECK([m4 -b -d $1 m4_if([$5], [-], [<&-],
-                            [< m4_default([$5], [/dev/null])])],
+[AT_CHECK([m4 -b -d $1 ]m4_if([$5], [-], [<&-],
+                             [< m4_default([$5], [/dev/null])]),
           [$2], [$3], m4_ifval([$4], [stderr]))
 m4_if([$4], [], [],
       [$4], [ignore], [],
@@ -58,6 +58,37 @@
     ' stderr >&2]], [0], [], [$4])])
 ])
 
+# M4_ONE_MEG_DEFN
+# ---------------
+# emit a code snippet for use in AT_DATA that will define a macro `f' to
+# consist of 1M bytes of newlines.  With that in place, it is then easy
+# to use divert and invoke `f' in the test file to force diversions to
+# spill into a temporary file.
+m4_define([M4_ONE_MEG_DEFN],
+[pushdef(`diversion', divnum)divert(-1)
+define(`f', `
+')
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+define(`f', defn(`f')defn(`f'))
+divert(diversion)popdef(`diversion')])
+
 # AT_TEST_M4(TITLE, INPUT, [STDOUT = `'], [STDERR = `'])
 # ------------------------------------------------------
 # Run m4 on INPUT, expecting a success.