@@ -9,71 +9,79 @@ open Xunit
9
9
module Checked =
10
10
11
11
// SOURCE=unchecked01.fs # fsc-default
12
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unchecked01.fs" |]) >]
13
- let ``fsc - unchecked - unchecked01_fs`` compilation =
14
- compilation
12
+ [<Theory; FileInlineData( " unchecked01.fs" ) >]
13
+ let ``fsc - unchecked - unchecked01_fs`` compilation =
14
+ compilation
15
+ |> getCompilation
15
16
|> asFs
16
17
|> compile
17
18
|> shouldSucceed
18
19
19
20
// SOURCE=checked01.fs SCFLAGS="--checked" # fsc-checked
20
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unchecked01.fs" |]) >]
21
- let ``fsc - unchecked - unchecked01_fs -- checked`` compilation =
22
- compilation
21
+ [<Theory; FileInlineData( " unchecked01.fs" ) >]
22
+ let ``fsc - unchecked - unchecked01_fs -- checked`` compilation =
23
+ compilation
24
+ |> getCompilation
23
25
|> asFs
24
26
|> withOptions[ " --checked" ]
25
27
|> compile
26
28
|> shouldSucceed
27
29
28
30
// SOURCE=checked01.fs SCFLAGS="--checked+" # fsc-checked+
29
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unchecked01.fs" |]) >]
30
- let ``fsc - unchecked - unchecked01_fs -- checked + `` compilation =
31
- compilation
31
+ [<Theory; FileInlineData( " unchecked01.fs" ) >]
32
+ let ``fsc - unchecked - unchecked01_fs -- checked + `` compilation =
33
+ compilation
34
+ |> getCompilation
32
35
|> asFs
33
36
|> withOptions[ " --checked+" ]
34
37
|> compile
35
38
|> shouldSucceed
36
39
37
40
// SOURCE=unchecked01.fs SCFLAGS="--checked-" # fsc-checked-
38
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unchecked01.fs" |]) >]
39
- let ``fsc - unchecked - unchecked01_fs -- checked - `` compilation =
40
- compilation
41
+ [<Theory; FileInlineData( " unchecked01.fs" ) >]
42
+ let ``fsc - unchecked - unchecked01_fs -- checked - `` compilation =
43
+ compilation
44
+ |> getCompilation
41
45
|> asFs
42
46
|> withOptions[ " --checked-" ]
43
47
|> compile
44
48
|> shouldSucceed
45
49
46
50
// SOURCE=unchecked01.fs SCFLAGS="--checked-" # fsc-checked-
47
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unchecked01.fs" |]) >]
48
- let ``fsi - unchecked - unchecked01_fs -- checked - `` compilation =
49
- compilation
51
+ [<Theory; FileInlineData( " unchecked01.fs" ) >]
52
+ let ``fsi - unchecked - unchecked01_fs -- checked - `` compilation =
53
+ compilation
54
+ |> getCompilation
50
55
|> asFsx
51
56
|> withOptions[ " --checked-" ]
52
57
|> compile
53
58
|> shouldSucceed
54
59
55
60
// SOURCE=checked01.fs SCFLAGS="--checked" FSIMODE=EXEC COMPILE_ONLY=1 # fsi-checked
56
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " checked01.fs" |]) >]
57
- let ``fsi - checked - checked01_fs -- checked`` compilation =
58
- compilation
61
+ [<Theory; FileInlineData( " checked01.fs" ) >]
62
+ let ``fsi - checked - checked01_fs -- checked`` compilation =
63
+ compilation
64
+ |> getCompilation
59
65
|> asFsx
60
66
|> withOptions[ " --checked" ]
61
67
|> compile
62
68
|> shouldSucceed
63
69
64
70
// SOURCE=checked01.fs SCFLAGS="--checked+" FSIMODE=EXEC COMPILE_ONLY=1 # fsi-checked+
65
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " checked01.fs" |]) >]
66
- let ``fsi - checked - checked01_fs -- checked + `` compilation =
67
- compilation
71
+ [<Theory; FileInlineData( " checked01.fs" ) >]
72
+ let ``fsi - checked - checked01_fs -- checked + `` compilation =
73
+ compilation
74
+ |> getCompilation
68
75
|> asFsx
69
76
|> withOptions[ " --checked+" ]
70
77
|> compile
71
78
|> shouldSucceed
72
79
73
80
// SOURCE=checked01.fs SCFLAGS="--checked-" FSIMODE=EXEC COMPILE_ONLY=1 # fsi-checked+
74
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " checked01.fs" |]) >]
75
- let ``fsi - checked - checked01_fs -- checked - `` compilation =
76
- compilation
81
+ [<Theory; FileInlineData( " checked01.fs" ) >]
82
+ let ``fsi - checked - checked01_fs -- checked - `` compilation =
83
+ compilation
84
+ |> getCompilation
77
85
|> asFsx
78
86
|> withOptions[ " --checked-" ]
79
87
|> compile
@@ -83,64 +91,71 @@ module Checked =
83
91
//# Last one wins
84
92
85
93
// SOURCE=checked01.fs SCFLAGS="--checked --checked+" # fsc-checkedchecked+
86
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " checked01.fs" |]) >]
87
- let ``fsc - checked - checked01_fs -- checked -- checked + `` compilation =
88
- compilation
94
+ [<Theory; FileInlineData( " checked01.fs" ) >]
95
+ let ``fsc - checked - checked01_fs -- checked -- checked + `` compilation =
96
+ compilation
97
+ |> getCompilation
89
98
|> asFs
90
99
|> withOptions[ " --checked" ; " --checked+" ]
91
100
|> compile
92
101
|> shouldSucceed
93
102
94
103
// SOURCE=checked01.fs SCFLAGS="--checked- --checked+" # fsc-checked-checked+
95
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " checked01.fs" |]) >]
96
- let ``fsc - checked - checked01_fs -- checked - -- checked + `` compilation =
97
- compilation
104
+ [<Theory; FileInlineData( " checked01.fs" ) >]
105
+ let ``fsc - checked - checked01_fs -- checked - -- checked + `` compilation =
106
+ compilation
107
+ |> getCompilation
98
108
|> asFs
99
109
|> withOptions[ " --checked-" ; " --checked+" ]
100
110
|> compile
101
111
|> shouldSucceed
102
112
103
113
// SOURCE=unchecked01.fs SCFLAGS="--checked+ --checked-" # fsc-checked+checked-
104
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unchecked01.fs" |]) >]
105
- let ``fsc - checked - unchecked01_fs -- checked + -- checked - `` compilation =
106
- compilation
114
+ [<Theory; FileInlineData( " unchecked01.fs" ) >]
115
+ let ``fsc - checked - unchecked01_fs -- checked + -- checked - `` compilation =
116
+ compilation
117
+ |> getCompilation
107
118
|> asFs
108
119
|> withOptions[ " --checked+" ; " --checked-" ]
109
120
|> compile
110
121
|> shouldSucceed
111
122
112
123
// SOURCE=checked01.fs SCFLAGS="--checked --checked+" # fsc-checkedchecked+
113
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " checked01.fs" |]) >]
114
- let ``fsi - checked - checked01_fs -- checked -- checked + `` compilation =
115
- compilation
124
+ [<Theory; FileInlineData( " checked01.fs" ) >]
125
+ let ``fsi - checked - checked01_fs -- checked -- checked + `` compilation =
126
+ compilation
127
+ |> getCompilation
116
128
|> asFsx
117
129
|> withOptions[ " --checked" ; " --checked+" ]
118
130
|> compile
119
131
|> shouldSucceed
120
132
121
133
// SOURCE=checked01.fs SCFLAGS="--checked- --checked+" # fsc-checked-checked+
122
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " checked01.fs" |]) >]
123
- let ``fsi - checked - checked01_fs -- checked - -- checked + `` compilation =
124
- compilation
134
+ [<Theory; FileInlineData( " checked01.fs" ) >]
135
+ let ``fsi - checked - checked01_fs -- checked - -- checked + `` compilation =
136
+ compilation
137
+ |> getCompilation
125
138
|> asFsx
126
139
|> withOptions[ " --checked-" ; " --checked+" ]
127
140
|> compile
128
141
|> shouldSucceed
129
142
130
143
// SOURCE=unchecked01.fs SCFLAGS="--checked+ --checked-" # fsc-checked+checked-
131
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unchecked01.fs" |]) >]
132
- let ``fsi - checked - unchecked01_fs -- checked + -- checked - `` compilation =
133
- compilation
144
+ [<Theory; FileInlineData( " unchecked01.fs" ) >]
145
+ let ``fsi - checked - unchecked01_fs -- checked + -- checked - `` compilation =
146
+ compilation
147
+ |> getCompilation
134
148
|> asFsx
135
149
|> withOptions[ " --checked+" ; " --checked-" ]
136
150
|> compile
137
151
|> shouldSucceed
138
152
139
153
//# Unrecognized argument
140
154
// SOURCE=unrecogarg.fs SCFLAGS="--Checked" # fsc--Checked
141
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unrecogarg.fs" |]) >]
142
- let ``fsc - checked - unchecked01_fs Checked`` compilation =
143
- compilation
155
+ [<Theory; FileInlineData( " unrecogarg.fs" ) >]
156
+ let ``fsc - checked - unchecked01_fs Checked`` compilation =
157
+ compilation
158
+ |> getCompilation
144
159
|> asFs
145
160
|> withOptions[ " --Checked" ]
146
161
|> compile
@@ -150,9 +165,10 @@ module Checked =
150
165
]
151
166
152
167
// SOURCE=unrecogarg.fs SCFLAGS="--checked*" # fsc--checked*
153
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " unrecogarg.fs" |]) >]
154
- let ``fsc - checked - unchecked01_fs -- checked - star`` compilation =
155
- compilation
168
+ [<Theory; FileInlineData( " unrecogarg.fs" ) >]
169
+ let ``fsc - checked - unchecked01_fs -- checked - star`` compilation =
170
+ compilation
171
+ |> getCompilation
156
172
|> asFs
157
173
|> withOptions[ " --checked*" ]
158
174
|> compile
@@ -162,9 +178,10 @@ module Checked =
162
178
]
163
179
164
180
// SOURCE=unrecogarg.fs SCFLAGS="--checked*" # fsc--checked*
165
- [<Theory; Directory(__ SOURCE_ DIRECTORY__, Includes=[| " UncheckedDefaultOf01.fs" |]) >]
166
- let ``fsc - checked - UncheckedDefaultOf01`` compilation =
167
- compilation
181
+ [<Theory; FileInlineData( " UncheckedDefaultOf01.fs" ) >]
182
+ let ``fsc - checked - UncheckedDefaultOf01`` compilation =
183
+ compilation
184
+ |> getCompilation
168
185
|> asFs
169
186
|> asExe
170
187
|> compile
0 commit comments