administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

revert RealRange.IsEmpty

Browse source
This commit is contained in:
Sun Serega 2023-12-04 10:06:17 +02:00
parent c07c5d712a
commit 71535a9af1
3 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
TestSuite/RangeT empty.pas
View file

@ -8,6 +8,6 @@ Assert( ('b'..'b').IsEmpty = false );
Assert( ('b'..'c').IsEmpty = false );
Assert( ('c'..'b').IsEmpty = true );
Assert( (2.0..2).IsEmpty = true );
Assert( (2.0..2).IsEmpty = false );
Assert( (2.0..3).IsEmpty = false );
Assert( (3.0..2).IsEmpty = true );

4
TestSuite/RangeT in.pas
View file

@ -18,4 +18,6 @@ Assert( 1 not in rr );
Assert( 2 in rr );
Assert( 2.5 in rr );
Assert( 3 in rr );
Assert( 4 not in rr );
Assert( 4 not in rr );
Assert( 2 in 2.0..2 );

2
bin/Lib/PABCSystem.pas
View file

@ -786,7 +786,7 @@ type
end;
/// Возвращает True если диапазон пуст
function IsEmpty: boolean := l>=h;
function IsEmpty: boolean := l>h;
function ToString: string; override := $'{l}..{h}';