Test/hofs/ResolveError.dfy


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

// RUN: %dafny /print:"%t.print" "%s" > "%t"
// RUN: %diff "%s.expect" "%t"


method ResolutionErrors() {
    var x;
    var g5 := x, y => (y, x);   // fail at resolution
    var g6 := x, (y => (y, x)); // fail at resolution
}

// cannot assign functions

class Apa {
  function f() : int {
    0
  }
}

method Nope3() {
  var apa := new Apa;
  apa.f := () => 2;
}

method RequiresFail(f : int -> int)
  // ok
  requires f(0) == 0;
  requires f.requires(0);
  requires f.reads(0) == {};

  // fail
  requires f(0) == true;
  requires f(1,2) == 0;
  requires f(true) == 0;
  requires f.requires(true);
  requires f.requires(1) == 0;
  requires f.requires(1,2);
  requires f.reads(true) == {};
  requires f.reads(1) == 0;
  requires f.reads(1,2) == {};
{
}

method Bogus()
{
  var f;
  f := x reads 1 => x;
  f := x requires 1 => x;
}

predicate method Bool()
{
  true
}

method Bla() {
  assert Bool;
}

method Pli(f : A -> B) requires f != null;
{
  var o : object;
  assert f != o;
}

method Underscores() {
  var u := _ => 0;
  var v := (_, _) => 0;
  var w := (_, _, _) => _;
}