fsharp/tests/FSharp.Compiler.ComponentTests/CompilerOptions/Fsc/ParserErrors.fs at 576a115039da12207495c88793af4ba46e0356f9 · techiedesu/fsharp · GitHub

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
106
107
108
109
110
111
112
113
114
115
116
117
// Copyright (c) Microsoft Corporation.  All Rights Reserved.  See License.txt in the project root for license information.

namespace CompilerOptions.Fsc

open Xunit
open FSharp.Test.Compiler

/// Tests for compiler options parser error handling across many options
module ParserErrors =

    // =================================================================
    // Missing argument — options that require a parameter (error 224)
    // =================================================================

    [<Theory>]
    [<InlineData("--out")>]
    [<InlineData("--doc")>]
    [<InlineData("--keyfile")>]
    [<InlineData("--platform")>]
    [<InlineData("--win32icon")>]
    [<InlineData("--win32res")>]
    [<InlineData("--win32manifest")>]
    [<InlineData("--resource")>]
    [<InlineData("--linkresource")>]
    [<InlineData("--baseaddress")>]
    [<InlineData("--pdb")>]
    [<InlineData("--lib")>]
    [<InlineData("--codepage")>]
    [<InlineData("--sourcelink")>]
    [<InlineData("--subsystemversion")>]
    [<InlineData("--checksumalgorithm")>]
    [<InlineData("--define")>]
    [<InlineData("--warn")>]
    [<InlineData("--maxerrors")>]
    let ``options requiring a parameter produce error 224 when missing`` (option: string) =
        Fs """module M"""
        |> withOptions [option]
        |> compile
        |> shouldFail
        |> withErrorCode 224
        |> withDiagnosticMessageMatches "Option requires parameter"
        |> ignore

    // =================================================================
    // Invalid integer argument — options expecting int get a non-integer
    // =================================================================

    [<Theory>]
    [<InlineData("--maxerrors:xyz")>]
    [<InlineData("--codepage:abc")>]
    let ``int options with non-integer argument produce error 241`` (option: string) =
        Fs """module M"""
        |> withOptions [option]
        |> compile
        |> shouldFail
        |> withErrorCode 241
        |> withDiagnosticMessageMatches "is not a valid integer argument"
        |> ignore

    // =================================================================
    // Invalid warn level — out of valid range 0-5
    // =================================================================

    [<Fact>]
    let ``warn with negative level produces error 1050`` () =
        Fs """module M"""
        |> withOptions ["--warn:-1"]
        |> compile
        |> shouldFail
        |> withErrorCode 1050
        |> withDiagnosticMessageMatches "Invalid warning level"
        |> ignore

    // =================================================================
    // Invalid target value
    // =================================================================

    [<Fact>]
    let ``target with unrecognized value produces error 1048`` () =
        Fs """module M"""
        |> withOptions ["--target:dll"]
        |> compile
        |> shouldFail
        |> withErrorCode 1048
        |> withDiagnosticMessageMatches "Unrecognized target"
        |> ignore

    // =================================================================
    // Invalid checksum algorithm
    // =================================================================

    [<Fact>]
    let ``checksumalgorithm with unsupported algorithm produces error 1065`` () =
        Fs """module M"""
        |> withOptions ["--checksumalgorithm:MD5"]
        |> compile
        |> shouldFail
        |> withErrorCode 1065
        |> withDiagnosticMessageMatches "Algorithm.*is not supported"
        |> ignore

    // =================================================================
    // Unrecognized option (error 243)
    // =================================================================

    [<Theory>]
    [<InlineData("--nonexistent")>]
    [<InlineData("--Optimize")>]      // case-sensitive: --optimize (parsed as --optimize+) works, --Optimize does not
    [<InlineData("---debug")>]
    let ``unrecognized options produce error 243`` (option: string) =
        Fs """module M"""
        |> withOptions [option]
        |> compile
        |> shouldFail
        |> withErrorCode 243
        |> withDiagnosticMessageMatches "Unrecognized option"
        |> ignore