X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fperl-module.at;h=c13a8b857a80bd4a31ea606b63a638b23984827e;hb=8fa37ab22125896c4549d8681804aa65095d4c1c;hp=15ed6c2dbd84b89062c3474998c17d6d321366e6;hpb=4bbc18decb6c26a9058d88fa0d4116a5730547b9;p=pspp diff --git a/tests/perl-module.at b/tests/perl-module.at index 15ed6c2dbd..c13a8b857a 100644 --- a/tests/perl-module.at +++ b/tests/perl-module.at @@ -1,3 +1,19 @@ +dnl PSPP - a program for statistical analysis. +dnl Copyright (C) 2017 Free Software Foundation, Inc. +dnl +dnl This program is free software: you can redistribute it and/or modify +dnl it under the terms of the GNU General Public License as published by +dnl the Free Software Foundation, either version 3 of the License, or +dnl (at your option) any later version. +dnl +dnl This program is distributed in the hope that it will be useful, +dnl but WITHOUT ANY WARRANTY; without even the implied warranty of +dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +dnl GNU General Public License for more details. +dnl +dnl You should have received a copy of the GNU General Public License +dnl along with this program. If not, see . +dnl AT_BANNER([Perl module tests]) dnl This command can be used to run with the PSPP Perl module after it has been @@ -5,8 +21,12 @@ dnl built (with "make") but before it has been installed. The -I options are dnl equivalent to "use ExtUtils::testlib;" inside the Perl program, but it does dnl not need to be run with the perl-module build directory as the current dnl working directory. +dnl +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 \ + 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]) @@ -62,15 +82,9 @@ Documents in the active dataset: These Documents -Variable,Description,,Position -legal,Format: F9.2,,1 -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -money,Format: DOLLAR6.2,,2 -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, +Variable,Description,Position +legal,Format: F9.2,1 +money,Format: DOLLAR6.2,2 dump-dict.sps:5: note: SHOW: WEIGHT is money. ]) @@ -139,15 +153,9 @@ DISPLAY DOCUMENTS. LIST. ]) AT_CHECK([pspp -O format=csv dump-dicts.sps], [0], - [Variable,Description,,Position -id,Format: F2.0,,1 -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -name,Format: A20,,2 -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 20,, + [Variable,Description,Position +id,Format: F2.0,1 +name,Format: A20,2 File label: This is the file label @@ -159,15 +167,9 @@ Table: Data List id,name 34,frederick @&t@ -Variable,Description,,Position -id,Format: F2.0,,1 -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -name,Format: A20,,2 -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 20,, +Variable,Description,Position +id,Format: F2.0,1 +name,Format: A20,2 File label: This is the file label @@ -232,30 +234,27 @@ AT_DATA([dump-dict.sps], DISPLAY DICTIONARY. ]) AT_CHECK([pspp -O format=csv dump-dict.sps], [0], - [Variable,Description,,Position -integer,My Integer,,1 -,Format: F8.0,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -,Missing Values: 9; 99,, -,0,Zero, -,1,Unity, -,2,Duality, -string,My String,,2 -,Format: A8,, -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 8,, -,"Missing Values: ""this ""; ""that """,, -,xx ,foo, -,yy ,bar, -longstring,My Long String,,3 -,Format: A9,, -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 9,, -,xxx ,xfoo, + [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_CLEANUP @@ -351,7 +350,7 @@ AT_DATA([test.pl], my $vl = $var->get_value_labels (); print "Value Labels:\n"; - print "$_ => $vl->{$_}\n" for keys %$vl; + print "$_ => $vl->{$_}\n" for sort (keys %$vl); } while (my @c = $sf->get_next_case () ) @@ -366,16 +365,16 @@ AT_DATA([test.pl], AT_CHECK([RUN_PERL_MODULE test.pl], [0], [Variable 0 is "string", label is "A Short String Variable" Value Labels: -3333 => threes 1111 => ones 2222 => twos +3333 => threes Variable 1 is "longstring", label is "A Long String Variable" Value Labels: Variable 2 is "numeric", label is "A Numeric Variable" Value Labels: 1 => Unity -3 => Thripality 2 => Duality +3 => Thripality Variable 3 is "date", label is "A Date Variable" Value Labels: Variable 4 is "dollar", label is "A Dollar Variable" @@ -452,51 +451,38 @@ DISPLAY DICTIONARY. LIST. ]) AT_CHECK([pspp -O format=csv dump-dicts.sps], [0], - [[Variable,Description,,Position -string,A Short String Variable,,1 -,Format: A8,, -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 8,, -,"Missing Values: ""3333 """,, -,1111 ,ones, -,2222 ,twos, -,3333 ,threes, -longstring,A Long String Variable,,2 -,Format: A12,, -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 12,, -numeric,A Numeric Variable,,3 -,Format: F10.0,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -,Missing Values: 9; 5; 999,, -,1,Unity, -,2,Duality, -,3,Thripality, -,Custom attributes:,, -,size,large, -,nationality,foreign, -,colour[1],blue, -,colour[2],pink, -,colour[3],violet, -date,A Date Variable,,4 -,Format: DATE11,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -dollar,A Dollar Variable,,5 -,Format: DOLLAR11.2,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -datetime,A Datetime Variable,,6 -,Format: DATETIME17.0,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, + [[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: Data List string,longstring,numeric,date,dollar,datetime @@ -506,51 +492,38 @@ string,longstring,numeric,date,dollar,datetime . ,. ,.,.,. ,. 5555 ,Five ,5,05-MAY-2005,$5.00,05-MAY-2005 05:05 -Variable,Description,,Position -string,A Short String Variable,,1 -,Format: A8,, -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 8,, -,"Missing Values: ""3333 """,, -,1111 ,ones, -,2222 ,twos, -,3333 ,threes, -longstring,A Long String Variable,,2 -,Format: A12,, -,Measure: Nominal,, -,Display Alignment: Left,, -,Display Width: 12,, -numeric,A Numeric Variable,,3 -,Format: F10.0,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -,Missing Values: 9; 5; 999,, -,1,Unity, -,2,Duality, -,3,Thripality, -,Custom attributes:,, -,size,large, -,nationality,foreign, -,colour[1],blue, -,colour[2],pink, -,colour[3],violet, -date,A Date Variable,,4 -,Format: DATE11,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -dollar,A Dollar Variable,,5 -,Format: DOLLAR11.2,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, -datetime,A Datetime Variable,,6 -,Format: DATETIME17.0,, -,Measure: Scale,, -,Display Alignment: Right,, -,Display Width: 8,, +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: Data List string,longstring,numeric,date,dollar,datetime @@ -614,7 +587,7 @@ AT_DATA([test.pl], print $PSPP::errstr, "\n"; ]]) AT_CHECK([RUN_PERL_MODULE test.pl], [0], - [[Error opening `no-such-file.sav' for reading as a system file: No such file or directory. + [[An error occurred while opening `no-such-file.sav': No such file or directory. ]], [[Name "PSPP::errstr" used only once: possible typo at test.pl line 8. ]]) @@ -682,7 +655,7 @@ AT_DATA([test.pl], my $attr = $var->get_attributes (); - foreach my $k (keys %$attr) + foreach my $k (sort (keys (%$attr))) { my $ll = $attr->{$k}; print "$k =>"; @@ -690,7 +663,8 @@ AT_DATA([test.pl], } ]]) AT_CHECK([RUN_PERL_MODULE test.pl], [0], - [[colour =>blue, pink, violet + [[$@Role =>0 +colour =>blue, pink, violet nationality =>foreign size =>large ]])