This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 0.12
in repository libdist-zilla-plugin-githubmeta-perl.

commit 6dfef49bb85848df102485913d888cd2e9c4dff4
Author: Ricardo Signes <r...@cpan.org>
Date:   Mon May 2 18:59:37 2011 -0400

    add a small but non-trivial set of tests
---
 corpus/GHM-Sample/ignore                   |   0
 corpus/git/HEAD                            |   1 +
 corpus/git/branches/ignore                 |   0
 corpus/git/config                          |   6 +
 corpus/git/description                     |   1 +
 corpus/git/hooks/applypatch-msg.sample     |  15 +++
 corpus/git/hooks/commit-msg.sample         |  24 ++++
 corpus/git/hooks/post-commit.sample        |   8 ++
 corpus/git/hooks/post-receive.sample       |  15 +++
 corpus/git/hooks/post-update.sample        |   8 ++
 corpus/git/hooks/pre-applypatch.sample     |  14 +++
 corpus/git/hooks/pre-commit.sample         |  46 ++++++++
 corpus/git/hooks/pre-rebase.sample         | 169 +++++++++++++++++++++++++++++
 corpus/git/hooks/prepare-commit-msg.sample |  36 ++++++
 corpus/git/hooks/update.sample             | 128 ++++++++++++++++++++++
 corpus/git/info/exclude                    |   6 +
 corpus/git/objects/ignore                  |   0
 corpus/git/refs/ignore                     |   0
 lib/Dist/Zilla/Plugin/GithubMeta.pm        |  21 ++--
 t/basic.t                                  | 112 +++++++++++++++++++
 20 files changed, 601 insertions(+), 9 deletions(-)

