checkin of 0.3.0
[pspp-builds.git] / tests / autorecod.stat
1 title 'Test for AUTORECODE procedure'.
2
3 /* Tries AUTORECODE on some random but similar strings of characters.
4 data list /x 1-5(a) y 7.
5 begin data.
6 lasdj 1 1                                                           3
7 asdfk 0 3 <---- These are the numbers that should be produced for a 4
8 asdfj 2 4                                                           2
9 asdfj 1 4                                                           3
10 asdfk 2 3                                                           2
11 asdfj 9 4                                                           1
12 lajks 9 2                                                           1
13 asdfk 0 3 These are the numbers that should be produced for b ----> 4
14 asdfk 1 3                                                           3
15 end data.
16 list.
17 autorecode x y into a b/descend.
18
19 /* This should produce the values indicated in the data above.
20 list.
21
22 /* Just to make sure it works on second & subsequent executions,
23 /* try it again.
24 compute z=trunc(y/2).
25 autorecode z into w.
26
27 /* This should display:
28 /*   z 0 0 1 0 1 4 4 0 0
29 /*   w 1 1 2 1 2 3 3 1 1
30 list z w.