| … | … | ||
|---|---|---|---|
| 14 | 14 | ||
| 15 | our $t = 3; | 15 | our $t = 3; |
| 16 | 16 | ||
| 17 | sub t { | 17 | sub t { |
| 18 | my $ok = shift; | 18 | my $ok = shift; |
| 19 | my $f = "ae_" . shift; | 19 | my $f = "io_" . shift; |
| 20 | $f->(@_, my $cv = AE::cv); | 20 | $f->(@_, my $cv = AE::cv); |
| 21 | my @res = $cv->recv; | 21 | my @res = $cv->recv; |
| 22 | 22 | ||
| 23 | print !@res != !$ok ? "not " : "", "ok ", $t++, " # $f (@_) = (@res)\n"; | 23 | print !@res != !$ok ? "not " : "", "ok ", $t++, " # $f (@_) = (@res)\n"; |
| 24 | 24 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |