1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
use strict;
# vim: ts=2 sw=2 filetype=perl expandtab
package main;
use Test::More tests => 11;
use POE::NFA;
my $nfa;
eval {
POE::NFA->spawn('foo')
};
like($@, qr/odd number/, 'NFA treats its params as a hash');
eval {
POE::NFA->spawn(inline_states => {initial => { start => sub { 0 } } })
};
like($@, qr/requires a working Kernel/, 'NFA needs a working kernel');
eval "use POE::Kernel";
eval {
POE::NFA->spawn(crap => 'foo');
};
like($@, qr/constructor requires at least one of/, 'need states');
eval {
$nfa = POE::NFA->spawn(inline_states => {initial => { start => sub { 0 } } })
};
isa_ok($nfa, 'POE::NFA', 'most basic machine');
eval {
POE::NFA->spawn(inline_states => {initial => { start => sub { 0 } } }, crap => 'foo')
};
like($@, qr/constructor does not recognize/, 'unknown parameter');
eval {
POE::NFA->spawn(package_states => {initial => 'foo'});
};
like($@, qr/the data for state/, 'bad state data');
eval {
POE::NFA->spawn(package_states => {initial => ['Foo']});
};
like($@, qr/the array for state/, 'bad state data');
eval {
POE::NFA->spawn(package_states => {initial => ['Foo' => 'bar']});
};
like($@, qr/need to be a hash or array ref/, 'bad event data');
eval {
$nfa = POE::NFA->spawn(package_states => {initial => ['Foo' => [qw(foo bar)]]});
};
isa_ok($nfa, 'POE::NFA', 'spawn with package_states');
eval {
$nfa = POE::NFA->spawn(package_states => {initial => ['Foo' => [qw(foo bar)]]}, runstate => [ ] );
};
isa_ok($nfa, 'POE::NFA', 'spawn with package_states');
is( ref $nfa->[0], 'ARRAY', 'RUNSTATE is an ARRAYREF' );
POE::Kernel->run;
|
