1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{-# LANGUAGE CPP #-}
{-# LANGUAGE QuasiQuotes #-}
-- This module is needed because it's not possible to turn on CPP in Main.hs.
-- We need CPP because this test case doesn't work without FULL_HASKELL_ANTIQUOTES
-- turned on. (The simpler Haskell parser doesn't support infix operators.)
module MainCPP where
import Test.Framework (Test)
import Test.Framework.Providers.HUnit
import Test.HUnit (Assertion, (@?=))
import Language.C.Quote.C
testCase_test_int_hsexp :: [Test]
testCase_test_int_hsexp =
#ifdef FULL_HASKELL_ANTIQUOTES
[testCase "unsigned long antiquote of Haskell expression" test_int_hsexp]
where
test_int_hsexp :: Assertion
test_int_hsexp =
[cexp|$ulint:(13 - 2*5 :: Integer)|] @?= [cexp|3UL|]
#else
[]
#endif
|
