Akkling-parent-child-test.fs

// wrapper function over TestKit.ActorOfAsTestActorRef
let spawnAsTestRef (tck:Tck) (props: Props<'T>) : IActorRef<'T> =
    typed (tck.ActorOfAsTestActorRef<FunActor<'T>>(props.ToProps(), tck.TestActor) :> IActorRef)

[<Fact>]
let ``Parent should create child`` () = testDefault <| fun tck ->
    // child actor definition
    let child (ctx: Actor<_>) msg = ctx.Sender() <! "hello" |> ignored
    // parent actor defintion
    let rec parent (ctx: Actor<_>) = 
        // spawn child
        let childRef = spawnAnonymous ctx (props (actorOf2 child))
        let rec loop () = actor {
            let! msg = ctx.Receive()
            childRef <<! msg    // forward message to child
            return loop()
        }
        loop ()

    let testedParent = spawnAsTestRef tck (props parent)
    testedParent <! "this should be forwarded to the child"
    expectMsg tck "hello" |> ignore