From: Jennie 'Seven' Evers-Corvina <seven@nanabox.net>
Date: Mon, 13 Dec 2010 18:29:55 +0000 (-0800)
Subject: some testy tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28a696624e6161bbfd30446f1043935723966e49;p=p5sagit%2FIPC-PerlSSH-MultiHop.git

some testy tests
---

diff --git a/t/scratch.t b/t/scratch.t
index 74f5c05..e6b13c4 100644
--- a/t/scratch.t
+++ b/t/scratch.t
@@ -52,4 +52,13 @@ my @remote_uname = $perlssh->eval( "uname()" );
 
 ## This is a really shitty idea for a test but fuck you.
 is( $remote_uname[1], "minerva", 'localhost uname() returns minerva' );
+
+my $homedir = $perlssh->eval( '$ENV{HOME}' );
+fail( "we require a little sensibility in our \$ENV thank you." )
+  unless defined $homedir;
+
+$perlssh->eval( "use File::HomeDir" );
+my $homedir2 = $perlssh->eval( 'File::HomeDir->my_home' );
+is( $homedir2, "/home/test", 'got $ENV{HOME} the smart way' );
+
 done_testing;