diff --git a/tests/test/tcpstr18.pp b/tests/test/tcpstr18.pp
index ff6884bfba..4236636581 100644
--- a/tests/test/tcpstr18.pp
+++ b/tests/test/tcpstr18.pp
@@ -36,7 +36,6 @@ uses
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}
-{$endif}
 
 procedure TestRawByte(const Source: RawByteString; cp: word; const reason: integer);
 begin
diff --git a/tests/test/tunistr1.pp b/tests/test/tunistr1.pp
index 817fbd0e40..958a24dd0c 100644
--- a/tests/test/tunistr1.pp
+++ b/tests/test/tunistr1.pp
@@ -27,7 +27,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 {$endif def USE_INTERNAL_UNICODE}
 
 var
diff --git a/tests/test/tunistr2.pp b/tests/test/tunistr2.pp
index 6f4e40de79..6ed364ff34 100644
--- a/tests/test/tunistr2.pp
+++ b/tests/test/tunistr2.pp
@@ -27,7 +27,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 {$endif def USE_INTERNAL_UNICODE}
 
 var
diff --git a/tests/test/twrstr9.pp b/tests/test/twrstr9.pp
index d1e72d1b28..2d261a8adc 100644
--- a/tests/test/twrstr9.pp
+++ b/tests/test/twrstr9.pp
@@ -26,7 +26,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 
 type
   ts866 = type ansistring( {$ifdef android} 1251 {$else} 866 {$endif} );
diff --git a/tests/test/units/system/tdir2.pp b/tests/test/units/system/tdir2.pp
index ab0da53a5b..02d34f0d77 100644
--- a/tests/test/units/system/tdir2.pp
+++ b/tests/test/units/system/tdir2.pp
@@ -42,7 +42,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 {$endif def USE_INTERNAL_UNICODE}
 
 procedure test(value, required: longint);