+ test for mantis #20257 (already fixed in 2.7.x)

git-svn-id: trunk@19068 -

.gitattributes

@@ -11783,6 +11783,7 @@ tests/webtbs/tw2004.pp svneol=native#text/plain
 tests/webtbs/tw20093.pp svneol=native#text/pascal
 tests/webtbs/tw20093a.pp svneol=native#text/pascal
 tests/webtbs/tw20119.pp -text svneol=native#test/pascal
+tests/webtbs/tw20257.pp svneol=native#text/plain
 tests/webtbs/tw2028.pp svneol=native#text/plain
 tests/webtbs/tw2030.pp svneol=native#text/plain
 tests/webtbs/tw2031.pp svneol=native#text/plain

tests/webtbs/tw20257.pp

@@ -0,0 +1,14 @@
+program bool_compare_bug;
+
+var test_for_0:integer;
+      expect:bytebool;
+begin // test 1 -- passed
+      test_for_0:=1;
+      expect:=false;
+      if (test_for_0=0)=expect then writeln('> pass')else halt(1);
+      // test 2 -- FAILED! [bug]
+      test_for_0:=0;
+      expect:=true;
+      if (test_for_0=0)=expect then writeln('> pass')else halt(2);
+      //
+end.