diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-18 14:26:16 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-18 14:26:53 +0100 |
| commit | a67156eed3561d5964dc4a46e1cbbd66a0368923 (patch) | |
| tree | 167f8215ff9fccf934c9c03daf5938b733f0c1b2 /testsuite/tests | |
| parent | 03fe9141ad1e1532aa8dcfde2e0d0615d88d59cc (diff) | |
| download | haskell-a67156eed3561d5964dc4a46e1cbbd66a0368923.tar.gz | |
Test Trac #7954
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/perf/should_run/T7954.hs | 7 | ||||
| -rw-r--r-- | testsuite/tests/perf/should_run/T7954.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/perf/should_run/all.T | 9 |
3 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/perf/should_run/T7954.hs b/testsuite/tests/perf/should_run/T7954.hs new file mode 100644 index 0000000000..2b86d2fc39 --- /dev/null +++ b/testsuite/tests/perf/should_run/T7954.hs @@ -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 index 0000000000..0ca95142bb --- /dev/null +++ b/testsuite/tests/perf/should_run/T7954.stdout @@ -0,0 +1 @@ +True diff --git a/testsuite/tests/perf/should_run/all.T b/testsuite/tests/perf/should_run/all.T index 5dad870d05..5f99d190e7 100644 --- a/testsuite/tests/perf/should_run/all.T +++ b/testsuite/tests/perf/should_run/all.T @@ -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']) + |