Make test error give failing line

gap-system · Jun 11, 2018 · 13c7dd4 · 13c7dd4
1 parent 571a2cd
commit 13c7dd4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/test.gi b/lib/test.gi
@@ -62,7 +62,7 @@ InstallGlobalFunction(ParseTestInput, function(str, ignorecomments)
       Add(outp[Length(outp)], '\n');
       i := i+1;
     else
-      Error("Invalid data in test file");
+      Error("Invalid data at line ", i, " of test file");
       i := i+1;
     fi;
   od;

diff --git a/tst/testinstall/files/test.tst b/tst/testinstall/files/test.tst
@@ -4,7 +4,7 @@ gap> Test(Filename(dir,"empty.txt"));
 #I  Test: File does not contain any tests!
 true
 gap> Test(Filename(dir,"invalidtestfile.txt"));
-Error, Invalid data in test file
+Error, Invalid data at line 7 of test file
 gap> Test(Filename(dir, "tinytest.txt"));
 true
 gap> STOP_TEST("test.tst");