From bf14c06d4cdc3a4f2aa425b698965cd3de24b9b6 Mon Sep 17 00:00:00 2001
From: dmiller <dmiller@e0a8ed71-7df4-0310-8962-fdc924857419>
Date: Thu, 22 Sep 2022 01:35:20 +0000
Subject: [PATCH] Some useful print statements for testing

---
 ncat/test/ncat-test.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ncat/test/ncat-test.pl b/ncat/test/ncat-test.pl
index 340644789..b813d081f 100755
--- a/ncat/test/ncat-test.pl
+++ b/ncat/test/ncat-test.pl
@@ -78,7 +78,7 @@ sub ncat {
 	local *IN;
 	local *OUT;
 	local *ERR;
-	# print join(" ", ($NCAT, @_)) . "\n";
+  #print STDERR "RUN: " . join(" ", ($NCAT, @_)) . "\n";
 	$pid = open3(*IN, *OUT, *ERR, $NCAT, @_);
 	if (!defined $pid) {
 		die "open3 failed";
@@ -165,6 +165,7 @@ sub timeout_read {
 		return ($result or undef) if sysread($fh, $frag, $BUFSIZ) == 0;
 		$result .= $frag;
 	}
+  #print STDERR "READ: $result\n";
 	return $result;
 }
 
@@ -1706,6 +1707,7 @@ unlink($UNIXSOCK_TMP);
 
 sub http_request {
 	my ($method, $uri) = @_;
+  #print STDERR "$method $uri HTTP/1.0\r\n\r\n";
 	return "$method $uri HTTP/1.0\r\n\r\n";
 };