Delete old fusion tests
authorBen Lippmeier <benl@ouroborus.net>
Mon, 23 Jan 2012 04:40:19 +0000 (15:40 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Mon, 23 Jan 2012 04:40:19 +0000 (15:40 +1100)
examples/fusion/DotP.hs [deleted file]
examples/fusion/Map_Map.hs [deleted file]
examples/fusion/Map_Map_Replicate.hs [deleted file]
examples/fusion/Map_Replicate.hs [deleted file]
examples/fusion/runtst.sh [deleted file]

diff --git a/examples/fusion/DotP.hs b/examples/fusion/DotP.hs
deleted file mode 100644 (file)
index 6682bdc..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-module DotP where
-import Data.Array.Parallel.Unlifted
-
--- > 1 loopU/loopU
-
-dotp :: UArr Double -> UArr Double -> Double
-dotp v w = sumU (zipWithU (*) v w)
-
diff --git a/examples/fusion/Map_Map.hs b/examples/fusion/Map_Map.hs
deleted file mode 100644 (file)
index b1707ed..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-module Map_Map where
-import Data.Array.Parallel.Unlifted
-
--- > 1 loopU/loopU
-
-map_map :: (Int -> Int) -> (Int -> Int) -> UArr Int -> UArr Int
-map_map f g = mapU f . mapU g
-
diff --git a/examples/fusion/Map_Map_Replicate.hs b/examples/fusion/Map_Map_Replicate.hs
deleted file mode 100644 (file)
index 118d4ac..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-module Map_Map_Replicate where
-import Data.Array.Parallel.Unlifted
-
--- > 2 loopU/loopU
-
-map_map_replicate :: (UA a, UA b, UA c)
-                  => (b -> c) -> (a -> b) -> Int -> a -> UArr c
-map_map_replicate f g n = mapU f . mapU g . replicateU n
-
diff --git a/examples/fusion/Map_Replicate.hs b/examples/fusion/Map_Replicate.hs
deleted file mode 100644 (file)
index b3783f8..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-module Map_Replicate where
-import Data.Array.Parallel.Unlifted
-
--- > 1 loopU/loopU
-
-map_replicate :: (UA a, UA b) => (a -> b) -> Int -> a -> UArr b
-map_replicate f n = mapU f . replicateU n
-
diff --git a/examples/fusion/runtst.sh b/examples/fusion/runtst.sh
deleted file mode 100644 (file)
index b24d903..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-#! /bin/bash
-
-GHC=../../../../../../../compiler/stage2/ghc-inplace
-OPTS="-package ndp\
-      -fglasgow-exts -O2 -funbox-strict-fields\
-      -fliberate-case-threshold100 -fno-method-sharing"
-
-verbose=no
-tests=
-
-exec 6> /dev/null
-
-for arg
-do
-  case $arg in
-    --verbose|-v) exec 6>&1
-                  ;;
-    *)            tests="$tests $arg"
-                  ;;
-  esac
-done
-
-tests=${tests:=`ls *.hs`}
-
-for file in $tests
-do
-  echo Testing $file >&6
-  rules=`sed -n 's/-- >[[:space:]]*\([0-9]\+\)[[:space:]]\+\([^[:space:]]\+\)/\1 \2/p' $file`
-  log=`echo $file | sed 's/\.hs$/.log/'`
-  echo "$GHC $OPTS -c $file -ddump-simpl-stats" >&6
-  if $GHC $OPTS -c $file -ddump-simpl-stats > $log
-  then
-    oldIFS=$IFS
-    IFS='
-'
-    for rule in `sed -n 's/-- >[[:space:]]*\([0-9]\+\)[[:space:]]\+\([^[:space:]]\+\)/\1 \2/p' $file`
-    do
-      if ! grep "$rule" $log > /dev/null 2>&1
-      then
-        echo "FAIL: $file ($rule)"
-        break
-      fi
-    done
-    IFS=$oldIFS
-  else
-    echo FAIL: $file - compiler error
-  fi
-done
-rm -f *.hi *.o
-