* prevent crash in dotest in case a test file contains a line at the start

    with only whitespace on it (such as webtbf/tw21873.pp)

git-svn-id: trunk@21119 -

tests/utils/testu.pp

@@ -163,9 +163,9 @@ begin
      readln(t,s);
      if Copy(s,1,3)=#$EF#$BB#$BF then
        delete(s,1,3);
+     TrimB(s);
      if s<>'' then
       begin
-        TrimB(s);
         if s[1]='{' then
          begin
            delete(s,1,1);