Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
25b1d156
F
fsharp
项目概览
dotNET Platform
/
fsharp
12 个月 前同步成功
通知
0
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
F
fsharp
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
未验证
提交
25b1d156
编写于
3月 26, 2020
作者:
K
Kevin Ransom (msft)
提交者:
GitHub
3月 26, 2020
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Compiler fix and tests (#8803)
上级
7c4248d0
变更
3
隐藏空白更改
内联
并排
Showing
3 changed file
with
37 addition
and
4 deletion
+37
-4
src/fsharp/CompileOps.fs
src/fsharp/CompileOps.fs
+5
-4
tests/fsharp/Compiler/Language/CompilerDirectiveTests.fs
tests/fsharp/Compiler/Language/CompilerDirectiveTests.fs
+31
-0
tests/fsharp/FSharpSuite.Tests.fsproj
tests/fsharp/FSharpSuite.Tests.fsproj
+1
-0
未找到文件。
src/fsharp/CompileOps.fs
浏览文件 @
25b1d156
...
...
@@ -5008,9 +5008,6 @@ let ProcessMetaCommandsFromInput
let
output
=
tcConfig
.
outputDir
|>
Option
.
defaultValue
""
let
dm
=
tcConfig
.
dependencyProvider
.
TryFindDependencyManagerInPath
(
tcConfig
.
compilerToolPaths
,
output
,
reportError
,
path
)
match
dm
with
|
dllpath
,
null
when
String
.
IsNullOrWhiteSpace
(
dllpath
)
->
state
// error already reported
|
_,
dependencyManager
when
not
(
isNull
dependencyManager
)
->
if
tcConfig
.
langVersion
.
SupportsFeature
(
LanguageFeature
.
PackageManagement
)
then
packageRequireF
state
(
dependencyManager
,
m
,
path
)
...
...
@@ -5020,7 +5017,11 @@ let ProcessMetaCommandsFromInput
// #r "Assembly"
|
path
,
_
->
dllRequireF
state
(
m
,
path
)
let
p
=
if
String
.
IsNullOrWhiteSpace
(
path
)
then
""
else
path
dllRequireF
state
(
m
,
p
)
|
_
->
errorR
(
Error
(
FSComp
.
SR
.
buildInvalidHashrDirective
()
,
m
))
...
...
tests/fsharp/Compiler/Language/CompilerDirectiveTests.fs
0 → 100644
浏览文件 @
25b1d156
// Copyright (c) Microsoft Corporation. All Rights Reserved. See License.txt in the project root for license information.
namespace
FSharp
.
Compiler
.
UnitTests
open
NUnit
.
Framework
open
FSharp
.
Compiler
.
SourceCodeServices
[<
TestFixture
>]
module
``Test Compiler Directives``
=
[<
Test
>]
let
``compiler #r "" is invalid``
()
=
let
source
=
"""
#r ""
"""
CompilerAssert
.
CompileWithErrors
(
Compilation
.
Create
(
source
,
Fsx
,
Library
),
[|
FSharpErrorSeverity
.
Warning
,
213
,
(
2
,
1
,
2
,
6
),
"'' is not a valid assembly name"
|])
[<
Test
>]
let
``compiler #r " " is invalid``
()
=
let
source
=
"""
#r "
"
"""
CompilerAssert
.
CompileWithErrors
(
Compilation
.
Create
(
source
,
Fsx
,
Library
),
[|
FSharpErrorSeverity
.
Warning
,
213
,
(
2
,
1
,
2
,
10
),
"'' is not a valid assembly name"
|])
tests/fsharp/FSharpSuite.Tests.fsproj
浏览文件 @
25b1d156
...
...
@@ -60,6 +60,7 @@
<Compile
Include=
"Compiler\Warnings\ExperimentalAttributeTests.fs"
/>
<Compile
Include=
"Compiler\Warnings\PatternMatchingWarningTests.fs"
/>
<Compile
Include=
"Compiler\SourceTextTests.fs"
/>
<Compile
Include=
"Compiler\Language\CompilerDirectiveTests.fs"
/>
<Compile
Include=
"Compiler\Language\DefaultInterfaceMemberTests.fs"
/>
<Compile
Include=
"Compiler\Language\OptionalInteropTests.fs"
/>
<Compile
Include=
"Compiler\Language\UIntTests.fs"
/>
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录