Merge branch 'master' of darcs.haskell.org:/srv/darcs//testsuite

6 files changed, 36 insertions, 0 deletions

diff --git a/testsuite/tests/numeric/should_run/T5863.hs b/testsuite/tests/numeric/should_run/T5863.hs
new file mode 100644
index 0000000000..7caa7f5ad0
--- /dev/null
+++ b/testsuite/tests/numeric/should_run/T5863.hs
@@ -0,0 +1,6 @@
+import Text.Printf
+
+main :: IO ()
+main = do
+  putStrLn $ printf "%.1f" (0.45 :: Double)
+  putStrLn $ printf "%.1f" (0.55 :: Double)
diff --git a/testsuite/tests/numeric/should_run/T5863.stdout b/testsuite/tests/numeric/should_run/T5863.stdout
new file mode 100644
index 0000000000..309bc15f97
--- /dev/null
+++ b/testsuite/tests/numeric/should_run/T5863.stdout
@@ -0,0 +1,2 @@
+0.4
+0.6
diff --git a/testsuite/tests/numeric/should_run/all.T b/testsuite/tests/numeric/should_run/all.T
index 506665504a..3e12a88320 100644
--- a/testsuite/tests/numeric/should_run/all.T
+++ b/testsuite/tests/numeric/should_run/all.T
@@ -57,4 +57,5 @@ test('4383', normal, compile_and_run, [''])
 test('add2', normal, compile_and_run, ['-fobject-code'])
 test('mul2', normal, compile_and_run, ['-fobject-code'])
 test('quotRem2', normal, compile_and_run, ['-fobject-code'])
+test('T5863', normal, compile_and_run, [''])
 
diff --git a/testsuite/tests/th/TH_StringPrimL.hs b/testsuite/tests/th/TH_StringPrimL.hs
new file mode 100644
index 0000000000..92f791fb56
--- /dev/null
+++ b/testsuite/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/testsuite/tests/th/TH_StringPrimL.stdout b/testsuite/tests/th/TH_StringPrimL.stdout
new file mode 100644
index 0000000000..503c25ee5d
--- /dev/null
+++ b/testsuite/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/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index 35d2011723..76b8041d66 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/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, [''])