Browse Source

+ test for mantis #19622, fixed by sergei in r28266

git-svn-id: trunk@28861 -
Jonas Maebe 10 years ago
parent
commit
1334fe10c1
2 changed files with 8 additions and 34 deletions
  1. 1 1
      .gitattributes
  2. 7 33
      tests/webtbs/tw19622.pp

+ 1 - 1
.gitattributes

@@ -13718,7 +13718,7 @@ tests/webtbs/tw19548.pp svneol=native#text/pascal
 tests/webtbs/tw19555.pp svneol=native#text/pascal
 tests/webtbs/tw19555.pp svneol=native#text/pascal
 tests/webtbs/tw19581.pp svneol=native#text/plain
 tests/webtbs/tw19581.pp svneol=native#text/plain
 tests/webtbs/tw19610.pp svneol=native#text/plain
 tests/webtbs/tw19610.pp svneol=native#text/plain
-tests/webtbs/tw19622.pp svneol=native#text/plain
+tests/webtbs/tw19622.pp -text svneol=native#text/plain
 tests/webtbs/tw1964.pp svneol=native#text/plain
 tests/webtbs/tw1964.pp svneol=native#text/plain
 tests/webtbs/tw19651.pp svneol=native#text/plain
 tests/webtbs/tw19651.pp svneol=native#text/plain
 tests/webtbs/tw19697.pp svneol=native#text/pascal
 tests/webtbs/tw19697.pp svneol=native#text/pascal

+ 7 - 33
tests/webtbs/tw19622.pp

@@ -1,33 +1,7 @@
-Var a,b:qword;
-      c:boolean;
-      aa,bb:longword;      
-Begin
-    a:=qword($FFFFFFFFFFFFFFFF);
-    b:=9223372036854775807;
-    c:=a>b;
-    if not c then
-      halt(1);
-    if not(qword($FFFFFFFFFFFFFFFF)>9223372036854775807) then
-      halt(2);
-    c:=qword($FFFFFFFFFFFFFFFF)>b;
-    if not c then
-      halt(3);
-    c:=18446744073709551615>=9223372036854775807;  
-    if not c then
-      halt(4);
-    
-    
-    aa:=$FFFFFFFF;
-    bb:=2147483647;
-    c:=aa>bb;
-    if not c then
-      halt(5);
-    if not ($FFFFFFFF>2147483647) then
-      halt(6);
-    c:=$FFFFFFFF>bb;
-    if not c then
-      halt(7);
-    c:=4294967295>=2147483647;
-    if not c then
-      halt(8);
-End.
+var
+  c:boolean;
+Begin
+    c:=18446744073709551615>=9223372036854775807;
+    if not(c) then
+      halt(1);
+End.