pascalabcnet/TestSuite/nullable4.pas
Ivan Bondarev f04a1c2161 #2504
2021-08-29 10:37:11 +02:00

9 lines
367 B
ObjectPascal

var b: boolean := default(System.Nullable<byte>) = byte(0);
begin
assert(default(System.Nullable<byte>) = default(System.Nullable<byte>));
assert(default(System.Nullable<byte>) <> byte(0));
assert(default(System.Nullable<byte>) = nil);
assert(nil = default(System.Nullable<byte>));
assert(byte(0) <> default(System.Nullable<byte>));
assert(not b);
end.