Commit 4fe140c9 authored by dterei's avatar dterei

cleaning of testsuite

parent 8a931a60
TOP = . TOP = .
# If we're cleaning then we don't want to do all the GHC detection hardwork, # If we're cleaning then we don't want to do all the GHC detection hardwork,
...@@ -56,6 +56,7 @@ if (ghc_with_profiling == 1 and ghc_with_threaded_rts == 1): ...@@ -56,6 +56,7 @@ if (ghc_with_profiling == 1 and ghc_with_threaded_rts == 1):
config.run_ways.append('profthreaded') config.run_ways.append('profthreaded')
if (ghc_with_llvm == 1): if (ghc_with_llvm == 1):
config.run_ways.append('optllvm') config.run_ways.append('optllvm')
config.in_tree_compiler = in_tree_compiler config.in_tree_compiler = in_tree_compiler
...@@ -157,3 +158,4 @@ def get_compiler_info(): ...@@ -157,3 +158,4 @@ def get_compiler_info():
config.package_conf_cache_file = compilerInfoDict["Global Package DB"] + '/package.cache' config.package_conf_cache_file = compilerInfoDict["Global Package DB"] + '/package.cache'
except: except:
config.package_conf_cache_file = '' config.package_conf_cache_file = ''
# Testsuite configuration setup for Hugs
# This file is Python source
config.compiler_type = 'hugs'
config.compiler = 'hugs-hc'
config.compiler_always_flags = []
# We test the 'normal' way only
config.compile_ways = ['normal']
config.run_ways = ['normal']
# No other ways for Hugs
config.other_ways = []
config.way_flags = { 'normal' : [] }
config.way_rts_flags = { 'normal' : [] }
def get_compiler_info():
...@@ -2,10 +2,6 @@ ...@@ -2,10 +2,6 @@
# (c) Simon Marlow 2002 # (c) Simon Marlow 2002
# #
# ToDo:
# GHCi tests
# expect failure for some ways only
import sys import sys
import os import os
import string import string
--Testing type synonyms
type Foo = String
let foo = "foo" :: Foo
:t foo
Current known failures
-- inaccuracy in non-exhaustive pattern warnings
-- IO.hReady doesn't detect the end of a file
lib/IO/openFile005, openFile007, readFile001 [Windows]
-- file locking is broken on Windows
lib/IOExts/hTell001, hTell002 [Windows]
-- seeking on text handles not implemented on Windows
lib/net/net001 [Windows]
-- getProtocolByName seems not to be working on Windows
lib/system/system001 [Windows]
-- probably a failure due to System.system using Cmd.exe?
-- we don't disallow certain characters in strings (eg. newline)
-- parser bug related to layout processing
-- duplicated "in" in an error message
-- ambiguity test: ambiguity isn't detected early enough
-- (behaviour is sound but could be more helpful, according
-- to SPJ)
-- tests for generics, which are currently broken in 5.02
-- causes the compiler to run out of heap in the simplifier
-- (problem with large constant data structures?)
-- These tests fail the 'optasm' way, due to inconsistent floating
-- point results on x86. The inconsistency is caused
...@@ -10,9 +10,9 @@ ifeq "$(findstring base,$(LIBRARIES))" "" ...@@ -10,9 +10,9 @@ ifeq "$(findstring base,$(LIBRARIES))" ""
$(error base library does not seem to be installed) $(error base library does not seem to be installed)
endif endif
# XXX Do this better?
# Now find the "tests" directories of those libraries, where they exist # Now find the "tests" directories of those libraries, where they exist
LIBRARY_TEST_PATHS := $(wildcard $(patsubst %, $(TOP)/../libraries/%/tests, $(LIBRARIES))) LIBRARY_TEST_PATHS := $(wildcard $(patsubst %, $(TOP)/../libraries/%/tests, $(LIBRARIES)))
# Add tests from packages # Add tests from packages
RUNTEST_OPTS += $(patsubst %, --rootdir=%, $(LIBRARY_TEST_PATHS)) RUNTEST_OPTS += $(patsubst %, --rootdir=%, $(LIBRARY_TEST_PATHS))
typecheck/should_compile tc056,tc115,tc116: stderr not checked
(maybe fixed; ToDo: check)
Data82.hs Digraph.hs Digraph.stderr Inst82_1.hs Inst82_2.hs
have not been assimilated.
(are needed by tcfail082 but am not sure how to do multi-module
tests yet)
rn037 issues
There are some failures in here due to unexpected stdouts
(the compiler isn't asked to generate any?)
Contains complete progs. Not done yet.
simpl006 has extra bits
cvh-ds-unboxed/ not done
none of these are run in the old framework, so not included
in new.
module Main (main) where module Main (main) where
import System.IO import System.IO
{-# LANGUAGE CPP, ForeignFunctionInterface #-} {-# LANGUAGE CPP, ForeignFunctionInterface #-}
module WinCBindings where module WinCBindings where
#if defined(mingw32_HOST_OS) #if defined(mingw32_HOST_OS)
Name: timeout Name: timeout
-- XXX Version number:
Version: 1 Version: 1
Copyright: XXX Copyright: GHC Team
License: BSD3 License: BSD3
-- XXX License-File: LICENSE Author: GHC Team <>
Author: XXX Maintainer: GHC Team <>
Maintainer: XXX Synopsis: timout utility
Synopsis: XXX Description: timeout utility
Category: Development Category: Development
build-type: Simple build-type: Simple
cabal-version: >=1.2 cabal-version: >=1.2
{-# OPTIONS -cpp #-} {-# OPTIONS -cpp #-}
module Main where
import Prelude hiding (catch) import Prelude hiding (catch)
import Control.Concurrent (forkIO, threadDelay) import Control.Concurrent (forkIO, threadDelay)
import Control.Concurrent.MVar (putMVar, takeMVar, newEmptyMVar) import Control.Concurrent.MVar (putMVar, takeMVar, newEmptyMVar)
import Control.Monad
import Control.Exception import Control.Exception
import Data.Maybe (isNothing) import Data.Maybe (isNothing)
import System.Environment (getArgs) import System.Environment (getArgs)
import System.Exit import System.Exit
import System.IO (hPutStrLn, stderr) import System.IO (hPutStrLn, stderr)
import Control.Monad
#if !defined(mingw32_HOST_OS) #if !defined(mingw32_HOST_OS)
import System.Posix hiding (killProcess) import System.Posix hiding (killProcess)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment