Changeset 41045

Timestamp:

Nov 5, 2019, 8:05:47 AM (7 years ago)

Author:

eugene

Message:

fix inconsistency with perl 5.6.6 (gentoo) and 5.26.1 (ubuntu)

File:

• branches/eam_branches/ipp-20191011/Nebulous/t/56_client_find_instances.t (modified) (4 diffs)

branches/eam_branches/ipp-20191011/Nebulous/t/56_client_find_instances.t

@@ -152 +152 @@
     );
     $neb->create( "foo" );
+    $neb->set_log_level ('DEBUG');
 
     my $locations = $neb->find_instances( "foo", undef );
@@ -185 +186 @@
     );
     $neb->create( "foo", "~node01" );
+    $neb->set_log_level ('DEBUG');
 
     my $locations = $neb->find_instances( "neb://node01/foo", "~node02" );
@@ -204 +206 @@
     );
     $neb->create( "foo", "~node01" );
+    $neb->set_log_level ('DEBUG');
 
     my $locations = $neb->find_instances( "neb://node01/foo", "~nobody" );
-
-    is( scalar @$locations, 0, "found 0" );
-#    like( @$locations[0], qr/file:/, "URIs match" );
-#    ok( -e _get_file_path( @$locations[0] ), "URI matches file" );
-
-#   the API used to return undef if we used a hard_volume but it was not there
-#   is($locations, undef, "no instances on specified volume" );
+    is($locations, undef, "no instances on specified volume" );
+#   is( scalar @$locations, 0, "found 0" );
+#   under Ubuntu (Perl 5.26.1), @$locations evaluates to 0 if $locations is undef,
+#   but not under Gentoo (Perl 5.6.6)
 }
 
@@ -224 +224 @@
     );
     $neb->create( "foo", "~node01" );
+    $neb->set_log_level ('DEBUG');
 
     my $locations = $neb->find_instances( "neb://node01/foo", "~node04" );