diff options
author | Ian Lynagh <igloo@earth.li> | 2011-11-19 21:36:39 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-11-19 21:36:39 +0000 |
commit | 770b0dab3c73ce574e3c7e8ae04c9f9a6e9f087e (patch) | |
tree | 8a647642ff9c6ebc7bc336a8a3c7a92561dda962 /testsuite/tests/lib | |
parent | 20d505250bb0aa827dee99917c8a3b067341c129 (diff) | |
download | haskell-770b0dab3c73ce574e3c7e8ae04c9f9a6e9f087e.tar.gz |
CPUTime001 has moved to base/tests
Diffstat (limited to 'testsuite/tests/lib')
-rw-r--r-- | testsuite/tests/lib/CPUTime/CPUTime001.hs | 26 | ||||
-rw-r--r-- | testsuite/tests/lib/CPUTime/CPUTime001.stdout | 4 | ||||
-rw-r--r-- | testsuite/tests/lib/CPUTime/Makefile | 3 | ||||
-rw-r--r-- | testsuite/tests/lib/CPUTime/all.T | 1 |
4 files changed, 0 insertions, 34 deletions
diff --git a/testsuite/tests/lib/CPUTime/CPUTime001.hs b/testsuite/tests/lib/CPUTime/CPUTime001.hs deleted file mode 100644 index 6c43c57ec5..0000000000 --- a/testsuite/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/testsuite/tests/lib/CPUTime/CPUTime001.stdout b/testsuite/tests/lib/CPUTime/CPUTime001.stdout deleted file mode 100644 index 032e7595f0..0000000000 --- a/testsuite/tests/lib/CPUTime/CPUTime001.stdout +++ /dev/null @@ -1,4 +0,0 @@ -1028457 -1664079 -2692537 -(True,True) diff --git a/testsuite/tests/lib/CPUTime/Makefile b/testsuite/tests/lib/CPUTime/Makefile deleted file mode 100644 index 9101fbd40a..0000000000 --- a/testsuite/tests/lib/CPUTime/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -TOP=../../.. -include $(TOP)/mk/boilerplate.mk -include $(TOP)/mk/test.mk diff --git a/testsuite/tests/lib/CPUTime/all.T b/testsuite/tests/lib/CPUTime/all.T deleted file mode 100644 index d204b0a7aa..0000000000 --- a/testsuite/tests/lib/CPUTime/all.T +++ /dev/null @@ -1 +0,0 @@ -test('CPUTime001', normal, compile_and_run, ['']) |