diff --git a/corpus/GHM-Sample/ignore b/corpus/GHM-Sample/ignore
new file mode 100644
index 0000000..e69de29
diff --git a/corpus/git/HEAD b/corpus/git/HEAD
new file mode 100644
index 0000000..cb089cd
--- /dev/null
+++ b/corpus/git/HEAD
@@ -0,0 +1 @@
+ref: refs/heads/master
diff --git a/corpus/git/branches/ignore b/corpus/git/branches/ignore
new file mode 100644
index 0000000..e69de29
diff --git a/corpus/git/config b/corpus/git/config
new file mode 100644
index 0000000..af10792
--- /dev/null
+++ b/corpus/git/config
@@ -0,0 +1,6 @@
+[core]
+       repositoryformatversion = 0
+       filemode = true
+       bare = false
+       logallrefupdates = true
+       ignorecase = true
diff --git a/corpus/git/description b/corpus/git/description
new file mode 100644
index 0000000..498b267
--- /dev/null
+++ b/corpus/git/description
@@ -0,0 +1 @@
+Unnamed repository; edit this file 'description' to name the repository.
diff --git a/corpus/git/hooks/applypatch-msg.sample 
b/corpus/git/hooks/applypatch-msg.sample
new file mode 100755
index 0000000..8b2a2fe
--- /dev/null
+++ b/corpus/git/hooks/applypatch-msg.sample
@@ -0,0 +1,15 @@
+#!/bin/sh
+#
+# An example hook script to check the commit log message taken by
+# applypatch from an e-mail message.
+#
+# The hook should exit with non-zero status after issuing an
+# appropriate message if it wants to stop the commit.  The hook is
+# allowed to edit the commit message file.
+#
+# To enable this hook, rename this file to "applypatch-msg".
+
+. git-sh-setup
+test -x "$GIT_DIR/hooks/commit-msg" &&
+       exec "$GIT_DIR/hooks/commit-msg" ${1+"$@"}
+:
diff --git a/corpus/git/hooks/commit-msg.sample 
b/corpus/git/hooks/commit-msg.sample
new file mode 100755
index 0000000..b58d118
--- /dev/null
+++ b/corpus/git/hooks/commit-msg.sample
@@ -0,0 +1,24 @@
+#!/bin/sh
+#
+# An example hook script to check the commit log message.
+# Called by "git commit" with one argument, the name of the file
+# that has the commit message.  The hook should exit with non-zero
+# status after issuing an appropriate message if it wants to stop the
+# commit.  The hook is allowed to edit the commit message file.
+#
+# To enable this hook, rename this file to "commit-msg".
+
+# Uncomment the below to add a Signed-off-by line to the message.
+# Doing this in a hook is a bad idea in general, but the prepare-commit-msg
+# hook is more suited to it.
+#
+# SOB=$(git var GIT_AUTHOR_IDENT | sed -n 's/^\(.*>\).*$/Signed-off-by: \1/p')
+# grep -qs "^$SOB" "$1" || echo "$SOB" >> "$1"
+
+# This example catches duplicate Signed-off-by lines.
+
+test "" = "$(grep '^Signed-off-by: ' "$1" |
+        sort | uniq -c | sed -e '/^[   ]*1[    ]/d')" || {
+       echo >&2 Duplicate Signed-off-by lines.
+       exit 1
+}
diff --git a/corpus/git/hooks/post-commit.sample 
b/corpus/git/hooks/post-commit.sample
new file mode 100755
index 0000000..2266821
--- /dev/null
+++ b/corpus/git/hooks/post-commit.sample
@@ -0,0 +1,8 @@
+#!/bin/sh
+#
+# An example hook script that is called after a successful
+# commit is made.
+#
+# To enable this hook, rename this file to "post-commit".
+
+: Nothing
diff --git a/corpus/git/hooks/post-receive.sample 
b/corpus/git/hooks/post-receive.sample
new file mode 100755
index 0000000..7a83e17
--- /dev/null
+++ b/corpus/git/hooks/post-receive.sample
@@ -0,0 +1,15 @@
+#!/bin/sh
+#
+# An example hook script for the "post-receive" event.
+#
+# The "post-receive" script is run after receive-pack has accepted a pack
+# and the repository has been updated.  It is passed arguments in through
+# stdin in the form
+#  <oldrev> <newrev> <refname>
+# For example:
+#  aa453216d1b3e49e7f6f98441fa56946ddcd6a20 
68f7abf4e6f922807889f52bc043ecd31b79f814 refs/heads/master
+#
+# see contrib/hooks/ for a sample, or uncomment the next line and
+# rename the file to "post-receive".
+
+#. /usr/share/doc/git-core/contrib/hooks/post-receive-email
diff --git a/corpus/git/hooks/post-update.sample 
b/corpus/git/hooks/post-update.sample
new file mode 100755
index 0000000..ec17ec1
--- /dev/null
+++ b/corpus/git/hooks/post-update.sample
@@ -0,0 +1,8 @@
+#!/bin/sh
+#
+# An example hook script to prepare a packed repository for use over
+# dumb transports.
+#
+# To enable this hook, rename this file to "post-update".
+
+exec git update-server-info
diff --git a/corpus/git/hooks/pre-applypatch.sample 
b/corpus/git/hooks/pre-applypatch.sample
new file mode 100755
index 0000000..b1f187c
--- /dev/null
+++ b/corpus/git/hooks/pre-applypatch.sample
@@ -0,0 +1,14 @@
+#!/bin/sh
+#
+# An example hook script to verify what is about to be committed
+# by applypatch from an e-mail message.
+#
+# The hook should exit with non-zero status after issuing an
+# appropriate message if it wants to stop the commit.
+#
+# To enable this hook, rename this file to "pre-applypatch".
+
+. git-sh-setup
+test -x "$GIT_DIR/hooks/pre-commit" &&
+       exec "$GIT_DIR/hooks/pre-commit" ${1+"$@"}
+:
diff --git a/corpus/git/hooks/pre-commit.sample 
b/corpus/git/hooks/pre-commit.sample
new file mode 100755
index 0000000..b187c4b
--- /dev/null
+++ b/corpus/git/hooks/pre-commit.sample
@@ -0,0 +1,46 @@
+#!/bin/sh
+#
+# An example hook script to verify what is about to be committed.
+# Called by "git commit" with no arguments.  The hook should
+# exit with non-zero status after issuing an appropriate message if
+# it wants to stop the commit.
+#
+# To enable this hook, rename this file to "pre-commit".
+
+if git rev-parse --verify HEAD >/dev/null 2>&1
+then
+       against=HEAD
+else
+       # Initial commit: diff against an empty tree object
+       against=4b825dc642cb6eb9a060e54bf8d69288fbee4904
+fi
+
+# If you want to allow non-ascii filenames set this variable to true.
+allownonascii=$(git config hooks.allownonascii)
+
+# Cross platform projects tend to avoid non-ascii filenames; prevent
+# them from being added to the repository. We exploit the fact that the
+# printable range starts at the space character and ends with tilde.
+if [ "$allownonascii" != "true" ] &&
+       # Note that the use of brackets around a tr range is ok here, (it's
+       # even required, for portability to Solaris 10's /usr/bin/tr), since
+       # the square bracket bytes happen to fall in the designated range.
+       test "$(git diff --cached --name-only --diff-filter=A -z $against |
+         LC_ALL=C tr -d '[ -~]\0')"
+then
+       echo "Error: Attempt to add a non-ascii file name."
+       echo
+       echo "This can cause problems if you want to work"
+       echo "with people on other platforms."
+       echo
+       echo "To be portable it is advisable to rename the file ..."
+       echo
+       echo "If you know what you are doing you can disable this"
+       echo "check using:"
+       echo
+       echo "  git config hooks.allownonascii true"
+       echo
+       exit 1
+fi
+
+exec git diff-index --check --cached $against --
diff --git a/corpus/git/hooks/pre-rebase.sample 
b/corpus/git/hooks/pre-rebase.sample
new file mode 100755
index 0000000..9773ed4
--- /dev/null
+++ b/corpus/git/hooks/pre-rebase.sample
@@ -0,0 +1,169 @@
+#!/bin/sh
+#
+# Copyright (c) 2006, 2008 Junio C Hamano
+#
+# The "pre-rebase" hook is run just before "git rebase" starts doing
+# its job, and can prevent the command from running by exiting with
+# non-zero status.
+#
+# The hook is called with the following parameters:
+#
+# $1 -- the upstream the series was forked from.
+# $2 -- the branch being rebased (or empty when rebasing the current branch).
+#
+# This sample shows how to prevent topic branches that are already
+# merged to 'next' branch from getting rebased, because allowing it
+# would result in rebasing already published history.
+
+publish=next
+basebranch="$1"
+if test "$#" = 2
+then
+       topic="refs/heads/$2"
+else
+       topic=`git symbolic-ref HEAD` ||
+       exit 0 ;# we do not interrupt rebasing detached HEAD
+fi
+
+case "$topic" in
+refs/heads/??/*)
+       ;;
+*)
+       exit 0 ;# we do not interrupt others.
+       ;;
+esac
+
+# Now we are dealing with a topic branch being rebased
+# on top of master.  Is it OK to rebase it?
+
+# Does the topic really exist?
+git show-ref -q "$topic" || {
+       echo >&2 "No such branch $topic"
+       exit 1
+}
+
+# Is topic fully merged to master?
+not_in_master=`git rev-list --pretty=oneline ^master "$topic"`
+if test -z "$not_in_master"
+then
+       echo >&2 "$topic is fully merged to master; better remove it."
+       exit 1 ;# we could allow it, but there is no point.
+fi
+
+# Is topic ever merged to next?  If so you should not be rebasing it.
+only_next_1=`git rev-list ^master "^$topic" ${publish} | sort`
+only_next_2=`git rev-list ^master           ${publish} | sort`
+if test "$only_next_1" = "$only_next_2"
+then
+       not_in_topic=`git rev-list "^$topic" master`
+       if test -z "$not_in_topic"
+       then
+               echo >&2 "$topic is already up-to-date with master"
+               exit 1 ;# we could allow it, but there is no point.
+       else
+               exit 0
+       fi
+else
+       not_in_next=`git rev-list --pretty=oneline ^${publish} "$topic"`
+       /usr/bin/perl -e '
+               my $topic = $ARGV[0];
+               my $msg = "* $topic has commits already merged to public 
branch:\n";
+               my (%not_in_next) = map {
+                       /^([0-9a-f]+) /;
+                       ($1 => 1);
+               } split(/\n/, $ARGV[1]);
+               for my $elem (map {
+                               /^([0-9a-f]+) (.*)$/;
+                               [$1 => $2];
+                       } split(/\n/, $ARGV[2])) {
+                       if (!exists $not_in_next{$elem->[0]}) {
+                               if ($msg) {
+                                       print STDERR $msg;
+                                       undef $msg;
+                               }
+                               print STDERR " $elem->[1]\n";
+                       }
+               }
+       ' "$topic" "$not_in_next" "$not_in_master"
+       exit 1
+fi
+
+exit 0
+
+################################################################
+
+This sample hook safeguards topic branches that have been
+published from being rewound.
+
+The workflow assumed here is:
+
+ * Once a topic branch forks from "master", "master" is never
+   merged into it again (either directly or indirectly).
+
+ * Once a topic branch is fully cooked and merged into "master",
+   it is deleted.  If you need to build on top of it to correct
+   earlier mistakes, a new topic branch is created by forking at
+   the tip of the "master".  This is not strictly necessary, but
+   it makes it easier to keep your history simple.
+
+ * Whenever you need to test or publish your changes to topic
+   branches, merge them into "next" branch.
+
+The script, being an example, hardcodes the publish branch name
+to be "next", but it is trivial to make it configurable via
+$GIT_DIR/config mechanism.
+
+With this workflow, you would want to know:
+
+(1) ... if a topic branch has ever been merged to "next".  Young
+    topic branches can have stupid mistakes you would rather
+    clean up before publishing, and things that have not been
+    merged into other branches can be easily rebased without
+    affecting other people.  But once it is published, you would
+    not want to rewind it.
+
+(2) ... if a topic branch has been fully merged to "master".
+    Then you can delete it.  More importantly, you should not
+    build on top of it -- other people may already want to
+    change things related to the topic as patches against your
+    "master", so if you need further changes, it is better to
+    fork the topic (perhaps with the same name) afresh from the
+    tip of "master".
+
+Let's look at this example:
+
+                  o---o---o---o---o---o---o---o---o---o "next"
+                 /       /           /           /
+                /   a---a---b A     /           /
+               /   /               /           /
+              /   /   c---c---c---c B         /
+             /   /   /             \         /
+            /   /   /   b---b C     \       /
+           /   /   /   /             \     /
+    ---o---o---o---o---o---o---o---o---o---o---o "master"
+
+
+A, B and C are topic branches.
+
+ * A has one fix since it was merged up to "next".
+
+ * B has finished.  It has been fully merged up to "master" and "next",
+   and is ready to be deleted.
+
+ * C has not merged to "next" at all.
+
+We would want to allow C to be rebased, refuse A, and encourage
+B to be deleted.
+
+To compute (1):
+
+       git rev-list ^master ^topic next
+       git rev-list ^master        next
+
+       if these match, topic has not merged in next at all.
+
+To compute (2):
+
+       git rev-list master..topic
+
+       if this is empty, it is fully merged to "master".
diff --git a/corpus/git/hooks/prepare-commit-msg.sample 
b/corpus/git/hooks/prepare-commit-msg.sample
new file mode 100755
index 0000000..f093a02
--- /dev/null
+++ b/corpus/git/hooks/prepare-commit-msg.sample
@@ -0,0 +1,36 @@
+#!/bin/sh
+#
+# An example hook script to prepare the commit log message.
+# Called by "git commit" with the name of the file that has the
+# commit message, followed by the description of the commit
+# message's source.  The hook's purpose is to edit the commit
+# message file.  If the hook fails with a non-zero status,
+# the commit is aborted.
+#
+# To enable this hook, rename this file to "prepare-commit-msg".
+
+# This hook includes three examples.  The first comments out the
+# "Conflicts:" part of a merge commit.
+#
+# The second includes the output of "git diff --name-status -r"
+# into the message, just before the "git status" output.  It is
+# commented because it doesn't cope with --amend or with squashed
+# commits.
+#
+# The third example adds a Signed-off-by line to the message, that can
+# still be edited.  This is rarely a good idea.
+
+case "$2,$3" in
+  merge,)
+    /usr/bin/perl -i.bak -ne 's/^/# /, s/^# #/#/ if /^Conflicts/ .. /#/; 
print' "$1" ;;
+
+# ,|template,)
+#   /usr/bin/perl -i.bak -pe '
+#      print "\n" . `git diff --cached --name-status -r`
+#       if /^#/ && $first++ == 0' "$1" ;;
+
+  *) ;;
+esac
+
+# SOB=$(git var GIT_AUTHOR_IDENT | sed -n 's/^\(.*>\).*$/Signed-off-by: \1/p')
+# grep -qs "^$SOB" "$1" || echo "$SOB" >> "$1"
diff --git a/corpus/git/hooks/update.sample b/corpus/git/hooks/update.sample
new file mode 100755
index 0000000..71ab04e
--- /dev/null
+++ b/corpus/git/hooks/update.sample
@@ -0,0 +1,128 @@
+#!/bin/sh
+#
+# An example hook script to blocks unannotated tags from entering.
+# Called by "git receive-pack" with arguments: refname sha1-old sha1-new
+#
+# To enable this hook, rename this file to "update".
+#
+# Config
+# ------
+# hooks.allowunannotated
+#   This boolean sets whether unannotated tags will be allowed into the
+#   repository.  By default they won't be.
+# hooks.allowdeletetag
+#   This boolean sets whether deleting tags will be allowed in the
+#   repository.  By default they won't be.
+# hooks.allowmodifytag
+#   This boolean sets whether a tag may be modified after creation. By default
+#   it won't be.
+# hooks.allowdeletebranch
+#   This boolean sets whether deleting branches will be allowed in the
+#   repository.  By default they won't be.
+# hooks.denycreatebranch
+#   This boolean sets whether remotely creating branches will be denied
+#   in the repository.  By default this is allowed.
+#
+
+# --- Command line
+refname="$1"
+oldrev="$2"
+newrev="$3"
+
+# --- Safety check
+if [ -z "$GIT_DIR" ]; then
+       echo "Don't run this script from the command line." >&2
+       echo " (if you want, you could supply GIT_DIR then run" >&2
+       echo "  $0 <ref> <oldrev> <newrev>)" >&2
+       exit 1
+fi
+
+if [ -z "$refname" -o -z "$oldrev" -o -z "$newrev" ]; then
+       echo "Usage: $0 <ref> <oldrev> <newrev>" >&2
+       exit 1
+fi
+
+# --- Config
+allowunannotated=$(git config --bool hooks.allowunannotated)
+allowdeletebranch=$(git config --bool hooks.allowdeletebranch)
+denycreatebranch=$(git config --bool hooks.denycreatebranch)
+allowdeletetag=$(git config --bool hooks.allowdeletetag)
+allowmodifytag=$(git config --bool hooks.allowmodifytag)
+
+# check for no description
+projectdesc=$(sed -e '1q' "$GIT_DIR/description")
+case "$projectdesc" in
+"Unnamed repository"* | "")
+       echo "*** Project description file hasn't been set" >&2
+       exit 1
+       ;;
+esac
+
+# --- Check types
+# if $newrev is 0000...0000, it's a commit to delete a ref.
+zero="0000000000000000000000000000000000000000"
+if [ "$newrev" = "$zero" ]; then
+       newrev_type=delete
+else
+       newrev_type=$(git cat-file -t $newrev)
+fi
+
+case "$refname","$newrev_type" in
+       refs/tags/*,commit)
+               # un-annotated tag
+               short_refname=${refname##refs/tags/}
+               if [ "$allowunannotated" != "true" ]; then
+                       echo "*** The un-annotated tag, $short_refname, is not 
allowed in this repository" >&2
+                       echo "*** Use 'git tag [ -a | -s ]' for tags you want 
to propagate." >&2
+                       exit 1
+               fi
+               ;;
+       refs/tags/*,delete)
+               # delete tag
+               if [ "$allowdeletetag" != "true" ]; then
+                       echo "*** Deleting a tag is not allowed in this 
repository" >&2
+                       exit 1
+               fi
+               ;;
+       refs/tags/*,tag)
+               # annotated tag
+               if [ "$allowmodifytag" != "true" ] && git rev-parse $refname > 
/dev/null 2>&1
+               then
+                       echo "*** Tag '$refname' already exists." >&2
+                       echo "*** Modifying a tag is not allowed in this 
repository." >&2
+                       exit 1
+               fi
+               ;;
+       refs/heads/*,commit)
+               # branch
+               if [ "$oldrev" = "$zero" -a "$denycreatebranch" = "true" ]; then
+                       echo "*** Creating a branch is not allowed in this 
repository" >&2
+                       exit 1
+               fi
+               ;;
+       refs/heads/*,delete)
+               # delete branch
+               if [ "$allowdeletebranch" != "true" ]; then
+                       echo "*** Deleting a branch is not allowed in this 
repository" >&2
+                       exit 1
+               fi
+               ;;
+       refs/remotes/*,commit)
+               # tracking branch
+               ;;
+       refs/remotes/*,delete)
+               # delete tracking branch
+               if [ "$allowdeletebranch" != "true" ]; then
+                       echo "*** Deleting a tracking branch is not allowed in 
this repository" >&2
+                       exit 1
+               fi
+               ;;
+       *)
+               # Anything else (is there anything else?)
+               echo "*** Update hook: unknown type of update to ref $refname 
of type $newrev_type" >&2
+               exit 1
+               ;;
+esac
+
+# --- Finished
+exit 0
diff --git a/corpus/git/info/exclude b/corpus/git/info/exclude
new file mode 100644
index 0000000..a5196d1
--- /dev/null
+++ b/corpus/git/info/exclude
@@ -0,0 +1,6 @@
+# git ls-files --others --exclude-from=.git/info/exclude
+# Lines that start with '#' are comments.
+# For a project mostly in C, the following would be a good set of
+# exclude patterns (uncomment them if you want to use them):
+# *.[oa]
+# *~
diff --git a/corpus/git/objects/ignore b/corpus/git/objects/ignore
new file mode 100644
index 0000000..e69de29
diff --git a/corpus/git/refs/ignore b/corpus/git/refs/ignore
new file mode 100644
index 0000000..e69de29
diff --git a/lib/Dist/Zilla/Plugin/GithubMeta.pm 
b/lib/Dist/Zilla/Plugin/GithubMeta.pm
index 774a699..049c7b6 100644
--- a/lib/Dist/Zilla/Plugin/GithubMeta.pm
+++ b/lib/Dist/Zilla/Plugin/GithubMeta.pm
@@ -31,18 +31,20 @@ has 'issues' => (
   default => 0,
 );
 
-has user => (
+has 'user' => (
   is  => 'rw',
   isa => 'Str',
   predicate => '_has_user',
 );
 
-has repo => (
+has 'repo' => (
   is  => 'rw',
   isa => 'Str',
   predicate => '_has_repo',
 );
 
+sub mvp_multivalue_args { qw(remote) }
+
 sub _acquire_repo_info {
   my ($self) = @_;
 
@@ -61,15 +63,16 @@ sub _acquire_repo_info {
   return unless $git_url;
 
   my ($user, $repo) = $git_url =~ m{
-    github\.com           # the domain
-    / ([^/]+)             # the username
-    / ([^/]+?) (?:\.git)? # the repo name
+    github\.com              # the domain
+    [:/] ([^/]+)             # the username (: for ssh, / for http)
+    /    ([^/]+?) (?:\.git)? # the repo name
+    $
   }ix;
 
   return unless defined $user and defined $repo;
 
-  $self->_user($user);
-  $self->_repo($repo);
+  $self->user($user) unless $self->_has_user;
+  $self->repo($repo) unless $self->_has_repo;
 }
 
 sub metadata {
@@ -92,7 +95,7 @@ sub metadata {
         url  => $gh_url,
         web  => $gh_url,
       },
-      ($self->issues ? { bugtracker => { web => $bug_url } } : ()),
+      ($self->issues ? (bugtracker => { web => $bug_url }) : ()),
     }
   };
 }
@@ -143,7 +146,7 @@ qq[1 is the loneliest number];
 
   # to override the github remote repo (defaults to 'origin')
   [GithubMeta]
-  remote=github
+  remote = github
 
 =head1 DESCRIPTION
 
diff --git a/t/basic.t b/t/basic.t
new file mode 100644
index 0000000..eb0582e
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,112 @@
+use strict;
+use warnings;
+use Test::More 0.88;
+
+use lib 't/lib';
+
+use Test::Deep qw(all ignore superhashof);
+use Test::DZil;
+
+test_plugin("simplest case, ssh url" => {
+  plugin => { },
+  git    => { origin => 'g...@github.com:example/Example-Repo.git' },
+});
+
+test_plugin("use a non-default remote" => {
+  plugin => { remote => 'github' },
+  git    => {
+    github => 'g...@github.com:example/Example-Repo.git',
+    origin => 'r...@git.manxome.org/zork/Gnusto.git',
+  },
+});
+
+test_plugin("override the user" => {
+  plugin => { user => 'example' },
+  git    => { origin => 'g...@github.com:rjbs/Example-Repo.git' },
+});
+
+test_plugin("override the repo" => {
+  plugin => { repo => 'Example-Repo' },
+  git    => { origin => 'g...@github.com:example/example--repo.git' },
+});
+
+test_plugin("turn on issues" => {
+  plugin => { issues => 1 },
+  git    => { origin => 'g...@github.com:example/Example-Repo.git' },
+  resources => {
+    bugtracker => { web => 'http://github.com/example/Example-Repo/issues' },
+  },
+});
+
+done_testing;
+
+#############
+
+my %FMT;
+
+BEGIN {
+$FMT{CONFIG} = <<'END_GITCONFIG';
+[core]
+  repositoryformatversion = 0
+  filemode = true
+  bare = false
+  logallrefupdates = true
+%s
+END_GITCONFIG
+
+$FMT{REMOTE} = <<'END_REMOTE';
+[remote "%s"]
+  url = %s
+END_REMOTE
+}
+
+sub git_config_for {
+  my ($config) = @_;
+
+  my $remote_config =
+    join qq{\n}, map {; sprintf $FMT{REMOTE}, $_, $config->{$_} } keys 
%$config;
+
+  return sprintf $FMT{CONFIG}, $remote_config;
+}
+
+sub test_plugin {
+  my ($desc, $test) = @_;
+  my $gitconfig = git_config_for($test);
+
+  my $tzil = Builder->from_config(
+    { dist_root => 'corpus/GHM-Sample' },
+    {
+      add_files => {
+        'source/dist.ini'    => simple_ini(
+          'MetaJSON',
+          [ GithubMeta => $test->{plugin} ],
+        ),
+        'source/.git/config' => git_config_for($test->{git}),
+      },
+      also_copy => {
+        'corpus/git' => 'source/.git',
+      },
+    },
+  );
+
+  $tzil->build;
+
+  is_json(
+    $tzil->slurp_file('build/META.json'),
+    all(
+      $test->{meta} || ignore(),
+      superhashof({
+        resources => {
+          homepage   => 'http://github.com/example/Example-Repo',
+          repository => {
+            type => 'git',
+            url => 'http://github.com/example/Example-Repo',
+            web => 'http://github.com/example/Example-Repo',
+          },
+          $test->{resources} ? %{ $test->{resources} } : (),
+        },
+      }),
+    ),
+    $desc,
+  );
+}

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-githubmeta-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to