Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/cdc28b602d6686fa563d1a1a77dab76b411f9aa9 >--------------------------------------------------------------- commit cdc28b602d6686fa563d1a1a77dab76b411f9aa9 Author: Ian Lynagh <[email protected]> Date: Sat Nov 19 21:36:39 2011 +0000 CPUTime001 has moved to base/tests >--------------------------------------------------------------- tests/lib/CPUTime/CPUTime001.hs | 26 -------------------------- tests/lib/CPUTime/CPUTime001.stdout | 4 ---- tests/lib/CPUTime/Makefile | 3 --- tests/lib/CPUTime/all.T | 1 - 4 files changed, 0 insertions(+), 34 deletions(-) diff --git a/tests/lib/CPUTime/CPUTime001.hs b/tests/lib/CPUTime/CPUTime001.hs deleted file mode 100644 index 6c43c57..0000000 --- a/tests/lib/CPUTime/CPUTime001.hs +++ /dev/null @@ -1,26 +0,0 @@ --- !!! Test getCPUTime - -import System.CPUTime -import System.IO - -main :: IO () -main = do - t28 <- timeFib 28 - t29 <- timeFib 29 - t30 <- timeFib 30 - print (t28 <= t29, t29 <= t30) - -timeFib :: Integer -> IO Integer -timeFib n = do - start <- getCPUTime - print (nfib n) - end <- getCPUTime - return (end - start) - -nfib :: Integer -> Integer -nfib n - | n <= 1 = 1 - | otherwise = (n1 + n2 + 1) - where - n1 = nfib (n-1) - n2 = nfib (n-2) diff --git a/tests/lib/CPUTime/CPUTime001.stdout b/tests/lib/CPUTime/CPUTime001.stdout deleted file mode 100644 index 032e759..0000000 --- a/tests/lib/CPUTime/CPUTime001.stdout +++ /dev/null @@ -1,4 +0,0 @@ -1028457 -1664079 -2692537 -(True,True) diff --git a/tests/lib/CPUTime/Makefile b/tests/lib/CPUTime/Makefile deleted file mode 100644 index 9101fbd..0000000 --- a/tests/lib/CPUTime/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -TOP=../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk diff --git a/tests/lib/CPUTime/all.T b/tests/lib/CPUTime/all.T deleted file mode 100644 index d204b0a..0000000 --- a/tests/lib/CPUTime/all.T +++ /dev/null @@ -1 +0,0 @@ -test('CPUTime001', normal, compile_and_run, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
