t0021/rot13-filter: add packet_initialize()
Let's refactor the code to initialize communication into its own packet_initialize() function, so that we can reuse this functionality in following patches. Signed-off-by: Christian Couder <chriscool@tuxfamily.org> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Christian Couder committed
Nov 5, 2017 at 22:38 UTC
25cbfe34656d4cf25e1bf16ac61f981cb3d5c1b3
1 file changed
+16
-10
t/t0021/rot13-filter.pl
+16
-10
@@ -127,19 +127,25 @@ sub packet_flush {
127
STDOUT->flush();
128
}
129
130
+sub packet_initialize {
131
+ my ($name, $version) = @_;
132
+
133
+ packet_compare_lists([0, $name . "-client"], packet_txt_read()) ||
134
+ die "bad initialize";
135
+ packet_compare_lists([0, "version=" . $version], packet_txt_read()) ||
136
+ die "bad version";
137
+ packet_compare_lists([1, ""], packet_bin_read()) ||
138
+ die "bad version end";
139
+
140
+ packet_txt_write( $name . "-server" );
141
+ packet_txt_write( "version=" . $version );
142
+ packet_flush();
143
+}
144
+
145
print $debug "START\n";
146
$debug->flush();
147
133
-packet_compare_lists([0, "git-filter-client"], packet_txt_read()) ||
134
- die "bad initialize";
135
-packet_compare_lists([0, "version=2"], packet_txt_read()) ||
136
- die "bad version";
137
-packet_compare_lists([1, ""], packet_bin_read()) ||
138
- die "bad version end";
139
-
140
-packet_txt_write("git-filter-server");
141
-packet_txt_write("version=2");
142
-packet_flush();
148
+packet_initialize("git-filter", 2);
149
150
packet_compare_lists([0, "capability=clean"], packet_txt_read()) ||
151
die "bad capability";