File tree Expand file tree Collapse file tree 3 files changed +42
-0
lines changed
tests/fsharp/core/fileorder Expand file tree Collapse file tree 3 files changed +42
-0
lines changed Original file line number Diff line number Diff line change 1+
2+ // Repro for https://github.com/Microsoft/visualfsharp/issues/1298
3+ namespace Ploeh.Weird.Repro
4+
5+ type Foo = {
6+ Value : string
7+ Text : string }
8+
9+ type Bar = {
10+ Value : string
11+ Number : int }
12+
13+ type Baz = {
14+ Value : int
15+ Text : string }
Original file line number Diff line number Diff line change 1+ namespace Ploeh.Weird.Repro
2+
3+
4+ // deliberately empty
Original file line number Diff line number Diff line change 1+ // #Conformance #Regression
2+ #if Portable
3+ module Core_fileorder
4+ #endif
5+
6+
7+ open Ploeh.Weird .Repro
8+
9+ let failures = ref false
10+ let report_failure s =
11+ stderr.WriteLine ( " NO: test " + s+ " failed" ); failures := true
12+
13+
14+ let b = {
15+ Value = 42
16+ Text = " Ploeh" }
17+
18+ let aa =
19+ if ! failures then ( stdout.WriteLine " Test Failed" ; exit 1 )
20+
21+ do ( stdout.WriteLine " Test Passed" ;
22+ System.IO.File.WriteAllText( " test.ok" , " ok" );
23+ exit 0 )
You can’t perform that action at this time.
0 commit comments