CD: Fix a bug and add a regression test.
[pspp] / tests / language / utilities / cd.at
1 AT_BANNER([CD])
2
3 AT_SETUP([CD])
4 mkdir subdir
5 AT_DATA([cd.sps], [dnl
6 cd 'subdir'.
7 host command=[['pwd > mydir']].
8 ])
9 AT_CHECK([pspp -O format=csv cd.sps])
10 AT_CAPTURE_FILE([subdir/mydir])
11 AT_CHECK([sed 's,.*/,,' subdir/mydir], [0], [subdir
12 ])
13 AT_CLEANUP