Changeset 2871 for trunk/Nebulous/t/16_client_find_instances.t

Timestamp:

Jan 3, 2005, 1:52:44 PM (22 years ago)

Author:

jhoblitt

Message:

test to see if URIs point to something valid

File:

• trunk/Nebulous/t/16_client_find_instances.t (modified) (5 diffs)

trunk/Nebulous/t/16_client_find_instances.t

@@ -6 +6 @@
 use Apache::Test qw( -withtestmore );
 
-plan tests => 13;
+plan tests => 19;
 
 use lib qw( ./t ./lib );
@@ -29 +29 @@
     is( scalar @$locations, 1, "found 1" );
     like( @$locations[0], qr/file:/, "URIs match" );
+    ok( -e _get_file_path( @$locations[0] ), "URI matches file" );
 }
 
@@ -46 +47 @@
     like( @$locations[0], qr/file:/, "URIs match" );
     like( @$locations[1], qr/file:/, "URIs match" );
+    ok( -e _get_file_path( @$locations[0] ), "URI matches file" );
+    ok( -e _get_file_path( @$locations[1] ), "URI matches file" );
 }
 
@@ -61 +64 @@
     is( scalar @$locations, 1, "found 1" );
     like( @$locations[0], qr/file:/, "URIs match" );
+    ok( -e _get_file_path( @$locations[0] ), "URI matches file" );
 }
 
@@ -78 +82 @@
     like( @$locations[0], qr/file:/, "URIs match" );
     like( @$locations[1], qr/file:/, "URIs match" );
+    ok( -e _get_file_path( @$locations[0] ), "URI matches file" );
+    ok( -e _get_file_path( @$locations[1] ), "URI matches file" );
 }
-
 
 Test::IData->setup;