Test Trac #7954
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 18 Jun 2013 13:26:16 +0000 (14:26 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 18 Jun 2013 13:26:53 +0000 (14:26 +0100)
testsuite/tests/perf/should_run/T7954.hs [new file with mode: 0644]
testsuite/tests/perf/should_run/T7954.stdout [new file with mode: 0644]
testsuite/tests/perf/should_run/all.T

diff --git a/testsuite/tests/perf/should_run/T7954.hs b/testsuite/tests/perf/should_run/T7954.hs
new file mode 100644 (file)
index 0000000..2b86d2f
--- /dev/null
@@ -0,0 +1,7 @@
+module Main where
+
+norm ::  [Double] -> Double
+norm = sqrt . sum . map (\x -> x*x)
+   
+main :: IO ()
+main = print (norm (enumFromTo 0 10000000) > 100) 
diff --git a/testsuite/tests/perf/should_run/T7954.stdout b/testsuite/tests/perf/should_run/T7954.stdout
new file mode 100644 (file)
index 0000000..0ca9514
--- /dev/null
@@ -0,0 +1 @@
+True
index 5dad870..5f99d19 100644 (file)
@@ -274,3 +274,12 @@ test('T7797',
      compile_and_run,
      ['-O'])
 
+test('T7954',
+      [stats_num_field('bytes allocated', 
+                      [(wordsize(32),  880051408, 10),
+                       (wordsize(64), 1680051408, 10)]),
+      only_ways(['normal'])
+      ],
+     compile_and_run,
+     ['-O'])
+