projects
/
pspp
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fix generate.pl for Perl 5.6.1.
[pspp]
/
tests
/
bugs
/
recode-copy-bug-1.stat
1
TITLE 'Test for regression of recode COPY bug'
2
3
DATA LIST LIST
4
/A (A1)
5
B (A1).
6
7
BEGIN DATA
8
1 2
9
2 3
10
3 4
11
END DATA.
12
13
** Clearly, the else=copy is superfluous here
14
RECODE A ("1"="3") ("3"="1") (ELSE=COPY).
15
EXECUTE.
16
LIST.
17