testsuite: reduced the number of failing tests from 25 to 13

Some tests may fail on Windows because of \ instead of / in paths.

testsuite/compiler/check/cyclic/abs-types/test1.gfs.gold

@@ -1,4 +1,4 @@
-
+
-
+
-checking module Test1Abs
+testsuite/compiler/check/cyclic/abs-types/Test1Abs.gf:
-   circular definitions: A B
+   circular definitions: A B

testsuite/compiler/check/cyclic/abs-types/test2.gfs.gold

@@ -1,4 +1,4 @@
-
+
-
+
-checking module Test2Abs
+testsuite/compiler/check/cyclic/abs-types/Test2Abs.gf:
-   circular definitions: f g
+   circular definitions: f g

testsuite/compiler/check/cyclic/opers/test.gfs.gold

@@ -1,8 +1,8 @@
-
+
-
+
-checking module TestOpers
+testsuite/compiler/check/cyclic/opers/TestOpers.gf:
-   circular definitions: A B
+   circular definitions: A B
-
+
-
+
-checking module TestOperTypes
+testsuite/compiler/check/cyclic/opers/TestOperTypes.gf:
-   circular definitions: A T
+   circular definitions: A T

testsuite/compiler/check/cyclic/params/test.gfs.gold

@@ -1,4 +1,4 @@
-
+
-
+
-checking module TestParams
+testsuite/compiler/check/cyclic/params/TestParams.gf:
-   circular definitions: A B
+   circular definitions: A B

testsuite/compiler/check/lincat-types/test.gfs.gold

@@ -1,7 +1,7 @@
-
+
-
+
-checking module TestCnc
+testsuite/compiler/check/lincat-types/TestCnc.gf:3:
-   Happened in linearization type of S in TestCnc.gf, line 3:
+  Happened in linearization type of S
-       type of PTrue
+    type of PTrue
-      expected: Type
+   expected: Type
-      inferred: PBool
+   inferred: PBool

testsuite/compiler/check/oper-definition/test.gfs.gold

@@ -1,5 +1,5 @@
-
+
-
+
-checking module Res
+testsuite/compiler/check/oper-definition/Res.gf:3:
-   Happened in operation my_oper in Res.gf, line 3:
+  Happened in operation my_oper
-      No definition given to the operation
+   No definition given to the operation

testsuite/compiler/params/params.gfs

@@ -1 +1 @@
-i testsuite\compiler\params\paramsCnc.gf
+i testsuite/compiler/params/paramsCnc.gf

testsuite/compiler/renamer/funpatt.gfs.gold

@@ -1,5 +1,5 @@
-
+
-
+
-renaming module funpatt
+testsuite/compiler/renamer/funpatt.gf:11:
-   renaming of d in funpatt.gf, line 11
+  Happened in the renaming of d
-      data constructor expected but funpatt.D1 is found instead
+   data constructor expected but funpatt.D1 is found instead

testsuite/compiler/typecheck/abstract/test_A.gfs.gold

@@ -1,5 +1,5 @@
-
+
-
+
-checking module A
+testsuite/compiler/typecheck/abstract/A.gf:4:
-   Prod expected for function A instead of Type
+  Happened in the category B
-   in category B in A.gf, line 4
+   Prod expected for function A instead of Type

testsuite/compiler/typecheck/abstract/test_B.gfs.gold

@@ -1,5 +1,5 @@
-
+
-
+
-checking module B
+testsuite/compiler/typecheck/abstract/B.gf:5:
-   Prod expected for function S instead of Type
+  Happened in the type of function f
-   in type of function f in B.gf, line 5
+   Prod expected for function S instead of Type

testsuite/compiler/typecheck/abstract/test_C.gfs.gold

@@ -1,5 +1,5 @@
-
+
-
+
-checking module C
+testsuite/compiler/typecheck/abstract/C.gf:6:
-   {Int <> S}
+  Happened in the definition of function f
-   in definition of function f in C.gf, line 6
+   {Int <> S}

testsuite/compiler/typecheck/concrete/test_A.gfs.gold

@@ -1,5 +1,5 @@
-
+
-
+
-checking module A
+testsuite/compiler/typecheck/concrete/A.gf:5:
-   Happened in operation silly in A.gf, line 5:
+  Happened in operation silly
-      A function type is expected for a_Det instead of type Str
+   A function type is expected for a_Det instead of type Str

testsuite/compiler/update/ArrityCheck.gfs.gold

@@ -1,8 +1,8 @@
-
+
-
+
-C:\gf\testsuite\compiler\update\ArrityCheck.gf:6:1: cannot unify the informations
+testsuite/compiler/update/ArrityCheck.gf:6:1:
-    fun f : Int -> Int -> Int ;
+   conflicting information in module ArrityCheck
-    def f 0 = \x -> x ;
+    fun f : Int -> Int -> Int ;
-and
+    def f 0 = \x -> x ;
-    def f 1 1 = 0 ;
+and
-in module ArrityCheck
+    def f 1 1 = 0 ;

testsuite/run.hs

@@ -9,7 +9,7 @@ import System.Exit(exitSuccess,exitFailure)
 main = 
    do res <- walk "testsuite"
       let cnt = length res
-          (good,bad) = partition ((=="OK").fst) res
+          (good,bad) = partition ((=="OK").fst.snd) res
           ok = length good
           fail = ok<cnt
       putStrLn $ show ok++"/"++show cnt++ " passed/tests"
@@ -24,15 +24,15 @@ main =
         "<!DOCTYPE html>\n"
         ++ "<meta charset=\"UTF-8\">\n"
         ++ "<style>\n"
-        ++ "pre { max-width: 500px; overflow: scroll; }\n"
+        ++ "pre { max-width: 600px; overflow: scroll; }\n"
         ++ "th,td { vertical-align: top; text-align: left; }\n"
         ++ "</style>\n"
         ++ "<table border=1>\n<tr><th>Result<th>Input<th>Gold<th>Output\n"
         ++ unlines (map testToHTML res)
         ++ "</table>\n"
 
-    testToHTML (res,(input,gold,output)) =
+    testToHTML (in_file,(res,(input,gold,output))) =
-      "<tr>"++concatMap (td.pre) [res,input,gold,output]
+      "<tr>"++concatMap td [pre res,in_file++":\n"++pre input,pre gold,pre output]
     pre s = "<pre>"++s++"</pre>"
     td s = "<td>"++s
 
@@ -45,9 +45,10 @@ main =
                then do let in_file   = fpath
                            gold_file = fpath <.> ".gold"
                            out_file  = fpath <.> ".out"
+                       putStr $ in_file++": "; hFlush stdout
                        res <- runTest in_file out_file gold_file
-                       putStrLn $ fst res++": "++in_file
+                       putStrLn $ fst res
-                       return [res]
+                       return [(in_file,res)]
                else return []
         else walk fpath