diff options
author | qadeer <qadeer@microsoft.com> | 2011-10-05 19:31:21 -0700 |
---|---|---|
committer | qadeer <qadeer@microsoft.com> | 2011-10-05 19:31:21 -0700 |
commit | 7ea78551342ff1a1bfe36e2c7f9eaa44a2096a35 (patch) | |
tree | 39253d3c9014af50b1ec1d0eedb7ebd720ddbd2f /Test/datatypes | |
parent | 696796e1dcea137ee9b5c270b233892dd3267155 (diff) |
added membership tests
Diffstat (limited to 'Test/datatypes')
-rw-r--r-- | Test/datatypes/t1.bpl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Test/datatypes/t1.bpl b/Test/datatypes/t1.bpl index 61409465..b56e26ae 100644 --- a/Test/datatypes/t1.bpl +++ b/Test/datatypes/t1.bpl @@ -16,5 +16,9 @@ procedure foo() assert value#node(node(x, nil())) == x;
assert children#node(node(x, nil())) == nil();
- assert (cons(leaf(), nil()) == nil());
+ assert (cons(leaf(), nil()) != nil());
+
+ assert is#nil(nil());
+
+ assert is#node(leaf());
}
\ No newline at end of file |