diff options
-rwxr-xr-x | TAO/orbsvcs/tests/FT_Naming/FaultTolerant/run_persistence_test.pl | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/TAO/orbsvcs/tests/FT_Naming/FaultTolerant/run_persistence_test.pl b/TAO/orbsvcs/tests/FT_Naming/FaultTolerant/run_persistence_test.pl index 15d173dbf2b..ef40558c515 100755 --- a/TAO/orbsvcs/tests/FT_Naming/FaultTolerant/run_persistence_test.pl +++ b/TAO/orbsvcs/tests/FT_Naming/FaultTolerant/run_persistence_test.pl @@ -534,25 +534,25 @@ sub backup_restore_test () print_msg("Verifying naming context backup files"); $file = $name_dir . "/NameService"; if (compare_file_with_backup ($file) != 0) { - $status = 1; + $status = 1; } for ($i = 0; $i < $num_child_contexts; $i++) { - $file = $name_dir . "/NameService_$i"; - if (compare_file_with_backup ($file) != 0) { - $status = 1; - } + $file = $name_dir . "/NameService_$i"; + if (compare_file_with_backup ($file) != 0) { + $status = 1; + } } print_msg("Verifying object group backup files"); $file = $group_dir . "/ObjectGroup_global"; if (compare_file_with_backup ($file) != 0) { - $status = 1; + $status = 1; } for ($i = 0; $i < $num_object_groups; $i++) { - $file = $group_dir . "/ObjectGroup_$i"; - if (compare_file_with_backup ($file) != 0) { - $status = 1; - } + $file = $group_dir . "/ObjectGroup_$i"; + if (compare_file_with_backup ($file) != 0) { + $status = 1; + } } ##6. Replace some of the data files with corrupt files @@ -564,7 +564,7 @@ sub backup_restore_test () @allfiles = grep(/^NameService/, readdir(NAMEDIR)); closedir(NAMEDIR); foreach $file (@allfiles) { - copy ($corrupt_name_dir . $file, $name_dir . "/" . $file) or die "Copy failed: $!\n"; + copy ($corrupt_name_dir . $file, $name_dir . "/" . $file) or die "Copy failed: $!\n"; } my $corrupt_group_dir = $corrupt_data_dir . $group_dir . "/"; @@ -572,7 +572,7 @@ sub backup_restore_test () @allfiles = grep(/^ObjectGroup/, readdir(GROUPDIR)); closedir(GROUPDIR); foreach $file (@allfiles) { - copy ($corrupt_group_dir . $file, $group_dir . "/" . $file) or die "Copy failed: $!\n"; + copy ($corrupt_group_dir . $file, $group_dir . "/" . $file) or die "Copy failed: $!\n"; } ##7. Start a new instance of the tao_ft_naming server @@ -603,8 +603,8 @@ sub backup_restore_test () } if ($restore_status == 1) { - cat_file($client_stderr_file); - cat_file($client_stdout_file); + cat_file($client_stderr_file); + cat_file($client_stdout_file); } print_msg("INFO: terminating test server"); |