From 57546d5cf340544730f96a83785effd494986260 Mon Sep 17 00:00:00 2001
From: Derrick Brashear <shadow@dementia.org>
Date: Thu, 17 Jan 2002 10:47:20 +0000
Subject: [PATCH] 
 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.
---
 src/tests/baduniq.pl   | 25 +++++++++++++++++++++++++
 src/tests/run-suite.pl |  2 ++
 2 files changed, 27 insertions(+)
 create mode 100755 src/tests/baduniq.pl

diff --git a/src/tests/baduniq.pl b/src/tests/baduniq.pl
new file mode 100755
index 000000000..3477593c0
--- /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 35b7619f4..d1559d630 100755
--- 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 = ();
-- 
2.39.5