blob: 1e69764f0dc6e18dc97395f37d8748c5faaa19f9 (
plain)
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
// RUN: %dafny /compile:0 "%s" > "%t"
// RUN: %diff "%s.expect" "%t"
module A {
default export Public { f, h}
export E1 { f, g}
export E2 extends Public, E1 {T}
export Friend extends Public {g, T}
export Fruit {Data}
method h() {}
function f(): int { 818 }
function g() : int { 819 }
function k() : int { 820 }
class T
{
static method l() {}
}
datatype Data = Lemon | Kiwi(int)
}
module B {
import X = A.Public
method m() {
X.h(); // OK
assert X.f() == 818; // OK
assert X.g() == 819; // error
assert X.k() == 820; // error
X.T.l(); // error
}
}
module C {
import X = A.Friend
method m() {
X.h(); // OK
assert X.f() == 818; // OK
assert X.g() == 819; // OK
assert X.k() == 820; // error
X.T.l(); // OK
}
}
module D {
import opened A
method m() {
h(); // OK
assert f() == 818; // OK
assert g() == 819; // error
assert k() == 820; // error
}
}
module E {
import opened A.Fruit
function G(d: Data): int
requires d != Data.Lemon
{
match d
case Lemon => G(d)
case Kiwi(x) => 7
case Orang => 8 // error
}
}
module F {
default export Public { f, h}
default export E1 { f, g}
export E2 extends Public2, E1 {T} // error: Public2 is not a exported view of F
export Friend extends Public {g2, T} // error: g2 is not a member of F
export Fruit {Data}
method h() {}
function f(): int { 818 }
function g() : int { 819 }
function k() : int { 820 }
class T
{
static method l() {}
}
datatype Data = Lemon | Kiwi(int)
}
module G {
export Public { f, h}
method h() {}
function f(): int { 818 }
function g() : int { 819 }
function k() : int { 820 }
}
module H {
import G // error: G has no default export
}
module I {
import G.Public // OK
}
|