projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Paired T-Test: Label first pair as 'Pair 1' instead of 'Pair 0'.
[pspp]
/
tests
/
perl-module.at
diff --git
a/tests/perl-module.at
b/tests/perl-module.at
index b24278b7fc93b49050baaefe9d9adec6ccf3cb9c..0ddd8fd5ff54e698ce8554c3a6ae72dce73bc3fe 100644
(file)
--- a/
tests/perl-module.at
+++ b/
tests/perl-module.at
@@
-237,7
+237,7
@@
DISPLAY DICTIONARY.
])
AT_CHECK([pspp -O format=csv dump-dict.sps], [0],
[Variable,Description,,Position
])
AT_CHECK([pspp -O format=csv dump-dict.sps], [0],
[Variable,Description,,Position
-integer,My Integer,,1
+integer,
Label:
My Integer,,1
,Format: F8.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,Format: F8.0,,
,Measure: Scale,,
,Display Alignment: Right,,
@@
-246,7
+246,7
@@
integer,My Integer,,1
,0,Zero,
,1,Unity,
,2,Duality,
,0,Zero,
,1,Unity,
,2,Duality,
-string,My String,,2
+string,
Label:
My String,,2
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
@@
-254,7
+254,7
@@
string,My String,,2
,"Missing Values: ""this ""; ""that """,,
,xx ,foo,
,yy ,bar,
,"Missing Values: ""this ""; ""that """,,
,xx ,foo,
,yy ,bar,
-longstring,My Long String,,3
+longstring,
Label:
My Long String,,3
,Format: A9,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Format: A9,,
,Measure: Nominal,,
,Display Alignment: Left,,
@@
-355,7
+355,7
@@
AT_DATA([test.pl],
my $vl = $var->get_value_labels ();
print "Value Labels:\n";
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 () )
}
while (my @c = $sf->get_next_case () )
@@
-370,16
+370,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:
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
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
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
2 => Duality
+3 => Thripality
Variable 3 is "date", label is "A Date Variable"
Value Labels:
Variable 4 is "dollar", label is "A Dollar Variable"
Variable 3 is "date", label is "A Date Variable"
Value Labels:
Variable 4 is "dollar", label is "A Dollar Variable"
@@
-457,7
+457,7
@@
LIST.
])
AT_CHECK([pspp -O format=csv dump-dicts.sps], [0],
[[Variable,Description,,Position
])
AT_CHECK([pspp -O format=csv dump-dicts.sps], [0],
[[Variable,Description,,Position
-string,A Short String Variable,,1
+string,
Label:
A Short String Variable,,1
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
@@
-466,12
+466,12
@@
string,A Short String Variable,,1
,1111 ,ones,
,2222 ,twos,
,3333 ,threes,
,1111 ,ones,
,2222 ,twos,
,3333 ,threes,
-longstring,A Long String Variable,,2
+longstring,
Label:
A Long String Variable,,2
,Format: A12,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Display Width: 12,,
,Format: A12,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Display Width: 12,,
-numeric,A Numeric Variable,,3
+numeric,
Label:
A Numeric Variable,,3
,Format: F10.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,Format: F10.0,,
,Measure: Scale,,
,Display Alignment: Right,,
@@
-481,22
+481,22
@@
numeric,A Numeric Variable,,3
,2,Duality,
,3,Thripality,
,Custom attributes:,,
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
-date,A Date Variable,,4
+,nationality,foreign,
+,size,large,
+date,Label: A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
,Format: DATE11,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-dollar,A Dollar Variable,,5
+dollar,
Label:
A Dollar Variable,,5
,Format: DOLLAR11.2,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
,Format: DOLLAR11.2,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-datetime,A Datetime Variable,,6
+datetime,
Label:
A Datetime Variable,,6
,Format: DATETIME17.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,Format: DATETIME17.0,,
,Measure: Scale,,
,Display Alignment: Right,,
@@
-511,7
+511,7
@@
string,longstring,numeric,date,dollar,datetime
5555 ,Five ,5,05-MAY-2005,$5.00,05-MAY-2005 05:05
Variable,Description,,Position
5555 ,Five ,5,05-MAY-2005,$5.00,05-MAY-2005 05:05
Variable,Description,,Position
-string,A Short String Variable,,1
+string,
Label:
A Short String Variable,,1
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Format: A8,,
,Measure: Nominal,,
,Display Alignment: Left,,
@@
-520,12
+520,12
@@
string,A Short String Variable,,1
,1111 ,ones,
,2222 ,twos,
,3333 ,threes,
,1111 ,ones,
,2222 ,twos,
,3333 ,threes,
-longstring,A Long String Variable,,2
+longstring,
Label:
A Long String Variable,,2
,Format: A12,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Display Width: 12,,
,Format: A12,,
,Measure: Nominal,,
,Display Alignment: Left,,
,Display Width: 12,,
-numeric,A Numeric Variable,,3
+numeric,
Label:
A Numeric Variable,,3
,Format: F10.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,Format: F10.0,,
,Measure: Scale,,
,Display Alignment: Right,,
@@
-535,22
+535,22
@@
numeric,A Numeric Variable,,3
,2,Duality,
,3,Thripality,
,Custom attributes:,,
,2,Duality,
,3,Thripality,
,Custom attributes:,,
-,size,large,
-,nationality,foreign,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
,colour[1],blue,
,colour[2],pink,
,colour[3],violet,
-date,A Date Variable,,4
+,nationality,foreign,
+,size,large,
+date,Label: A Date Variable,,4
,Format: DATE11,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
,Format: DATE11,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-dollar,A Dollar Variable,,5
+dollar,
Label:
A Dollar Variable,,5
,Format: DOLLAR11.2,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
,Format: DOLLAR11.2,,
,Measure: Scale,,
,Display Alignment: Right,,
,Display Width: 8,,
-datetime,A Datetime Variable,,6
+datetime,
Label:
A Datetime Variable,,6
,Format: DATETIME17.0,,
,Measure: Scale,,
,Display Alignment: Right,,
,Format: DATETIME17.0,,
,Measure: Scale,,
,Display Alignment: Right,,
@@
-686,7
+686,7
@@
AT_DATA([test.pl],
my $attr = $var->get_attributes ();
my $attr = $var->get_attributes ();
- foreach my $k (
keys %$attr
)
+ foreach my $k (
sort (keys (%$attr))
)
{
my $ll = $attr->{$k};
print "$k =>";
{
my $ll = $attr->{$k};
print "$k =>";
@@
-694,7
+694,8
@@
AT_DATA([test.pl],
}
]])
AT_CHECK([RUN_PERL_MODULE test.pl], [0],
}
]])
AT_CHECK([RUN_PERL_MODULE test.pl], [0],
- [[colour =>blue, pink, violet
+ [[$@Role =>0
+colour =>blue, pink, violet
nationality =>foreign
size =>large
]])
nationality =>foreign
size =>large
]])