First import, test suite attempt for built ISOs

Code heavily taken from previous dams work,
reorganized in a test suite to better separate test cases.

Does basic things already (in t/).
Needs more fixes (esp. in t_install_iso/).

1 files changed, 24 insertions, 0 deletions

diff --git a/t/000_test_env.t b/t/000_test_env.t
new file mode 100644
index 0000000..9484e5b
--- /dev/null
+++ b/t/000_test_env.t
@@ -0,0 +1,24 @@
+#
+# These tests check that the testing environment is complete.
+#
+
+use Test::Most;
+
+bail_on_fail;
+
+my ($image_path) = @ARGV;
+
+# FIXME why need to be root? for mounting the ISO only?
+# FIXME USER or USERNAME?
+is($ENV{USERNAME}, 'root', "Current user is root.");
+
+# TODO move this elsewhere maybe?
+sub pkg_check { my ($pkg) = @_; return system("rpm -q $pkg >/dev/null"); }
+
+my @packages = qw(cdrkit cdrkit-isotools mono gnupg);
+
+foreach my $p (@packages) {
+    is(pkg_check($p), 0, sprintf("%s is installed.", $p));
+}
+
+done_testing();