diff --git a/tests/test/tcpstr19.pp b/tests/test/tcpstr19.pp index 79a002dcc6..30b7b44d9e 100644 --- a/tests/test/tcpstr19.pp +++ b/tests/test/tcpstr19.pp @@ -51,6 +51,8 @@ begin if StringCodePage(Copy(UTF8Encode('Test'), 1, 2)) <> CP_UTF8 then halt(3); R := 'Test'; +{$if not defined(FPC_CROSSCOMPILING) and not defined(FPC_CPUCROSSCOMPILING)} if StringCodePage(R) <> DefaultSystemCodePage then halt(4); +{$endif} end. diff --git a/tests/test/tcpstr9.pp b/tests/test/tcpstr9.pp index 74b78a1026..0450241ef0 100644 --- a/tests/test/tcpstr9.pp +++ b/tests/test/tcpstr9.pp @@ -36,11 +36,13 @@ uses begin // this test can be only run with the compiler built right now on the // same system +{$if not defined(FPC_CROSSCOMPILING) and not defined(FPC_CPUCROSSCOMPILING)} if StringCodePage(AnsiString('test')) <> DefaultSystemCodePage then begin WriteLn(StringCodePage(AnsiString('test')), ' <> ', DefaultSystemCodePage); halt(1); end; +{$endif} Writeln('ok'); end. diff --git a/tests/test/units/fpwidestring/tcpstr9fpwidestring.pp b/tests/test/units/fpwidestring/tcpstr9fpwidestring.pp index e09251f3ba..a25d03d67b 100644 --- a/tests/test/units/fpwidestring/tcpstr9fpwidestring.pp +++ b/tests/test/units/fpwidestring/tcpstr9fpwidestring.pp @@ -8,11 +8,13 @@ uses begin // this test can be only run with the compiler built right now on the // same system +{$if not defined(FPC_CROSSCOMPILING) and not defined(FPC_CPUCROSSCOMPILING)} if StringCodePage(AnsiString('test')) <> DefaultSystemCodePage then begin WriteLn(StringCodePage(AnsiString('test')), ' <> ', DefaultSystemCodePage); halt(1); end; +{$endif} Writeln('ok'); end.