X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fperl-module.at;h=cbe2a0dd33175ef9aa4b30dcf00f94bb2ebfa65e;hb=672c9b7e1c60763d279ecc781b7bf939b8bab4b4;hp=c13a8b857a80bd4a31ea606b63a638b23984827e;hpb=a965acea74a93eba5c78c17c6595eef9a776a464;p=pspp diff --git a/tests/perl-module.at b/tests/perl-module.at index c13a8b857a..cbe2a0dd33 100644 --- a/tests/perl-module.at +++ b/tests/perl-module.at @@ -26,6 +26,7 @@ dnl XXX "libtool --mode=execute" is probably better than setting dnl LD_LIBRARY_PATH. m4_define([RUN_PERL_MODULE], [LD_LIBRARY_PATH=$abs_top_builddir/src/.libs \ + LD_PRELOAD=/usr/lib/i386-linux-gnu/libasan.so.4 \ DYLD_LIBRARY_PATH=$abs_top_builddir/src/.libs \ $PERL -I$abs_top_builddir/perl-module/blib/arch \ -I$abs_top_builddir/perl-module/blib/lib]) @@ -75,16 +76,17 @@ DISPLAY DOCUMENTS. DISPLAY DICTIONARY. SHOW WEIGHT. ]) -AT_CHECK([pspp -O format=csv dump-dict.sps], [0], - [File label: My Dictionary - -Documents in the active dataset: +AT_CHECK([pspp -O format=csv dump-dict.sps], [0], [dnl +Table: File Label +Label,My Dictionary +Table: Documents These Documents -Variable,Description,Position -legal,Format: F9.2,1 -money,Format: DOLLAR6.2,2 +Table: Variables +Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values +legal,1,,Scale,Input,8,Right,F9.2,F9.2, +money,2,,Scale,Input,8,Right,DOLLAR6.2,DOLLAR6.2, dump-dict.sps:5: note: SHOW: WEIGHT is money. ]) @@ -152,34 +154,36 @@ DISPLAY FILE LABEL. DISPLAY DOCUMENTS. LIST. ]) -AT_CHECK([pspp -O format=csv dump-dicts.sps], [0], - [Variable,Description,Position -id,Format: F2.0,1 -name,Format: A20,2 - -File label: This is the file label +AT_CHECK([pspp -O format=csv dump-dicts.sps], [0], [dnl +Table: Variables +Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values +id,1,,Scale,Input,8,Right,F2.0,F2.0, +name,2,,Nominal,Input,20,Left,A20,A20, -Documents in the active dataset: +Table: File Label +Label,This is the file label +Table: Documents This is a document line Table: Data List id,name -34,frederick @&t@ +34,frederick -Variable,Description,Position -id,Format: F2.0,1 -name,Format: A20,2 +Table: Variables +Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values +id,1,,Scale,Input,8,Right,F2.0,F2.0, +name,2,,Nominal,Input,20,Left,A20,A20, -File label: This is the file label - -Documents in the active dataset: +Table: File Label +Label,This is the file label +Table: Documents This is a document line Table: Data List id,name -21,wheelbarrow @&t@ +21,wheelbarrow ]) AT_CLEANUP @@ -228,33 +232,27 @@ AT_DATA([test.pl], $sysfile->close (); ]]) -AT_CHECK([RUN_PERL_MODULE test.pl]) +AT_CHECK([RUN_PERL_MODULE test.pl], [0], [], [stderr]) +cat stderr AT_DATA([dump-dict.sps], [GET FILE='testfile.sav'. DISPLAY DICTIONARY. ]) -AT_CHECK([pspp -O format=csv dump-dict.sps], [0], - [Variable,Description,Position -integer,"Label: My Integer -Format: F8.0 -Missing Values: 9; 99 - -Value,Label -0,Zero -1,Unity -2,Duality",1 -string,"Label: My String -Format: A8 -Missing Values: ""this ""; ""that "" - -Value,Label -xx ,foo -yy ,bar",2 -longstring,"Label: My Long String -Format: A9 - -Value,Label -xxx ,xfoo",3 +AT_CHECK([pspp -O format=csv dump-dict.sps], [0], [dnl +Table: Variables +Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values +integer,1,My Integer,Scale,Input,8,Right,F8.0,F8.0,9; 99 +string,2,My String,Nominal,Input,8,Left,A8,A8,"""this ""; ""that """ +longstring,3,My Long String,Nominal,Input,9,Left,A9,A9, + +Table: Value Labels +Variable Value,,Label +My Integer,0,Zero +,1,Unity +,2,Duality +My String,xx,foo +,yy,bar +My Long String,xxx,xfoo ]) AT_CLEANUP @@ -444,94 +442,88 @@ AT_CHECK([RUN_PERL_MODULE test.pl]) AT_DATA([dump-dicts.sps], [GET FILE='sample.sav'. DISPLAY DICTIONARY. +DISPLAY ATTRIBUTES LIST. GET FILE='copy.sav'. DISPLAY DICTIONARY. +DISPLAY ATTRIBUTES LIST. ]) AT_CHECK([pspp -O format=csv dump-dicts.sps], [0], - [[Variable,Description,Position -string,"Label: A Short String Variable -Format: A8 -Missing Values: ""3333 "" - -Value,Label -1111 ,ones -2222 ,twos -3333 ,threes",1 -longstring,"Label: A Long String Variable -Format: A12",2 -numeric,"Label: A Numeric Variable -Format: F10.0 -Missing Values: 9; 5; 999 - -Value,Label -1,Unity -2,Duality -3,Thripality - -Attribute,Value -colour[1],blue -colour[2],pink -colour[3],violet -nationality,foreign -size,large",3 -date,"Label: A Date Variable -Format: DATE11",4 -dollar,"Label: A Dollar Variable -Format: DOLLAR11.2",5 -datetime,"Label: A Datetime Variable -Format: DATETIME17.0",6 + [[Table: Variables +Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values +string,1,A Short String Variable,Nominal,Input,8,Left,A8,A8,"""3333 """ +longstring,2,A Long String Variable,Nominal,Input,12,Left,A12,A12, +numeric,3,A Numeric Variable,Scale,Input,8,Right,F10.0,F10.0,9; 5; 999 +date,4,A Date Variable,Scale,Input,8,Right,DATE11,DATE11, +dollar,5,A Dollar Variable,Scale,Input,8,Right,DOLLAR11.2,DOLLAR11.2, +datetime,6,A Datetime Variable,Scale,Input,8,Right,DATETIME17.0,DATETIME17.0, + +Table: Value Labels +Variable Value,,Label +A Short String Variable,1111,ones +,2222,twos +,3333[a],threes +A Numeric Variable,1,Unity +,2,Duality +,3,Thripality + +Footnotes: +a,User-missing value + +Table: Variable and Dataset Attributes +Variable and Name,,Value +A Numeric Variable,colour[1],blue +,colour[2],pink +,colour[3],violet +,nationality,foreign +,size,large Table: Data List string,longstring,numeric,date,dollar,datetime -1111 ,One ,1,01-JAN-2001,$1.00,01-JAN-2001 01:01 -2222 ,Two ,2,02-FEB-2002,$2.00,02-FEB-2002 02:02 -3333 ,Three ,3,03-MAR-2003,$3.00,03-MAR-2003 03:03 -. ,. ,.,.,. ,. -5555 ,Five ,5,05-MAY-2005,$5.00,05-MAY-2005 05:05 - -Variable,Description,Position -string,"Label: A Short String Variable -Format: A8 -Missing Values: ""3333 "" - -Value,Label -1111 ,ones -2222 ,twos -3333 ,threes",1 -longstring,"Label: A Long String Variable -Format: A12",2 -numeric,"Label: A Numeric Variable -Format: F10.0 -Missing Values: 9; 5; 999 - -Value,Label -1,Unity -2,Duality -3,Thripality - -Attribute,Value -colour[1],blue -colour[2],pink -colour[3],violet -nationality,foreign -size,large",3 -date,"Label: A Date Variable -Format: DATE11",4 -dollar,"Label: A Dollar Variable -Format: DOLLAR11.2",5 -datetime,"Label: A Datetime Variable -Format: DATETIME17.0",6 +1111,One,1,01-JAN-2001,$1.00,01-JAN-2001 01:01 +2222,Two,2,02-FEB-2002,$2.00,02-FEB-2002 02:02 +3333,Three,3,03-MAR-2003,$3.00,03-MAR-2003 03:03 +.,.,.,.,. ,. +5555,Five,5,05-MAY-2005,$5.00,05-MAY-2005 05:05 + +Table: Variables +Name,Position,Label,Measurement Level,Role,Width,Alignment,Print Format,Write Format,Missing Values +string,1,A Short String Variable,Nominal,Input,8,Left,A8,A8,"""3333 """ +longstring,2,A Long String Variable,Nominal,Input,12,Left,A12,A12, +numeric,3,A Numeric Variable,Scale,Input,8,Right,F10.0,F10.0,9; 5; 999 +date,4,A Date Variable,Scale,Input,8,Right,DATE11,DATE11, +dollar,5,A Dollar Variable,Scale,Input,8,Right,DOLLAR11.2,DOLLAR11.2, +datetime,6,A Datetime Variable,Scale,Input,8,Right,DATETIME17.0,DATETIME17.0, + +Table: Value Labels +Variable Value,,Label +A Short String Variable,1111,ones +,2222,twos +,3333[a],threes +A Numeric Variable,1,Unity +,2,Duality +,3,Thripality + +Footnotes: +a,User-missing value + +Table: Variable and Dataset Attributes +Variable and Name,,Value +A Numeric Variable,colour[1],blue +,colour[2],pink +,colour[3],violet +,nationality,foreign +,size,large Table: Data List string,longstring,numeric,date,dollar,datetime -1111 ,One ,1,01-JAN-2001,$1.00,01-JAN-2001 01:01 -2222 ,Two ,2,02-FEB-2002,$2.00,02-FEB-2002 02:02 -3333 ,Three ,3,03-MAR-2003,$3.00,03-MAR-2003 03:03 -. ,. ,.,.,. ,. -5555 ,Five ,5,05-MAY-2005,$5.00,05-MAY-2005 05:05 +1111,One,1,01-JAN-2001,$1.00,01-JAN-2001 01:01 +2222,Two,2,02-FEB-2002,$2.00,02-FEB-2002 02:02 +3333,Three,3,03-MAR-2003,$3.00,03-MAR-2003 03:03 +.,.,.,.,. ,. +5555,Five,5,05-MAY-2005,$5.00,05-MAY-2005 05:05 ]]) AT_CLEANUP