paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 10:48:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@19068 -
This commit is contained in:
Jonas Maebe 2011-09-15 12:47:23 +00:00
parent 874f27a105
commit 05c4c3ae25
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

14
tests/webtbs/tw20257.pp Normal file
View File

@ -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.