diff --git a/.gitattributes b/.gitattributes index e9ef10a0f6..06f611b132 100644 --- a/.gitattributes +++ b/.gitattributes @@ -6227,18 +6227,18 @@ tests/tbs/tb0485.pp svneol=native#text/plain tests/tbs/tb0486.pp svneol=native#text/plain tests/tbs/tb0487.pp svneol=native#text/plain tests/tbs/tb0488a.pp svneol=native#text/plain -tests/tbs/tb0488b.pp -text +tests/tbs/tb0488b.pp svneol=native#text/plain tests/tbs/tb0489.pp svneol=native#text/plain tests/tbs/tb0490.pp svneol=native#text/plain tests/tbs/tb0491.pp svneol=native#text/plain tests/tbs/tb0492.pp svneol=native#text/plain tests/tbs/tb0493.pp svneol=native#text/plain -tests/tbs/tb0494.pp -text +tests/tbs/tb0494.pp svneol=native#text/plain tests/tbs/tb0495.pp svneol=native#text/plain tests/tbs/tb0496.pp svneol=native#text/plain -tests/tbs/tb0497a.pp -text -tests/tbs/tb0497b.pp -text -tests/tbs/tb0497c.pp -text +tests/tbs/tb0497a.pp svneol=native#text/plain +tests/tbs/tb0497b.pp svneol=native#text/plain +tests/tbs/tb0497c.pp svneol=native#text/plain tests/tbs/tb0498.pp svneol=native#text/plain tests/tbs/tb0499.pp svneol=native#text/plain tests/tbs/tb0500.pp svneol=native#text/plain @@ -6267,9 +6267,10 @@ tests/tbs/tb0522.pp svneol=native#text/plain tests/tbs/tb0523.pp svneol=native#text/plain tests/tbs/tb0524.pp svneol=native#text/x-pascal tests/tbs/tb0525.pp svneol=native#text/plain -tests/tbs/tb0526.pp -text +tests/tbs/tb0526.pp svneol=native#text/plain tests/tbs/tb0527.pp svneol=native#text/plain tests/tbs/tb0528.pp svneol=native#text/x-pascal +tests/tbs/tb0529.pp svneol=native#text/plain tests/tbs/tb0530.pp svneol=native#text/plain tests/tbs/tb0531.pp svneol=native#text/plain tests/tbs/tb0532.pp svneol=native#text/x-pascal diff --git a/tests/tbs/tb0488b.pp b/tests/tbs/tb0488b.pp index 971f1e4f0a..5c04b2e717 100644 --- a/tests/tbs/tb0488b.pp +++ b/tests/tbs/tb0488b.pp @@ -1,18 +1,18 @@ -{ Checks whether the %x format string supports qwords. - This is a variation of tb0488a -} - -uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru; - -procedure Check(a,b:ansistring); -begin - if a<>b then - begin - writeln(a,' should be equal to ',b); - error; - end; -end; - -begin - check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF'); -end. +{ Checks whether the %x format string supports qwords. + This is a variation of tb0488a +} + +uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru; + +procedure Check(a,b:ansistring); +begin + if a<>b then + begin + writeln(a,' should be equal to ',b); + error; + end; +end; + +begin + check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF'); +end. diff --git a/tests/tbs/tb0526.pp b/tests/tbs/tb0526.pp index 45da2680bc..5657d2ebf4 100644 --- a/tests/tbs/tb0526.pp +++ b/tests/tbs/tb0526.pp @@ -1,16 +1,16 @@ -{%norun} -{$mode objfpc} -type - TMyClass = class - protected - Field1 {$IFDEF DUMMY}, Field2 {$ENDIF} : Boolean; - procedure Proc; - end; - -procedure TMyClass.Proc; -begin - Field1:=True; -end; - -begin -end. +{%norun} +{$mode objfpc} +type + TMyClass = class + protected + Field1 {$IFDEF DUMMY}, Field2 {$ENDIF} : Boolean; + procedure Proc; + end; + +procedure TMyClass.Proc; +begin + Field1:=True; +end; + +begin +end.