pascalabcnet/TestSuite/hset1.pas

15 lines
312 B
ObjectPascal
Raw Normal View History

2021-01-08 21:56:42 +03:00
begin
2016-12-04 16:41:41 +03:00
var h1 := HSet(1,2,3);
var h2 := HSet(1,2,3);
assert(h1=h2);
h1 := HSet(1,2,3);
h2 := HSet(1,2);
assert(h1 > h2);
assert(h2 < h1);
2021-01-08 21:56:42 +03:00
h1 := [1,2,3];
h2 := [1,2,3];
assert(h1=h2);
h1 := HashSet&<integer>([1,2,3]);
h2 := HashSet&<integer>([1,2,3]);
assert(h1=h2);
2016-12-04 16:41:41 +03:00
end.