format: Optimize fmt_from_io().

[pspp] / tests / command / no_case_size.sh

diff --git a/tests/command/no_case_size.sh b/tests/command/no_case_size.sh
index d8e1893590fa5a96bbb8e909dacb5b4188eee0fb..a03c617b6974521cdccde64b9e1301c3e2a48af8 100755 (executable)
--- a/tests/command/no_case_size.sh
+++ b/tests/command/no_case_size.sh
@@ -7,12 +7,17 @@
 TEMPDIR=/tmp/pspp-tst-$$
 TESTFILE=$TEMPDIR/`basename $0`.sps
 
-here=`pwd`;
+# ensure that top_builddir  are absolute
+if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
+if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
+top_builddir=`cd $top_builddir; pwd`
+PSPP=$top_builddir/src/ui/terminal/pspp$EXEEXT
 
 # ensure that top_srcdir is absolute
-cd $top_srcdir; top_srcdir=`pwd`
+top_srcdir=`cd $top_srcdir; pwd`
 
-export STAT_CONFIG_PATH=$top_srcdir/config
+STAT_CONFIG_PATH=$top_srcdir/config
+export STAT_CONFIG_PATH
 
 
 cleanup()
@@ -21,6 +26,7 @@ cleanup()
        echo "NOT cleaning $TEMPDIR"
        return ; 
      fi
+     cd /
      rm -rf $TEMPDIR
 }
 
@@ -52,6 +58,7 @@ mkdir -p $TEMPDIR
 
 cd $TEMPDIR
 
+activity="create program"
 cat <<EOF > $TESTFILE
 GET FILE='$top_srcdir/tests/no_case_size.sav'.
 DISPLAY DICTIONARY.
@@ -61,67 +68,42 @@ if [ $? -ne 0 ] ; then no_result ; fi
 
 
 activity="run program"
-$SUPERVISOR $here/../src/pspp --testing-mode -o raw-ascii $TESTFILE > /dev/null
+$SUPERVISOR $PSPP -o pspp.csv $TESTFILE
 if [ $? -ne 0 ] ; then no_result ; fi
 
 activity="compare output"
-diff -b -B -w pspp.list - <<EOF
-1.1 DISPLAY.  
-+--------+-------------------------------------------+--------+
-|Variable|Description                                |Position|
-#========#===========================================#========#
-|CONT    |continents of the world                    |       1|
-|        |Format: A32                                |        |
-+--------+-------------------------------------------+--------+
-|SIZE    |sq km                                      |       2|
-|        |Format: F8.2                               |        |
-+--------+-------------------------------------------+--------+
-|POP     |population                                 |       3|
-|        |Format: F8.2                               |        |
-+--------+-------------------------------------------+--------+
-|COUNT   |number of countries                        |       4|
-|        |Format: F8.2                               |        |
-+--------+-------------------------------------------+--------+
-
-                            CONT     SIZE      POP    COUNT
--------------------------------- -------- -------- --------
-Asia    
-        
-        
-        
-
-Africa  
-        
-        
-        
-
-North Am
-erica   
-        
-        
-
-South Am
-erica   
-        
-        
-
-Antarcti
-ca      
-        
-        
-
-Europe  
-        
-        
-        
-
-Australi
-a/Oceani
-a       
-        
-
-
-
+diff -c pspp.csv - <<EOF
+Variable,Description,,Position
+cont,continents of the world,,1
+,Format: A32,,
+,Measure: Nominal,,
+,Display Alignment: Left,,
+,Display Width: 8,,
+size,sq km,,2
+,Format: F8.2,,
+,Measure: Nominal,,
+,Display Alignment: Left,,
+,Display Width: 8,,
+pop,population,,3
+,Format: F8.2,,
+,Measure: Nominal,,
+,Display Alignment: Left,,
+,Display Width: 8,,
+count,number of countries,,4
+,Format: F8.2,,
+,Measure: Nominal,,
+,Display Alignment: Left,,
+,Display Width: 8,,
+
+Table: Data List
+cont,size,pop,count
+Asia                            ,44579000,3.7E+009,44.00
+Africa                          ,30065000,7.8E+008,53.00
+North America                   ,24256000,4.8E+008,23.00
+South America                   ,17819000,3.4E+008,12.00
+Antarctica                      ,13209000,.00,.00
+Europe                          ,9938000,7.3E+008,46.00
+Australia/Oceania               ,7687000,31000000,14.00
 EOF
 if [ $? -ne 0 ] ; then fail ; fi