test updates
This commit is contained in:
parent
2a5f10488b
commit
20d99d26a7
|
|
@ -1,4 +1,4 @@
|
||||||
namespace Company.WebApplication1.Controllers
|
namespace WebApplication1.Controllers
|
||||||
|
|
||||||
open System
|
open System
|
||||||
open System.Collections.Generic
|
open System.Collections.Generic
|
||||||
|
|
@ -6,40 +6,41 @@ open System.Linq
|
||||||
open System.Threading.Tasks
|
open System.Threading.Tasks
|
||||||
open Microsoft.AspNetCore.Mvc
|
open Microsoft.AspNetCore.Mvc
|
||||||
|
|
||||||
|
type public TemperatureUnit =
|
||||||
|
| Celsius=0
|
||||||
|
| Fahrenheit=1
|
||||||
|
|
||||||
|
type WeatherResult = {
|
||||||
|
Location: string
|
||||||
|
TemperatureUnit: TemperatureUnit
|
||||||
|
Temperature: int
|
||||||
|
}
|
||||||
|
|
||||||
[<Route("api/SampleData/[controller]")>]
|
[<Route("api/SampleData/[controller]")>]
|
||||||
[<ApiController>]
|
[<ApiController>]
|
||||||
type WeatherController () =
|
type WeatherController () =
|
||||||
inherit ControllerBase()
|
inherit ControllerBase()
|
||||||
|
|
||||||
[<HttpGet>]
|
[<HttpGet>]
|
||||||
member this.Get(location:string, unit:TemperatureUnit) =
|
[<Route("GetWeatherByLocationWithUnit")>]
|
||||||
|
member this.Get(location:string, unit: string) =
|
||||||
let rnd = System.Random()
|
let rnd = System.Random()
|
||||||
let result = new WeatherResult (Location = location, Temperature = rnd.Next(-20, 55), TemperatureUnit = unit)
|
let result:WeatherResult = {
|
||||||
|
Location = location;
|
||||||
|
Temperature = rnd.Next(-20,55);
|
||||||
|
TemperatureUnit = System.Enum.Parse(typeof<TemperatureUnit>,unit)
|
||||||
|
:?> TemperatureUnit
|
||||||
|
}
|
||||||
ActionResult<WeatherResult>(result)
|
ActionResult<WeatherResult>(result)
|
||||||
|
|
||||||
[<HttpGet>]
|
[<HttpGet>]
|
||||||
|
[<Route("GetWeatherByLocation")>]
|
||||||
member this.Get(location:string) =
|
member this.Get(location:string) =
|
||||||
let rnd = System.Random()
|
let rnd = System.Random()
|
||||||
let result = new WeatherResult (Location = location, Temperature = rnd.Next(-20, 55), TemperatureUnit = TemperatureUnit.Celsius)
|
let result:WeatherResult = {
|
||||||
|
Location = location;
|
||||||
|
Temperature = rnd.Next(-20,55);
|
||||||
|
TemperatureUnit = TemperatureUnit.Celsius
|
||||||
|
|
||||||
|
}
|
||||||
ActionResult<WeatherResult>(result)
|
ActionResult<WeatherResult>(result)
|
||||||
|
|
||||||
type TemperatureUnit =
|
|
||||||
| Celsius
|
|
||||||
| Fahrenheit
|
|
||||||
|
|
||||||
type WeatherResult =
|
|
||||||
let mutable _temperature : int = 0;
|
|
||||||
let mutable _temperatureUnit : TemperatureUnit = null;
|
|
||||||
let mutable _location : string = null;
|
|
||||||
|
|
||||||
member x.Temperature
|
|
||||||
with public get() : int = _temperature
|
|
||||||
and public set(value) = _temperature <- value
|
|
||||||
|
|
||||||
member x.TemperatureUnit
|
|
||||||
with public get() : TemperatureUnit = _temperatureUnit
|
|
||||||
and public set(value) = _temperatureUnit <- value
|
|
||||||
|
|
||||||
member x.Location
|
|
||||||
with public get() : string = _location
|
|
||||||
and public set(value) = _location <- value
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue