* renamed tb0488.pp to tb0488a.pp

* added tb0488b test program

git-svn-id: trunk@1774 -

.gitattributes

@@ -5064,7 +5064,8 @@ tests/tbs/tb0484.pp svneol=native#text/plain
 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/tb0488.pp svneol=native#text/plain
+tests/tbs/tb0488a.pp svneol=native#text/plain
+tests/tbs/tb0488b.pp -text
 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/tb0488b.pp

@@ -0,0 +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.