Let's say we are going to test a module that is supposed to be run asynchronously - using threads, AnyEvent, or Coro, or some other means. And we need to check that certain events happen in certain sequence, because some of them depend on the others.

Probably the best way to achieve this would be of course to minimize interdependencies and use mathematically correct synchronization for whatever is left. Of course, that is not always achievable, due to limited time.

So I'm going to propose a primitive that I think should deal with a huge subclass of such tasks.

The code goes as follows:

use Test::AsyncSeq;

my $id  = Test::AsyncSeq->get_sequence_id;
my $id2 = Test::AsyncSeq->get_sequence_id( "frobnicate" );
    # would be "frobnicate1" or smth

# somewhere in threads/callbacks
is_after( $id, "start" );
# elsewhere

is_after( $id, "event2", "start" );

# more elsewhere
is_after( $id, "event3", "start" );

# finally
is_after( $id, "finish", "event2", "event3" );
[download]

The is_after( $id, $event, @dependencies ); passes if and only if:

• sequence named $id was created;
• $event was not seen in the sequence yet;
• all of the @dependencies have been seen at the moment of the call.

The id is just a string, and is required since Perl is not very good at passing blessed references across threads. And multiple tests MAY be needed in the same script, say to catch a race condition.

Does such interface make sense? Would it be of use to anyone?

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.