From 719e6746ab3ef0c6a0557fb063d7b7748a845a59 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 14 Apr 2011 09:07:23 -0500
Subject: remove test numbering

---
 t/03-write-to-termcast.t | 56 ------------------------------------------------
 1 file changed, 56 deletions(-)
 delete mode 100644 t/03-write-to-termcast.t

(limited to 't/03-write-to-termcast.t')

diff --git a/t/03-write-to-termcast.t b/t/03-write-to-termcast.t
deleted file mode 100644
index 47321ec..0000000
--- a/t/03-write-to-termcast.t
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Requires 'Test::TCP';
-
-use App::Termcast;
-
-no warnings 'redefine';
-local *App::Termcast::_termsize = sub { return (80, 24) };
-use warnings 'redefine';
-
-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 $tc = App::Termcast->new(
-            host => '127.0.0.1', port => $port,
-            user => 'test', password => 'tset');
-        $tc->write_to_termcast('foo');
-        syswrite($cwrite, 'a');
-        { sysread($cread, my $buf, 1) }
-        ok(!$tc->meta->find_attribute_by_name('pty')->has_value($tc),
-           "pty isn't created");
-    },
-    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;
-        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");
-        { sysread($sread, my $buf, 1) }
-
-        my $buf;
-        $client->recv($buf, 4096);
-        is($buf, 'foo', 'wrote correctly');
-        syswrite($swrite, 'a');
-    },
-);
-
-done_testing;
-- 
cgit v1.2.3-54-g00ecf