pascalabcnet/TestSuite/RangeT empty.pas

13 lines
329 B
ObjectPascal
Raw Normal View History

2023-12-04 00:11:58 +03:00
##
Assert( (2..2).IsEmpty = false );
Assert( (2..3).IsEmpty = false );
Assert( (3..2).IsEmpty = true );
Assert( ('b'..'b').IsEmpty = false );
Assert( ('b'..'c').IsEmpty = false );
Assert( ('c'..'b').IsEmpty = true );
2023-12-04 11:06:17 +03:00
Assert( (2.0..2).IsEmpty = false );
2023-12-04 00:11:58 +03:00
Assert( (2.0..3).IsEmpty = false );
Assert( (3.0..2).IsEmpty = true );