add a standalone test for gl-system-install

1 files changed, 178 insertions, 0 deletions

diff --git a/t/standalone/gl-system-install b/t/standalone/gl-system-install
new file mode 100755
index 0000000..298d0ec
--- /dev/null
+++ b/t/standalone/gl-system-install
@@ -0,0 +1,178 @@
+#!/usr/bin/perl
+
+# test script for install side of gitolite (not part of normal test suite)
+
+use 5.10.0;
+use strict;
+use warnings;
+
+use lib "$ENV{HOME}/._s/bin";
+use Tsh;
+
+my $version_string = get_version();
+
+my $euid=$>;
+try 'cd';
+
+# invalid arguments
+
+clean();
+try "
+    ## invalid arguments
+    gitolite/src/gl-system-install bin2
+        !ok
+        /I need all 3.../
+    gitolite/src/gl-system-install bin2 share2/gitolite/conf share2/gitolite/hooks
+        !ok
+        /should be an absolute path/
+    ";
+
+# no arguments
+
+clean();
+try "
+    ## no arguments
+    gitolite/src/gl-system-install
+        ok
+        /using default values for EUID=$euid/
+        //home/gl-test/bin, /home/gl-test/share/gitolite/conf, /home/gl-test/share/gitolite/hooks/
+    ";
+
+static_checks(
+    "/home/gl-test/bin",
+    "/home/gl-test/share/gitolite/conf",
+    "/home/gl-test/share/gitolite/hooks",
+    $version_string
+);
+
+# non-default arguments
+
+clean();
+try "
+    ## non-default arguments
+    gitolite/src/gl-system-install \$PWD/bin2 \$PWD/share2/gitolite/conf \$PWD/share2/gitolite/hooks
+        !ok
+        /WARNING/
+        /gl-setup is not in your .PATH/
+    ";
+
+static_checks(
+    "/home/gl-test/bin2",
+    "/home/gl-test/share2/gitolite/conf",
+    "/home/gl-test/share2/gitolite/hooks",
+    $version_string
+);
+
+# occurs earlier in PATH
+
+clean();
+try "
+    ## occurs earlier in PATH
+    gitolite/src/gl-system-install
+    gitolite/src/gl-system-install \$PWD/bin2 \$PWD/share2/gitolite/conf \$PWD/share2/gitolite/hooks
+        !ok
+        /WARNING/
+        /in your .PATH .also. contains gl-setup/
+    " or die;
+
+static_checks(
+    "/home/gl-test/bin2",
+    "/home/gl-test/share2/gitolite/conf",
+    "/home/gl-test/share2/gitolite/hooks",
+    $version_string
+);
+
+# ----------------------------------------------------------------------
+
+sub static_checks {
+    # 3 directory names, version string
+    my ($bin_dir, $conf_dir, $hooks_dir, $verstr) = @_;
+
+    try "
+        # $bin_dir/gl-setup contains $conf_dir
+        cat $bin_dir/gl-setup
+            ok
+            /\Q$conf_dir\E/
+            !/\Q/tmp/share\E/
+    " or die;
+    try "
+        # $conf_dir/example.gitolite.rc has $conf_dir and $hooks_dir
+        cat $conf_dir/example.gitolite.rc
+            ok
+            /\Q$conf_dir\E/
+            /\Q$hooks_dir\E/
+            !/\Q/tmp/share\E/
+    " or die;
+    try "
+        # check $bin_dir got most of the sources
+        ls -al $bin_dir
+            ok
+            /gitolite_env.pm/
+            /gitolite.pm/
+            /gitolite_rc.pm/
+            /gl-auth-command/
+            /gl-compile-conf/
+            /gl-install/
+            /gl-query-rc/
+            /gl-setup/
+            /gl-system-install/
+    " or die;
+    try "
+        # check $conf_dir got the example files
+        ls -al $conf_dir
+            ok
+            /example.gitolite.rc/
+            /example.conf/
+            /VERSION/
+    " or die;
+    try "
+        # check $hooks_dir got the hooks
+        find $hooks_dir -type f
+            ok
+            /\Q$hooks_dir/common/gitolite-hooked\E/
+            /\Q$hooks_dir/common/update\E/
+            /\Q$hooks_dir/common/update.secondary.sample\E/
+            /\Q$hooks_dir/common/post-receive.mirrorpush\E/
+            /\Q$hooks_dir/common/gl-pre-git.hub-sample\E/
+            /\Q$hooks_dir/gitolite-admin/post-update\E/
+    " or die;
+    try "
+        # check version string
+        cat $conf_dir/VERSION
+            ok
+            /\Q$verstr\E/
+    " or die;
+}
+
+sub clean {
+    chdir($ENV{HOME});
+    system("rm -rf .ssh*");
+    system("rm -rf .gito* gitolite-admin projects.list repositories *back.tar share share2 bin bin2 glt-adc td");
+    mkdir "td";
+
+    system("mkdir -p .ssh; chmod go-w .ssh");
+
+    system("ssh-keygen -q -N '' -f .ssh/id_rsa");
+
+    # set up our identity (impacts some tests; don't change this!)
+    system('git config --global user.name "gitolite tester"');
+    system('git config --global user.email "tester@example.com"');
+}
+
+sub cd_g {
+    chdir($ENV{HOME});
+    chdir("gitolite");
+}
+
+sub setup {
+    chdir($ENV{HOME});
+    try "cp .ssh/id_rsa.pub tester.pub";
+    try "gl-setup -q tester.pub";
+}
+
+sub get_version {
+    chdir($ENV{HOME});
+    chdir("gitolite");
+    try "git describe --tags --long --dirty=-dt 2>/dev/null";
+    return ((lines())[0]);
+}