File test-no-note.patch of Package perl-Test-TCP

Overview Repositories Revisions Requests Users Attributes Meta

File test-no-note.patch of Package perl-Test-TCP

---
 t/01_simple.t |    8 ++++----
 t/08_exit.t   |    6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

Index: Test-TCP-1.06/t/01_simple.t
===================================================================
--- Test-TCP-1.06.orig/t/01_simple.t	2010-08-15 09:21:39.000000000 -0400
+++ Test-TCP-1.06/t/01_simple.t	2010-09-21 20:57:13.772647840 -0400
@@ -15,24 +15,24 @@
             Proto    => 'tcp'
         ) or die "Cannot open client socket: $!";
 
-        note "send 1";
+        #note "send 1";
         print {$sock} "foo\n";
         my $res = <$sock>;
         is $res, "foo\n";
 
-        note "send 2";
+        #note "send 2";
         print {$sock} "bar\n";
         my $res2 = <$sock>;
         is $res2, "bar\n";
 
-        note "finalize";
+        #note "finalize";
         print {$sock} "quit\n";
     },
     server => sub {
         my $port = shift;
         ok $port, "test case for sharedfork" for 1..10;
         t::Server->new($port)->run(sub {
-            note "new request";
+            # note "new request";
             my ($remote, $line, $sock) = @_;
             print {$remote} $line;
         });
Index: Test-TCP-1.06/t/08_exit.t
===================================================================
--- Test-TCP-1.06.orig/t/08_exit.t	2010-08-24 00:08:16.000000000 -0400
+++ Test-TCP-1.06/t/08_exit.t	2010-09-21 20:57:49.580718901 -0400
@@ -36,16 +36,16 @@
     test_tcp(
         client => sub {
             my $port = shift;
-            note "CLIENT: $$";
+            #note "CLIENT: $$";
             exit 1;
         },
         server => sub {
             my $port = shift;
-            note "SEVER: $$";
+            #note "SEVER: $$";
             print {$tmp} $$;
             $tmp->close;
             t::Server->new($port)->run(sub {
-                note "new request";
+                #note "new request";
                 my ($remote, $line, $sock) = @_;
                 print {$remote} $line;
             });

Places

File test-no-note.patch of Package perl-Test-TCP

Places