Auguasome

t/Net-OpenSSH-More.t

@@ -26,13 +26,13 @@ subtest_streamed "Live tests versus localhost" => sub {
     my $expected = [ "whee", '', 0 ];
     is( \@cmd_ret, $expected, "Got expected return (non-persistent shell)" );
     $obj->use_persistent_shell(1);
-    @cmd_ret = $obj->cmd(qw{echo widdly});
+    @cmd_ret = $obj->cmd(qw{echo whee});
     is( \@cmd_ret, $expected, "Got expected return (persistent shell)" );
     $obj->write("net-openssh-more-test", "whee");
     @cmd_ret = $obj->cmd(qw{cat net-openssh-more-test});
     is( \@cmd_ret, $expected, "Got expected result from write");
-    my $ec = $obj->cmd_exit_only(qw{rm -f net-openssh-more-test});
-    is( $ec, 0, "cmd_exit_only returns 0 on successful command");
+    my $ec = $obj->cmd_exit_code(qw{rm -f net-openssh-more-test});
+    is( $ec, 0, "cmd_exit_code returns 0 on successful command");
 };
 
 # Mock based testing