diff --git a/tests/test/units/math/tnaninf.pp b/tests/test/units/math/tnaninf.pp
index 382e41126a..592eb91756 100644
--- a/tests/test/units/math/tnaninf.pp
+++ b/tests/test/units/math/tnaninf.pp
@@ -5,13 +5,13 @@ procedure DoTestSingle;
 var
   val: Single;
 begin
-  val := nan;
+  val := NaN;
   if not(isnan(val)) then
     begin
       writeln('error single 1');
       halt(1);
     end;
-  val := infinity;
+  val := Infinity;
   if not(isinfinite(val)) then
     begin
       writeln('error single 2');
@@ -42,13 +42,13 @@ procedure DoTestDouble;
 var
   val: Double;
 begin
-  val := nan;
+  val := NaN;
   if not(isnan(val)) then
     begin
       writeln('error double 1');
       halt(1);
     end;
-  val := infinity;
+  val := Infinity;
   if not(isinfinite(val)) then
     begin
       writeln('error double 2');
@@ -80,13 +80,13 @@ procedure DoTestExtended;
 var
   val: Extended;
 begin
-  val := nan;
+  val := NaN;
   if not(isnan(val)) then
     begin
       writeln('error extended 1');
       halt(1);
     end;
-  val := infinity;
+  val := Infinity;
   if not(isinfinite(val)) then
     begin
       writeln('error extended 2');
diff --git a/tests/webtbs/tw4100.pp b/tests/webtbs/tw4100.pp
index 3acb1f832e..996fb08b01 100644
--- a/tests/webtbs/tw4100.pp
+++ b/tests/webtbs/tw4100.pp
@@ -20,5 +20,5 @@
         writeln('test');
         writeln(StrToFloat('1e7'));
         writeln(Z);
-        end.
+    end.