- test removed as it cannot work on all variants of currency support

git-svn-id: trunk@44107 -

.gitattributes

@@ -17988,7 +17988,6 @@ tests/webtbs/tw3612.pp svneol=native#text/plain
 tests/webtbs/tw36156.pp svneol=native#text/plain
 tests/webtbs/tw36157.pp svneol=native#text/plain
 tests/webtbs/tw3617.pp svneol=native#text/plain
-tests/webtbs/tw36179.pp svneol=native#text/pascal
 tests/webtbs/tw3619.pp svneol=native#text/plain
 tests/webtbs/tw36196.pp svneol=native#text/pascal
 tests/webtbs/tw3621.pp svneol=native#text/plain

tests/webtbs/tw36179.pp

@@ -1,16 +0,0 @@
-var
-   c: currency;
-   s: string;
-begin
-   c:=922337203685.47;
-   writeln(c:18:4,' = ', ' Trunc(c*10000)=', Trunc(c*10000)); // expected 9223372036854700, but get -75
-   str(trunc(c*10000),s);
-   if s<>'9223372036854700' then
-     halt(1);
-   c:=-92233720368547;
-   writeln(c:18:4,' = ', ' Trunc(c*10000)=', Trunc(c*10000)); // expected -922337203685470000, but get 7580
-   str(trunc(c*10000),s);
-   if s<>'-922337203685470000' then
-     halt(1);
-   writeln('ok');
-end.