Added RUN and CHECK commands for Bench tests

dmpots · Aug 16, 2011 · 4d731dd · 4d731dd
1 parent 8220273
commit 4d731dd
Show file tree

Hide file tree

Showing 8 changed files with 18 additions and 2 deletions.
diff --git a/tests/Bench/Append.hs b/tests/Bench/Append.hs
@@ -1,5 +1,7 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
 {-# OPTIONS_GHC -O0 #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Bool.True!con_info 
 module Bench.Append where
 
 import GHC.Types

diff --git a/tests/Bench/Primes.hs b/tests/Bench/Primes.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Bool.True!con_info 
 module Bench.Primes where
 
 import GHC.Prim
@@ -25,7 +27,7 @@ root n = primes !! n
     primes = map head (iterate the_filter (iterate succ 2))
 
 test = 
-  root 10 == 13
+  root 10 == 31
   --(root 1500 == 12569)
 
 {-
@@ -52,4 +54,4 @@ let x0 = 2 : iterate succ (succ 2); let x1 = the_filter x0; ... in head x10
 ... x1 = filter (isdivs 2) (iterate succ (succ 2)) ...
 ... x1 = 2 : filter (isdivs 2) (iterate succ (succ 2)) ...
 
--}
+-}
diff --git a/tests/Bench/SumFromTo1.hs b/tests/Bench/SumFromTo1.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Bool.True!con_info
 module Bench.SumFromTo1 where
 
 import GHC.Prim

diff --git a/tests/Bench/SumFromTo2.hs b/tests/Bench/SumFromTo2.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Types.I#!con_info 0x00000000000013ba
 module Bench.SumFromTo2 where
 
 import GHC.Prim

diff --git a/tests/Bench/SumFromTo3.hs b/tests/Bench/SumFromTo3.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Bool.True!con_info
 module Bench.SumFromTo3 where
 
 import GHC.Prim

diff --git a/tests/Bench/SumFromTo4.hs b/tests/Bench/SumFromTo4.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Bool.True!con_info
 module Bench.SumFromTo4 where
 
 import GHC.Prim

diff --git a/tests/Bench/SumSquare1.hs b/tests/Bench/SumSquare1.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Bool.True!con_info
 module Bench.SumSquare1 where
 
 import GHC.Prim

diff --git a/tests/Bench/Tak.hs b/tests/Bench/Tak.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude, BangPatterns, MagicHash #-}
+-- RUN: %bc_vm_chk
+-- CHECK: @Result@ IND -> GHC.Types.I#!con_info 0x0000000000000003
 module Bench.Tak where
 
 import GHC.Types