Commit 4fe140c9 authored by dterei's avatar dterei

cleaning of testsuite

parent 8a931a60
TOP = .
# 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):
config.run_ways.append('profthreaded')
if (ghc_with_llvm == 1):
config.compile_ways.append('optllvm')
config.run_ways.append('optllvm')
config.in_tree_compiler = in_tree_compiler
......@@ -157,3 +158,4 @@ def get_compiler_info():
config.package_conf_cache_file = compilerInfoDict["Global Package DB"] + '/package.cache'
except:
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():
pass
......@@ -2,10 +2,6 @@
# (c) Simon Marlow 2002
#
# ToDo:
# GHCi tests
# expect failure for some ways only
import sys
import os
import string
......
--Testing type synonyms
type Foo = String
let foo = "foo" :: Foo
:t foo
Current known failures
~~~~~~~~~~~~~~~~~~~~~~
deSugar/should_compile/ds052
-- inaccuracy in non-exhaustive pattern warnings
lib/IO/hReady001
-- 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?
parser/should_fail/read002
-- we don't disallow certain characters in strings (eg. newline)
parser/should_fail/read024
-- parser bug related to layout processing
rename/should_fail/rnfail034
-- duplicated "in" in an error message
typecheck/should_fail/tcfail080
-- ambiguity test: ambiguity isn't detected early enough
-- (behaviour is sound but could be more helpful, according
-- to SPJ)
typecheck/should_run/tcrun007
-- tests for generics, which are currently broken in 5.02
programs/okeefe_neural
-- 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
numeric/should_run/arith008
numeric/should_run/arith012
programs/barton_mangler_bug
programs/cholewo-eval
programs/galois_raytrace
......@@ -10,9 +10,9 @@ ifeq "$(findstring base,$(LIBRARIES))" ""
$(error base library does not seem to be installed)
endif
# XXX Do this better?
# Now find the "tests" directories of those libraries, where they exist
LIBRARY_TEST_PATHS := $(wildcard $(patsubst %, $(TOP)/../libraries/%/tests, $(LIBRARIES)))
# Add tests from packages
RUNTEST_OPTS += $(patsubst %, --rootdir=%, $(LIBRARY_TEST_PATHS))
Deficiencies
~~~~~~~~~~~~
typecheck/should_compile tc056,tc115,tc116: stderr not checked
(maybe fixed; ToDo: check)
typecheck/should_fail
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)
rename/should_compile
rn037 issues
stranal/should_compile
There are some failures in here due to unexpected stdouts
(the compiler isn't asked to generate any?)
specialise/
Contains complete progs. Not done yet.
simpleCore/should_compile
simpl006 has extra bits
deSugar/should_compile
cvh-ds-unboxed/ not done
specialise/
none of these are run in the old framework, so not included
in new.
module Main (main) where
import System.IO
......
{-# LANGUAGE CPP, ForeignFunctionInterface #-}
module WinCBindings where
#if defined(mingw32_HOST_OS)
......
Name: timeout
-- XXX Version number:
Version: 1
Copyright: XXX
Copyright: GHC Team
License: BSD3
-- XXX License-File: LICENSE
Author: XXX
Maintainer: XXX
Synopsis: XXX
Description:
XXX
Author: GHC Team <cvs-ghc@haskell.org>
Maintainer: GHC Team <cvs-ghc@haskell.org>
Synopsis: timout utility
Description: timeout utility
Category: Development
build-type: Simple
cabal-version: >=1.2
......
{-# OPTIONS -cpp #-}
module Main where
import Prelude hiding (catch)
import Control.Concurrent (forkIO, threadDelay)
import Control.Concurrent.MVar (putMVar, takeMVar, newEmptyMVar)
import Control.Monad
import Control.Exception
import Data.Maybe (isNothing)
import System.Environment (getArgs)
import System.Exit
import System.IO (hPutStrLn, stderr)
import Control.Monad
#if !defined(mingw32_HOST_OS)
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