[Pspp-cvs] Changes to pspp/tests/bugs/big-input-2.sh

[Ben Pfaff]

Index: pspp/tests/bugs/big-input-2.sh
diff -u pspp/tests/bugs/big-input-2.sh:1.6 pspp/tests/bugs/big-input-2.sh:1.7
--- pspp/tests/bugs/big-input-2.sh:1.6  Tue Jul 26 03:51:29 2005
+++ pspp/tests/bugs/big-input-2.sh      Sun Jul 31 04:55:58 2005
@@ -19,6 +19,7 @@
 
 cleanup()
 {
+     cd /
      rm -rf $TEMPDIR
 }
 
@@ -56,16 +57,10 @@
 
 printf "Creating input data.  Please wait"
 activity="create data"
-( while true ; do 
-       echo AB12;
-done )  | head -100000 >> $TEMPDIR/large.dat
+$PERL -e 'print "AB12\n" foreach 1...100000;
+          print "AB04\n" foreach 1...100000;' > $TEMPDIR/large.dat
 if [ $? -ne 0 ] ; then no_result ; fi
-printf '.'
-( while true ; do 
-       echo AB04;
-done )  | head -100000 >> $TEMPDIR/large.dat
-if [ $? -ne 0 ] ; then no_result ; fi
-printf "\n";
+printf ".\n";
 
 activity="create program"
 cat > $TESTFILE <<EOF
@@ -85,10 +80,7 @@
 
 activity="appending to data"
 # Put another 100,000 cases into large.dat
-( while true ; do 
-       echo AB04 
-       echo AB12 
-done )  | head -50000 >> $TEMPDIR/large.dat
+$PERL -e 'print "AB04\nAB12\n" foreach 1...25000' >> $TEMPDIR/large.dat
 if [ $? -ne 0 ] ; then no_result ; fi
 
 activity="run program"