From e8e5414f9b0432e9b78b1f9d6a5c9206421ef003 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Tue, 2 Aug 2005 04:52:20 +0000 Subject: [PATCH] * bugs/big-input-2.sh: Don't use 1...100000 (etc.) with Perl because that may allocate a large amount of memory. --- tests/ChangeLog | 5 +++++ tests/bugs/big-input-2.sh | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/tests/ChangeLog b/tests/ChangeLog index 77b3e508..6dc05961 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,8 @@ +Mon Aug 1 21:51:46 2005 Ben Pfaff + + * bugs/big-input-2.sh: Don't use 1...100000 (etc.) with Perl + because that may allocate a large amount of memory. + Mon Aug 1 21:48:54 2005 Ben Pfaff * xforms/expression.sh: Break this monolithic test up into 36 diff --git a/tests/bugs/big-input-2.sh b/tests/bugs/big-input-2.sh index 5a3c6da0..9d153007 100755 --- a/tests/bugs/big-input-2.sh +++ b/tests/bugs/big-input-2.sh @@ -57,8 +57,8 @@ if [ $? -ne 0 ] ; then no_result ; fi printf "Creating input data. Please wait" activity="create data" -$PERL -e 'print "AB12\n" foreach 1...100000; - print "AB04\n" foreach 1...100000;' > $TEMPDIR/large.dat +$PERL -e 'for ($i=0; $i<100000; $i++) { print "AB12\n" }; + for ($i=0; $i<100000; $i++) { print "AB04\n" };' > $TEMPDIR/large.dat if [ $? -ne 0 ] ; then no_result ; fi printf ".\n"; @@ -79,8 +79,8 @@ $SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE > /dev/null if [ $? -ne 0 ] ; then fail ; fi activity="appending to data" -# Put another 100,000 cases into large.dat -$PERL -e 'print "AB04\nAB12\n" foreach 1...25000' >> $TEMPDIR/large.dat +# Put another 50,000 cases into large.dat +$PERL -e 'for ($i=0; $i<25000; $i++) { print "AB04\nAB12\n" };' >> $TEMPDIR/large.dat if [ $? -ne 0 ] ; then no_result ; fi activity="run program" -- 2.30.2