Don't assume that LoginName or NodeName is at least 2 characters long

Author: jandubois

Changes

@@ -4,6 +4,8 @@ Revision history for the Perl extension Win32.
         - Make sure %PROCESSOR_ARCHITECTURE% is defined before calling
           Win32::GetArchName() in t/Names.t.  It may be undefined when
           the test is running under Cygwin crond.
+        - In t/Names.t don't assume that LoginName or NodeName is at
+          least 2 characters long; it may just be 1.
 
 0.46    [2013-02-19]
         - add Win2012/Win8 detection (thanks to Michiel Beijen) [rt#82572]

t/Names.t

@@ -49,9 +49,9 @@ is( $osname2, $osname, "  - checking that OS name is the same in both calls" );
 # test Win32::LoginName()
 my $login = eval { Win32::LoginName() };
 is( $@, '', "Win32::LoginName()" );
-cmp_ok( length($login), '>', 1, "  - checking returned login name" );
+cmp_ok( length($login), '>', 0, "  - checking returned login name" );
 
 # test Win32::NodeName()
 my $nodename = eval { Win32::NodeName() };
 is( $@, '', "Win32::NodeName()" );
-cmp_ok( length($nodename), '>', 1, "  - checking returned node name" );
+cmp_ok( length($nodename), '>', 0, "  - checking returned node name" );