2006-06-15 11:09:30 by steve

Added to repository.  Test that we have some binaries present,
 will avoid more bug reports like last nights...

tests/programs.t

@@ -0,0 +1,43 @@
+#!/usr/bin/perl -w -I..
+#
+#  Test that we have several required programs present.
+#
+# Steve
+# --
+#
+
+use Test::More qw( no_plan );
+
+
+#
+#  Files that we want to use.
+#
+my @required = qw( /usr/sbin/debootstrap /bin/ls /bin/dd /bin/mount /bin/cp /bin/tar );
+
+#
+#  Files that we might wish to use.
+#
+my @optional = qw( /usr/bin/rpmstrap /usr/sbin/xm );
+
+
+
+#
+#  Test required programs
+#
+foreach my $file ( @required )
+{
+    ok( -x $file , "Required binary installed: $file" );
+}
+
+#
+#  Test optional programs - if they exist then we ensure they are
+# executable.  If they don't we'll not complain since they are optional.
+#
+foreach my $file ( @optional )
+{
+    if ( -e $file )
+    {
+        ok( -x $file , "Optional binary installed: $file" );
+    }
+}
+