[commit: testsuite] master: Test unencoded StringPrimL (63a3794)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/63a37947c9a6a70455bfd03731d1dfdae579ef35

>---------------------------------------------------------------

commit 63a37947c9a6a70455bfd03731d1dfdae579ef35
Author: Reiner Pope <reiner.pope at gmail.com>
Date:   Thu Feb 16 10:54:20 2012 +1100

    Test unencoded StringPrimL

>---------------------------------------------------------------

 tests/th/TH_StringPrimL.hs     |   22 ++++++++++++++++++++++
 tests/th/TH_StringPrimL.stdout |    4 ++++
 tests/th/all.T                 |    1 +
 3 files changed, 27 insertions(+), 0 deletions(-)

diff --git a/tests/th/TH_StringPrimL.hs b/tests/th/TH_StringPrimL.hs
new file mode 100644
index 0000000..92f791f
--- /dev/null
+++ b/tests/th/TH_StringPrimL.hs
@@ -0,0 +1,22 @@
+{-# LANGUAGE MagicHash #-}
+module Main where
+
+import Language.Haskell.TH
+import GHC.Prim(Addr#)
+import GHC.Ptr
+import Foreign.Marshal.Array (peekArray)
+import Data.Word (Word8)
+
+check_equal :: [Word8] -> Addr# -> IO ()
+check_equal bytes addr = do
+  bytes' <- peekArray (length bytes) (Ptr addr)
+  print (bytes == bytes')
+
+main = do
+  -- check round-trip
+  check_equal [0..255] $(litE $ stringPrimL [0..255])
+
+  -- check printing
+  let e = LitE (StringPrimL [0..255])
+  print e
+  putStrLn (pprint e)
diff --git a/tests/th/TH_StringPrimL.stdout b/tests/th/TH_StringPrimL.stdout
new file mode 100644
index 0000000..503c25e
--- /dev/null
+++ b/tests/th/TH_StringPrimL.stdout
@@ -0,0 +1,4 @@
+True
+LitE (StringPrimL [0,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,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255])
+"\NUL\SOH\STX\ETX\EOT\ENQ\ACK\a\b\t\
+\\v\f\r\SO\SI\DLE\DC1\DC2\DC3\DC4\NAK\SYN\ETB\CAN\EM\SUB\ESC\FS\GS\RS\US !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\DEL\128\129\130\131\132\133\134\135\136\137\138\139\140\141\142\143\144\145\146\147\148\149\150\151\152\153\154\155\156\157\158\159\160\161\162\163\164\165\166\167\168\169\170\171\172\173\174\175\176\177\178\179\180\181\182\183\184\185\186\187\188\189\190\191\192\193\194\195\196\197\198\199\200\201\202\203\204\205\206\207\208\209\210\211\212\213\214\215\216\217\218\219\220\221\222\223\224\225\226\227\228\229\230\231\232\233\234\235\236\237\238\239\240\241\242\243\244\245\246\247\248\249\250\251\252\253\254\255"#
diff --git a/tests/th/all.T b/tests/th/all.T
index 35d2011..76b8041 100644
--- a/tests/th/all.T
+++ b/tests/th/all.T
@@ -245,3 +245,4 @@ test('T6005', normal, compile, ['-v0'])
 test('T6005a', normal, compile, ['-v0'])
 test('T5737', normal, compile, ['-v0'])
 test('T6114', normal, compile_fail, ['-v0 -dsuppress-uniques'])
+test('TH_StringPrimL', normal, compile_and_run, [''])