Test pull_sbo_tree doesn't create SLACKBUILDS.TXT

1 files changed, 10 insertions, 4 deletions

diff --git a/t/19-unit.t b/t/19-unit.t
index c2f0d21..7370b42 100644
--- a/t/19-unit.t
+++ b/t/19-unit.t
@@ -11,7 +11,7 @@ use lib "$RealBin/../SBO-Lib/lib";
 use SBO::Lib qw/ script_error usage_error open_fh %config indent get_installed_packages get_inst_names /;
 use Capture::Tiny qw/ capture_merged /;
 
-plan tests => 31;
+plan tests => 32;
 
 # 1-2: test script_error();
 {
@@ -114,7 +114,7 @@ SKIP: {
 	is ($out, "A fatal script error has occurred:\nrsync_sbo_tree requires an argument.\nExiting.\n", 'rsync_sbo_tree() gave correct output');
 }
 
-# 21-26: test git_sbo_tree(), check_git_remote(), and generate_slackbuilds_txt();
+# 21-27: test git_sbo_tree(), check_git_remote(), generate_slackbuilds_txt(), and pull_sbo_tree();;
 {
 	system(qw! mv /usr/sbo/repo /usr/sbo/backup !) if -d '/usr/sbo/repo';
 	system(qw! mkdir -p /usr/sbo/repo/.git !);
@@ -155,10 +155,16 @@ SKIP: {
 	is (SBO::Lib::generate_slackbuilds_txt(), 1, 'generate_slackbuilds_txt() returned 1');
 
 	system(qw! rm -r /usr/sbo/repo !) if -d '/usr/sbo/repo';
+
+	local $config{REPO} = '';
+	SBO::Lib::pull_sbo_tree();
+	ok (!-e '/usr/sbo/repo/SLACKBUILDS.TXT', 'SLACKBUILDS.TXT was not generated by pull_sbo_tree()');
+
+	system(qw! rm -r /usr/sbo/repo !) if -d '/usr/sbo/repo';
 	system(qw! mv /usr/sbo/backup /usr/sbo/repo !) if -d '/usr/sbo/backup';
 }
 
-# 27-29: test get_installed_packages();
+# 28-30: test get_installed_packages();
 {
 	my $exit;
 	my $out = capture_merged { $exit = exit_code { get_installed_packages(); }; };
@@ -174,7 +180,7 @@ SKIP: {
 	system(qw!mv /var/log/packages.backup /var/log/packages!);
 }
 
-# 30-31: test get_inst_names();
+# 31-32: test get_inst_names();
 {
 	my $exit;
 	my $out = capture_merged { $exit = exit_code { get_inst_names(); }; };