use LC_ALL-C in the test suite and also skip "no home" tests on non-l…

…inux systems

Changes

@@ -1,3 +1,9 @@
+0.017
+- now in the test scaffold, we use LC_ALL=C rather than LC_ALL=en_US.UTF-8.
+  the latter is not available on certain systems.
+- skipped the "no home" tests on non-linux systems.
+- minor doc fixes.
+
 0.016
 - fixed a doc typo found by franck.
 

lib/SSH/Batch.pm

@@ -323,7 +323,7 @@ clusters to local file system (maybe grouped by host name).
 
 =item *
 
-Add the C<betweenodes> script to transfer files between clusters through
+Add the C<betweennodes> script to transfer files between clusters through
 localhost.
 
 =back

t/atnodes.pm

@@ -9,12 +9,14 @@ our @EXPORT = qw( run_tests );
 if (!-d 't/tmp') {
     mkdir 't/tmp';
 }
-$ENV{LC_ALL} = 'en_US.UTF-8';
+$ENV{LC_ALL} = 'C';
 delete $ENV{SSH_BATCH_SSH_CMD};
 $ENV{HOME} = "$FindBin::Bin/tmp";
 #warn $ENV{HOME};
 my $RcFile = $ENV{HOME} . '/.fornodesrc';
 
+my $is_linux = ($^O =~ /linux/i);
+
 sub run_tests () {
     for my $block (blocks()) {
         run_test($block);
@@ -31,6 +33,14 @@ sub write_rc (@) {
 sub run_test ($) {
     my $block = shift;
     my $name = $block->name;
+
+    if (defined $block->linux_only && ! $is_linux) {
+        diag "$name - Tests skipped on $^O\n";
+        for (1..3) {
+            pass("tests skipped on $^O\n");
+        }
+    }
+
     my $args = $block->args;
     if (!defined $args) {
         die "$name - No --- args specified.\n";

t/atnodes.t

@@ -17,6 +17,7 @@ __DATA__
 Can't find the home for the current user.
 --- out
 --- status: 2
+--- linux_only
 
 
 

t/fornodes.pm

@@ -9,11 +9,13 @@ our @EXPORT = qw( run_tests );
 if (!-d 't/tmp') {
     mkdir 't/tmp';
 }
-$ENV{LC_ALL} = 'en_US.UTF-8';
+$ENV{LC_ALL} = 'C';
 $ENV{HOME} = "$FindBin::Bin/tmp";
 #warn $ENV{HOME};
 my $RcFile = $ENV{HOME} . '/.fornodesrc';
 
+my $is_linux = ($^O =~ /linux/i);
+
 sub run_tests () {
     for my $block (blocks()) {
         run_test($block);
@@ -30,6 +32,13 @@ sub write_rc (@) {
 sub run_test ($) {
     my $block = shift;
     my $name = $block->name;
+
+    if (defined $block->linux_only && ! $is_linux) {
+        diag "$name - Tests skipped on $^O\n";
+        for (1..3) {
+            pass("tests skipped on $^O\n");
+        }
+    }
     my $expr = $block->expr;
     chomp $expr;
     if (!defined $expr) {

t/fornodes.t

@@ -17,6 +17,7 @@ __DATA__
 Can't find the home for the current user.
 --- out
 --- status: 2
+--- linux_only
 
 
 

t/tonodes.pm

@@ -9,11 +9,13 @@ our @EXPORT = qw( run_tests );
 if (!-d 't/tmp') {
     mkdir 't/tmp';
 }
-$ENV{LC_ALL} = 'en_US.UTF-8';
+$ENV{LC_ALL} = 'C';
 $ENV{HOME} = "$FindBin::Bin/tmp";
 #warn $ENV{HOME};
 my $RcFile = $ENV{HOME} . '/.fornodesrc';
 
+my $is_linux = ($^O =~ /linux/i);
+
 sub run_tests () {
     for my $block (blocks()) {
         run_test($block);
@@ -30,6 +32,14 @@ sub write_rc (@) {
 sub run_test ($) {
     my $block = shift;
     my $name = $block->name;
+
+    if (defined $block->linux_only && ! $is_linux) {
+        diag "$name - Tests skipped on $^O\n";
+        for (1..3) {
+            pass("tests skipped on $^O\n");
+        }
+    }
+
     my $args = $block->args;
     if (!defined $args) {
         die "$name - No --- args specified.\n";

t/tonodes.t

@@ -17,6 +17,7 @@ __DATA__
 Can't find the home for the current user.
 --- out
 --- status: 2
+--- linux_only