Add test case for #7938.
Merge branch 'master' of ssh://darcs.haskell.org/srv/darcs/testsuite