Selaa lähdekoodia

* bug fix in test taddbool.pp - it was testing longbool conversion to boolean
twice, and not testing wordbool conversion to boolean at all

Nikolay Nikolov 3 vuotta sitten
vanhempi
commit
9aefda1e6a
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      tests/test/cg/taddbool.pp

+ 2 - 2
tests/test/cg/taddbool.pp

@@ -881,8 +881,8 @@ Begin
    Fail;
    Fail;
  Write('wordbool conversion to boolean...');
  Write('wordbool conversion to boolean...');
  result := TRUE;
  result := TRUE;
- move(values,lb1,sizeof(lb1));
- if lb1 <> TRUE then
+ move(values,wb1,sizeof(wb1));
+ if wb1 <> TRUE then
     result := false;
     result := false;
  if result then
  if result then
     WriteLn('Success.')
     WriteLn('Success.')