Add tags-replacing mechanism

1 files changed, 25 insertions, 0 deletions

diff --git a/t/Test/Sbotools.pm b/t/Test/Sbotools.pm
index ec0abfc..88c4cf5 100644
--- a/t/Test/Sbotools.pm
+++ b/t/Test/Sbotools.pm
@@ -31,6 +31,7 @@ our @EXPORT_OK = qw/
   set_sbo_home
   make_slackbuilds_txt
   restore_perf_dummy
+  replace_tags_txt
 /;
 
 local $Test::Builder::Level = $Test::Builder::Level + 1;
@@ -98,6 +99,24 @@ sub restore_perf_dummy {
 	}
 }
 
+my $tags = 0;
+my $tags_txt = '/usr/sbo/repo/TAGS.txt';
+sub replace_tags_txt {
+	if (-e $tags_txt) {
+		if (! $tags) {
+			$tags = 2;
+			system('mv', $tags_txt, "$tags_txt.bak");
+		}
+	} else {
+		$tags = 1 if $tags == 0;
+	}
+
+	system('mkdir', '-p', '/usr/sbo/repo');
+	open my $fh, '>', $tags_txt;
+	print $fh $_ for @_;
+	close $fh;
+}
+
 # Restore original values when exiting
 END {
 	if (%config) {
@@ -106,6 +125,12 @@ END {
 	if ($made) {
 		system(qw!rm -rf!, $fname);
 	}
+	if ($tags) {
+		system(qw!rm -rf !, $tags_txt);
+	}
+	if ($tags == 2) {
+		system('mv', "$tags_txt.bak", $tags_txt);
+	}
 }
 
 1;