ASP.NET на Visual Basic

Imports Microsoft.AspNetCore.Http
Class RequestService
    Public Function Describe(context As HttpContext) As String
        Return $"{context.Request.Method} {context.Request.Path}"
    End Function
End Class

Option Strict On
Imports Microsoft.AspNetCore.Http
Namespace ReviewCase19_1
    Class RequestService
        Public Function Describe(reviewContext As HttpContext) As String
            Return $"{reviewContext.Request.Method} {reviewContext.Request.Path}"
        End Function
    End Class
End Namespace

Option Explicit On
Option Infer On
Imports Microsoft.AspNetCore.Http
Namespace BoundaryCase19_1
    Class RequestService
        Public Function Describe(edgeContext As HttpContext) As String
            Return $"{edgeContext.Request.Method} {edgeContext.Request.Path}"
        End Function
    End Class
End Namespace

Imports System.Runtime.CompilerServices
Imports Microsoft.AspNetCore.Builder
Imports Microsoft.AspNetCore.Http
Imports Microsoft.AspNetCore.Routing

Public Module OrderEndpoints
    <Extension>
    Public Sub MapOrderEndpoints(routes As IEndpointRouteBuilder)
        routes.MapGet("/orders/{id:int}",
            Function(id As Integer) Results.Ok(New With {.Id = id}))
    End Sub
End Module

Option Strict On
Imports System.Runtime.CompilerServices
Imports Microsoft.AspNetCore.Builder
Imports Microsoft.AspNetCore.Http
Imports Microsoft.AspNetCore.Routing

Namespace ReviewCase19_2
    Public Module OrderEndpoints
        <Extension>
        Public Sub MapOrderEndpoints(reviewRoutes As IEndpointRouteBuilder)
            reviewRoutes.MapGet("/orders/{reviewId:int}",
                Function(reviewId As Integer) Results.Ok(New With {.Id = reviewId}))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports System.Runtime.CompilerServices
Imports Microsoft.AspNetCore.Builder
Imports Microsoft.AspNetCore.Http
Imports Microsoft.AspNetCore.Routing

Namespace BoundaryCase19_2
    Public Module OrderEndpoints
        <Extension>
        Public Sub MapOrderEndpoints(edgeRoutes As IEndpointRouteBuilder)
            edgeRoutes.MapGet("/orders/{edgeId:int}",
                Function(edgeId As Integer) Results.Ok(New With {.Id = edgeId}))
        End Sub
    End Module
End Namespace

Imports System.ComponentModel.DataAnnotations
Class UpdateOrderRequest
    <Range(1, Integer.MaxValue)>
    Public Property Id As Integer
    <StringLength(200, MinimumLength:=1)>
    Public Property Comment As String
End Class

Option Strict On
Imports System.ComponentModel.DataAnnotations
Namespace ReviewCase19_3
    Class UpdateOrderRequest
        <Range(1, Integer.MaxValue)>
        Public Property Id As Integer
        <StringLength(201, MinimumLength:=1)>
        Public Property Comment As String
    End Class
End Namespace

Option Explicit On
Option Infer On
Imports System.ComponentModel.DataAnnotations
Namespace BoundaryCase19_3
    Class UpdateOrderRequest
        <Range(1, Integer.MaxValue)>
        Public Property Id As Integer
        <StringLength(199, MinimumLength:=1)>
        Public Property Comment As String
    End Class
End Namespace

Imports Microsoft.AspNetCore.Http
Module Responses
    Function Build(found As Boolean) As IResult
        If Not found Then Return Results.NotFound()
        Return Results.Json(New With {.Status = "ok"})
    End Function
End Module

Option Strict On
Imports Microsoft.AspNetCore.Http
Namespace ReviewCase19_4
    Module Responses
        Function Build(reviewFound As Boolean) As IResult
            If Not reviewFound Then Return Results.NotFound()
            Return Results.Json(New With {.Status = "ok"})
        End Function
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports Microsoft.AspNetCore.Http
Namespace BoundaryCase19_4
    Module Responses
        Function Build(edgeFound As Boolean) As IResult
            If Not edgeFound Then Return Results.NotFound()
            Return Results.Json(New With {.Status = "ok"})
        End Function
    End Module
End Namespace

Class OrdersEndpointTests
    <Fact>
    Public Async Function RejectsInvalidId() As Task
        Using app = Await TestApplication.StartAsync()
        Dim response = Await app.Client.GetAsync("/orders/abc")
        Assert.Equal(HttpStatusCode.NotFound, response.StatusCode)
    End Function
End Class

Option Strict On
Namespace ReviewCase19_5
    Class OrdersEndpointTests
        <Fact>
        Public Async Function RejectsInvalidId() As Task
            Using app = Await TestApplication.StartAsync()
            Dim reviewResponse = Await app.Client.GetAsync("/orders/abc")
            Assert.Equal(HttpStatusCode.NotFound, reviewResponse.StatusCode)
        End Function
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase19_5
    Class OrdersEndpointTests
        <Fact>
        Public Async Function RejectsInvalidId() As Task
            Using app = Await TestApplication.StartAsync()
            Dim edgeResponse = Await app.Client.GetAsync("/orders/abc")
            Assert.Equal(HttpStatusCode.NotFound, edgeResponse.StatusCode)
        End Function
    End Class
End Namespace