diff --git a/tests/test/units/system/tfiledir.pp b/tests/test/units/system/tfiledir.pp
index b95ce54921..cbd6a0dad4 100644
--- a/tests/test/units/system/tfiledir.pp
+++ b/tests/test/units/system/tfiledir.pp
@@ -7,8 +7,11 @@ uses
 {$endif}
   sysutils;
 
+const
+  RusCP = {$ifdef android} 1251 {$else} 866 {$endif};
+
 type
-  tcpstr866 = type ansistring(866);
+  tcpstrRusCP = type ansistring(RusCP);
 
 procedure error(const s: string);
 begin
@@ -27,7 +30,7 @@ end;
 procedure testsinglebyte;
 var
   u, u2,u3: utf8string;
-  c,c2,c3: tcpstr866;
+  c,c2,c3: tcpstrRusCP;
   f: file;
 begin
   u:='‹≈©◊';
@@ -54,30 +57,30 @@ begin
     Error('Removing utf8string dir');
 
   c:='Русская';
-  setcodepage(rawbytestring(c),866);
+  setcodepage(rawbytestring(c),RusCP);
   assign(f,c);
   rewrite(f);
   if ioresult<>0 then
-    Error('Creating cp866 file');
+    Error('Creating cp'+IntToStr(RusCP)+' file');
   close(f);
   if ioresult<>0 then
-    Error('Closing cp866 file');
+    Error('Closing cp'+IntToStr(RusCP)+' file');
   c2:='кая';
-  setcodepage(rawbytestring(c2),866);
+  setcodepage(rawbytestring(c2),RusCP);
   mkdir(c2);
   if ioresult<>0 then
-    Error('Creating cp866 dir');
+    Error('Creating cp'+IntToStr(RusCP)+' dir');
   c3:=c2+'/Русская1';
-  setcodepage(rawbytestring(c3),866);
+  setcodepage(rawbytestring(c3),RusCP);
   rename(f,c3);
   if ioresult<>0 then
-    Error('Renaming cp866 file');
+    Error('Renaming cp'+IntToStr(RusCP)+' file');
   erase(f);
   if ioresult<>0 then
-    Error('Erasing cp866 file');
+    Error('Erasing cp'+IntToStr(RusCP)+' file');
   rmdir(c2);
   if ioresult<>0 then
-    Error('Removing cp866 dir');
+    Error('Removing cp'+IntToStr(RusCP)+' dir');
 end;