remove test numbering

1 files changed, 0 insertions, 98 deletions

diff --git a/t/02-read-write.t b/t/02-read-write.t
deleted file mode 100644
index 0979955..0000000
--- a/t/02-read-write.t
+++ /dev/null
@@ -1,98 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Requires 'Test::TCP';
-use IO::Pty::Easy;
-
-use App::Termcast;
-
-pipe(my $cread, my $swrite);
-pipe(my $sread, my $cwrite);
-
-test_tcp(
-    client => sub {
-        my $port = shift;
-        close $swrite;
-        close $sread;
-        { sysread($cread, my $buf, 1) }
-        my $inc = join ':', grep { !ref } @INC;
-        my $client_script = <<EOF;
-        BEGIN { \@INC = split /:/, '$inc' }
-        use App::Termcast;
-
-        no warnings 'redefine';
-        local *App::Termcast::_termsize = sub { return (80, 24) };
-        use warnings 'redefine';
-
-        my \$tc = App::Termcast->new(
-            host => '127.0.0.1', port => $port,
-            user => 'test', password => 'tset');
-        \$tc->run('$^X', "-e", "while (<>) { last if /\\\\./; print; print qq{---\\n}; }");
-EOF
-        my $pty = IO::Pty::Easy->new;
-        $pty->spawn("$^X", "-e", $client_script);
-        syswrite($cwrite, 'a');
-        { sysread($cread, my $buf, 1) }
-        $pty->write("foo\n");
-        syswrite($cwrite, 'a');
-        { sysread($cread, my $buf, 1) }
-        {
-            local $SIG{ALRM} = sub { fail("got the right thing on stdout") };
-            alarm 10;
-            my $read = '';
-            $read .= $pty->read until $read =~ /---/;
-            alarm 0;
-            is($read, "foo\r\nfoo\r\n---\r\n", 'got the right thing on stdout');
-        }
-        $pty->write("bar\n");
-        syswrite($cwrite, 'a');
-        { sysread($cread, my $buf, 1) }
-        {
-            local $SIG{ALRM} = sub { fail("got the right thing on stdout") };
-            alarm 10;
-            my $read = '';
-            $read .= $pty->read until $read =~ /---/;
-            alarm 0;
-            is($read, "bar\r\nbar\r\n---\r\n", 'got the right thing on stdout');
-        }
-        $pty->write(".\n");
-        syswrite($cwrite, 'a');
-        { sysread($cread, my $buf, 1) }
-        is($pty->read, ".\r\n", "didn't get too much data");
-    },
-    server => sub {
-        my $port = shift;
-        close $cwrite;
-        close $cread;
-        my $sock = IO::Socket::INET->new(LocalAddr => '127.0.0.1',
-                                         LocalPort => $port,
-                                         Listen    => 1);
-        $sock->accept; # signal to the client that the port is available
-        syswrite($swrite, 'a');
-        my $client = $sock->accept;
-        { sysread($sread, my $buf, 1) }
-        my $login;
-        $client->recv($login, 4096);
-        is($login,
-           "hello test tset\n\e\[H\x00{\"geometry\":[80,24]}\xff\e\[H\e\[2J",
-           "got the correct login info");
-        $client->send("hello, test\n");
-
-        syswrite($swrite, 'a');
-        my $output;
-        my $total_out = '';
-        while (1) {
-            { sysread($sread, my $buf, 1) }
-            $client->recv($output, 4096);
-            last unless defined($output) && length($output);
-            $total_out .= $output;
-            syswrite($swrite, 'a');
-        }
-        is($total_out, "foo\r\nfoo\r\n---\r\nbar\r\nbar\r\n---\r\n.\r\n",
-           'sent the right data to the server');
-        syswrite($swrite, 'a');
-    },
-);
-
-done_testing;