Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit403f186

Browse files
committed
testcase for issuedotnet/fsharp#2554
1 parent718e88b commit403f186

File tree

5 files changed

+35
-4
lines changed

5 files changed

+35
-4
lines changed

‎tests/fsharp/core/.gitignore‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,9 @@ tmptest1.exe
99

1010
access/fsc.cmd.args
1111

12+
fsi-reference/ImplementationAssembly/ReferenceAssemblyExample.dll
13+
fsi-reference/ReferenceAssembly/ReferenceAssemblyExample.dll
14+
1215
forwarders/orig
1316
forwarders/split
1417

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
namespaceReferenceAssembly
2+
3+
typeMyClass()=
4+
memberthis.X= printfn"Implemented MyClass.X in F#"
Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
namespaceReferenceAssembly
2+
3+
typeMyClass()=
4+
memberthis.X= raise(new System.NotImplementedException("Not Implemented !!!!!!!!!"))
Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
#r@"ImplementationAssembly\ReferenceAssemblyExample.dll"
2+
#r@"ReferenceAssembly\ReferenceAssemblyExample.dll"
3+
letc=new ReferenceAssembly.MyClass()
4+
let_= c.X
5+
6+
// If this fails then the jit blows up so this file will not get written.
7+
letos= System.IO.File.CreateText"test.ok"in os.Close()
8+
exit0

‎tests/fsharp/tests.fs‎

Lines changed: 16 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,6 @@ let FSI_BASIC = FSI_FILE
2626
#endif
2727

2828
moduleCoreTests=
29-
3029
// These tests are enabled for .NET Framework and .NET Core
3130
[<Test>]
3231
let``access-FSC_BASIC``()= singleTestBuildAndRun"core/access" FSC_BASIC
@@ -226,8 +225,8 @@ module CoreTests =
226225
[<Test>]
227226
letcsext()= singleTestBuildAndRun"core/csext" FSC_BASIC
228227

229-
230228
#if!FSHARP_SUITE_DRIVES_CORECLR_TESTS
229+
231230
[<Test>]
232231
letevents()=
233232
letcfg= testConfig"core/events"
@@ -380,7 +379,20 @@ module CoreTests =
380379
peverify cfg"test.exe"
381380

382381
exec cfg("."++"test.exe")""
383-
382+
383+
[<Test>]
384+
let``fsi-reference``()=
385+
386+
letcfg= testConfig"core/fsi-reference"
387+
388+
begin
389+
use testOkFile= fileguard cfg"test.ok"
390+
fsc cfg@"--target:library -o:ImplementationAssembly\ReferenceAssemblyExample.dll"["ImplementationAssembly.fs"]
391+
fsc cfg@"--target:library -o:ReferenceAssembly\ReferenceAssemblyExample.dll"["ReferenceAssembly.fs"]
392+
fsiStdin cfg"test.fsx"""[]
393+
testOkFile.CheckExists()
394+
end
395+
384396
[<Test>]
385397
let``fsi-reload``()=
386398
letcfg= testConfig"core/fsi-reload"
@@ -417,7 +429,7 @@ module CoreTests =
417429
fsiStdin cfg"prepare.fsx""--maxerrors:1"[]
418430

419431
use testOkFile= fileguard cfg"test.ok"
420-
432+
421433
fsiStdin cfg"test.fsx""--maxerrors:1"[]
422434

423435
testOkFile.CheckExists()

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp