Add failing deep set removal test to contracts

This commit is contained in:
John David Pressman 2019-10-14 15:48:20 -07:00 committed by Tom Jack
parent 79afad5bc7
commit 0b8c0dad3f

View File

@ -17,6 +17,9 @@ function remove_op (const s : set(string)) : set(string) is
function remove_syntax (var s : set(string)) : set(string) is function remove_syntax (var s : set(string)) : set(string) is
begin remove "foobar" from set s; end with s begin remove "foobar" from set s; end with s
function remove_deep (var s : set(string) * nat) : set(string) * nat is
begin remove "foobar" from set s.0; end with s
function patch_op (var s: set(string)) : set(string) is function patch_op (var s: set(string)) : set(string) is
begin patch s with set ["foobar"]; end with s begin patch s with set ["foobar"]; end with s