Testing Service Fabric through FSX

servicefabrictest.fsx

#load "load-references.fsx"
#r @"..\bin\debug\Interfaces.dll"
open Microsoft.ServiceFabric.Actors
open ServiceFabricDemo
open System

let cat = ActorProxy.Create<ICat>(ActorId "Blackie", "fabric:/CatActors")

async {
    do! cat.Eat "Whiskers" |> Async.AwaitTask
    do! cat.Eat "Sheba" |> Async.AwaitTask
    do! cat.Meow 3 (TimeSpan.FromHours 6.) |> Async.AwaitTask
    do! cat.Purr() |> Async.AwaitTask

    let! color = cat.Colour() |> Async.AwaitTask
    let! food = cat.FavouriteFood() |> Async.AwaitTask
    return sprintf "%s is %s and likes %s." (cat.GetActorId().GetStringId()) color food
} |> Async.RunSynchronously

(*

val it : string = "Blackie is Black and likes Sheba."

*)