pascalabcnet/TestSuite/isVar.pas

4 lines
79 B
ObjectPascal

begin
var b := ('abc' is string(var s)) and (s = 'abc');
Assert(b);
end.