use Test::More;
is (1, 1, "test 1");
is (2, 2, "test 2");
is (3, 3, "test 3");
done_testing ();

##</code><code>##

use Test::More;
is ($_, $_, "test $_") for 1 .. 3;
done_testing ();

##</code><code>##

foreach my $nl ("", "\n", "\r", "\r\n") {
    ok ($object->send ($text.$nl), "send");
    is ($object->receive (), $text, "receive text without line ending");
    }