Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/663e6e4b61231d5d4c50d49660efc3aa19f8e837 >--------------------------------------------------------------- commit 663e6e4b61231d5d4c50d49660efc3aa19f8e837 Author: Ian Lynagh <[email protected]> Date: Fri Sep 30 01:33:16 2011 +0100 Add a test for #5430 >--------------------------------------------------------------- tests/lib/Time/T5430.hs | 8 ++++++++ tests/lib/Time/T5430.stdout | 1 + tests/lib/Time/all.T | 1 + 3 files changed, 10 insertions(+), 0 deletions(-) diff --git a/tests/lib/Time/T5430.hs b/tests/lib/Time/T5430.hs new file mode 100644 index 0000000..b011ed6 --- /dev/null +++ b/tests/lib/Time/T5430.hs @@ -0,0 +1,8 @@ + +import System.Locale +import System.Time + +main :: IO () +main = do let clockTime = TOD 0 0 -- 00:00:00 on 1 Jan 1970 + calTime <- toCalendarTime clockTime + putStrLn $ formatCalendarTime defaultTimeLocale "%j" calTime diff --git a/tests/lib/Time/T5430.stdout b/tests/lib/Time/T5430.stdout new file mode 100644 index 0000000..5325a8d --- /dev/null +++ b/tests/lib/Time/T5430.stdout @@ -0,0 +1 @@ +001 diff --git a/tests/lib/Time/all.T b/tests/lib/Time/all.T index 25b4082..3b310b4 100644 --- a/tests/lib/Time/all.T +++ b/tests/lib/Time/all.T @@ -1,3 +1,4 @@ test('time002', normal, compile_and_run, ['']) test('time003', normal, compile_and_run, ['']) test('time004', normal, compile_and_run, ['']) +test('T5430', normal, compile_and_run, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
