sbotools2

commit 02c6893233b190fbec966803cca7820678b06250
parent c0570bf66259b59f26439592aff450f42d4e2f55
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Tue, 26 Jul 2016 00:12:18 +0200

04-install.t: test inode change for .SlackBuild

This is for testing #40, and it is still marked 'TODO'

Diffstat:
M
t/04-install.t
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/t/04-install.t b/t/04-install.t
@@ -10,7 +10,7 @@ use lib $RealBin;
 use Test::Sbotools qw/ make_slackbuilds_txt set_lo sboinstall sboremove restore_perf_dummy /;
 
 if ($ENV{TEST_INSTALL}) {
-	plan tests => 18;
+	plan tests => 19;
 } else {
 	plan skip_all => 'Only run these tests if TEST_INSTALL=1';
 }
@@ -97,6 +97,15 @@ sboinstall 'perl-Capture-Tiny', { expected => "perl-Capture-Tiny installed via t
 # 18: sboinstall perl-nonexistentcpan
 sboinstall 'perl-nonexistentcpan', { input => "n", expected => qr/Proceed with perl-nonexistentcpan/ };
 
+# 19: check node status of slackbuild script
+TODO: {
+	local $TODO = "preserving inodes not implemented yet";
+	my $sbo = "$RealBin/LO/nonexistentslackbuild/nonexistentslackbuild.SlackBuild";
+	my $inode = (stat($sbo))[1];
+	sboinstall 'nonexistentslackbuild', { input => "y\ny", test => 0 };
+	is((stat($sbo))[1], $inode, "inode didn't change");
+}
+
 # Cleanup
 END {
 	cleanup();