testsuite-arrange-for-bad-volume-dump-to-be-in-useful-location-20020117

since we run the script not from the script dir we need to know where it lives, or do this.

diff --git a/src/tests/baduniq.pl b/src/tests/baduniq.pl
new file mode 100755 (executable)
index 0000000..3477593
--- /dev/null
+++ b/src/tests/baduniq.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use OpenAFS::CMU_copyright;
+use OpenAFS::util qw(:DEFAULT %AFS_Help);
+use OpenAFS::afsconf;
+use OpenAFS::fs;
+use OpenAFS::pts;
+use OpenAFS::vos;
+use OpenAFS::bos;
+
+my ($host, $ret);
+$host = `hostname`;
+&AFS_Init();
+
+&AFS_vos_restore("badvol","localhost","a","/usr/tmp/t.uniq-bad","100","full",);
+&AFS_bos_salvage("localhost","a","badvol",,,,,,);
+&AFS_fs_mkmount("badvol", "badvol",,,);
+if ( -f "badvol/test" ) {
+ &AFS_fs_rmmount("badvol");
+ exit(0);
+}
+&AFS_fs_rmmount("badvol");
+exit(1);
+
+
+

diff --git a/src/tests/run-suite.pl b/src/tests/run-suite.pl
index 35b7619..d1559d6 100755 (executable)
--- a/src/tests/run-suite.pl
+++ b/src/tests/run-suite.pl
@@ -219,6 +219,8 @@ unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part root.afs.re
 
 run("$openafsinitcmd->{'client-restart'}");
 
+`cp ./t.uniq-bad /usr/tmp`;
+
 system ("pagsh -c './test-front.sh $lcell'");
 
 @unwinds = ();