#!/usr/bin/perl

use Test::Simple tests => 5;

my $i = 0;

use POE;
use POE::Session;

POE::Session->create(
	inline_states => {
		_start => sub {
			ok( ++$i == 1, "Parent startup" );
			$_[KERNEL]->yield( 'create_child' );
		},
		create_child => sub {
			ok( ++$i == 2, "Parent yield for child creation" );
			make_child();
		},
		_stop => sub {
			ok( ++$i == 5, "Parent Destruction" );
		},
	}
);

sub make_child {
	POE::Session->create(
		inline_states => {
			_start => sub {
				ok( ++$i == 3, "Child startup" );
				$_[KERNEL]->yield( 'child_post' );
			},
			child_post => sub {
				ok( ++$i == 4, "Child Post" );
			},
		}
	);
}

POE::Kernel->run();

# vim: filetype=perl