source: tests/concurrent/actors/poison.cfa @ 8512a2f

#include <actor.hfa>
#include <fstream.hfa>
#include <stdlib.hfa>
#include <string.h>
#include <stdio.h>

struct Server { inline actor; };

int main() {
    sout | "Start";

    sout | "Finished";
    {
    start_actor_system();
    Server s[10];
    for ( i; 10 ) {
        s[i] << FinishedMsg;
    }
    stop_actor_system();
    }

    sout | "Delete";
    {
    start_actor_system();
    for ( i; 10 ) {
        Server * s = alloc();
        (*s){};
        (*s) << DeleteMsg;
    }
    stop_actor_system();
    }

    sout | "Destroy";
    {
    start_actor_system();
    Server s[10];
    for ( i; 10 ) {
        s[i] << DestroyMsg;
    }
    stop_actor_system();
    }

    sout | "Done";
    return 0;
}