THRIFT-2013: add perl crosstest multiplexed client and server logic
Client: perl
This closes #1416
diff --git a/test/rs/src/bin/test_client.rs b/test/rs/src/bin/test_client.rs
index 0df2f00..297faf9 100644
--- a/test/rs/src/bin/test_client.rs
+++ b/test/rs/src/bin/test_client.rs
@@ -588,11 +588,15 @@
actual: Result<T, thrift::Error>,
expected: T,
) -> Result<(), thrift::Error> {
+ info!("*** EXPECTED: Ok({:?})", expected);
+ info!("*** ACTUAL : {:?}", actual);
match actual {
Ok(v) => {
if v == expected {
+ info!("*** OK ***");
Ok(())
} else {
+ info!("*** FAILED ***");
Err(thrift::Error::User(format!("expected {:?} but got {:?}", &expected, &v).into()),)
}
}