summaryrefslogtreecommitdiff
path: root/testsuite/tests/lib
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-11-19 21:36:39 +0000
committerIan Lynagh <igloo@earth.li>2011-11-19 21:36:39 +0000
commit770b0dab3c73ce574e3c7e8ae04c9f9a6e9f087e (patch)
tree8a647642ff9c6ebc7bc336a8a3c7a92561dda962 /testsuite/tests/lib
parent20d505250bb0aa827dee99917c8a3b067341c129 (diff)
downloadhaskell-770b0dab3c73ce574e3c7e8ae04c9f9a6e9f087e.tar.gz
CPUTime001 has moved to base/tests
Diffstat (limited to 'testsuite/tests/lib')
-rw-r--r--testsuite/tests/lib/CPUTime/CPUTime001.hs26
-rw-r--r--testsuite/tests/lib/CPUTime/CPUTime001.stdout4
-rw-r--r--testsuite/tests/lib/CPUTime/Makefile3
-rw-r--r--testsuite/tests/lib/CPUTime/all.T1
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, [''])