diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-09-30 01:33:16 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-09-30 23:52:55 +0100 |
| commit | e54ec3bc806b9675a6efed9ed10c5fa7f898eb68 (patch) | |
| tree | d305de18e8dfbb7ee35ec3d4e4308a9a15032af3 /testsuite/tests/lib | |
| parent | 0cbfe0b478a383de960a74934e65d6e5adb016e8 (diff) | |
| download | haskell-e54ec3bc806b9675a6efed9ed10c5fa7f898eb68.tar.gz | |
Add a test for #5430
Diffstat (limited to 'testsuite/tests/lib')
| -rw-r--r-- | testsuite/tests/lib/Time/T5430.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/lib/Time/T5430.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/lib/Time/all.T | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/lib/Time/T5430.hs b/testsuite/tests/lib/Time/T5430.hs new file mode 100644 index 0000000000..b011ed61ea --- /dev/null +++ b/testsuite/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/testsuite/tests/lib/Time/T5430.stdout b/testsuite/tests/lib/Time/T5430.stdout new file mode 100644 index 0000000000..5325a8dff7 --- /dev/null +++ b/testsuite/tests/lib/Time/T5430.stdout @@ -0,0 +1 @@ +001 diff --git a/testsuite/tests/lib/Time/all.T b/testsuite/tests/lib/Time/all.T index 25b40820c0..3b310b416e 100644 --- a/testsuite/tests/lib/Time/all.T +++ b/testsuite/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, ['']) |