Added testcase for Trac #7681, a Template Haskell missing feature.