use strict;
use warnings;
use Test::More tests => 3;
BEGIN { use_ok('BGS') };
foreach my $i (1 .. 2) {
bgs_call {
return "sub $i";
} bgs_back {
my $r = shift;
is($r, "sub $i", "sub $i");
};
}
bgs_wait();
use strict;
use warnings;
use Test::More tests => 3;
BEGIN { use_ok('BGS') };
foreach my $i (1 .. 2) {
bgs_call {
return "sub $i";
} bgs_back {
my $r = shift;
is($r, "sub $i", "sub $i");
};
}
bgs_wait();