summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenoit Sigoure <tsuna@lrde.epita.fr>2007-10-16 14:36:51 (GMT)
committerShawn O. Pearce <spearce@spearce.org>2007-10-17 06:47:37 (GMT)
commit51e057cf808eb1c277da08f42d0ccd611ea315cc (patch)
tree78dcb4c66baeede1cef1900eddb8a22ce753b93d
parent151534515682695348a8172f399f4bf025154a5f (diff)
downloadgit-51e057cf808eb1c277da08f42d0ccd611ea315cc.zip
git-51e057cf808eb1c277da08f42d0ccd611ea315cc.tar.gz
git-51e057cf808eb1c277da08f42d0ccd611ea315cc.tar.bz2
git-svn: add git svn proplist
This allows one to easily retrieve a list of svn properties from within git-svn without requiring svn or knowing the URL of a repository. * git-svn.perl (%cmd): Add the command `proplist'. (&cmd_proplist): New. * t/t9101-git-svn-props.sh: Test git svn proplist. Signed-off-by: Benoit Sigoure <tsuna@lrde.epita.fr> Acked-by: Eric Wong <normalperson@yhbt.net> Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
-rwxr-xr-xgit-svn.perl18
-rwxr-xr-xt/t9101-git-svn-props.sh21
2 files changed, 38 insertions, 1 deletions
diff --git a/git-svn.perl b/git-svn.perl
index e97eba2..22fca59 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -135,6 +135,9 @@ my %cmd = (
'propget' => [ \&cmd_propget,
'Print the value of a property on a file or directory',
{ 'revision|r=i' => \$_revision } ],
+ 'proplist' => [ \&cmd_proplist,
+ 'List all properties of a file or directory',
+ { 'revision|r=i' => \$_revision } ],
'show-ignore' => [ \&cmd_show_ignore, "Show svn:ignore listings",
{ 'revision|r=i' => \$_revision
} ],
@@ -536,7 +539,7 @@ sub cmd_create_ignore {
# get_svnprops(PATH)
# ------------------
-# Helper for cmd_propget below.
+# Helper for cmd_propget and cmd_proplist below.
sub get_svnprops {
my $path = shift;
my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
@@ -583,6 +586,19 @@ sub cmd_propget {
print $props->{$prop} . "\n";
}
+# cmd_proplist (PATH)
+# -------------------
+# Print the list of SVN properties for PATH.
+sub cmd_proplist {
+ my $path = shift;
+ $path = '.' if not defined $path;
+ my $props = get_svnprops($path);
+ print "Properties on '$path':\n";
+ foreach (sort keys %{$props}) {
+ print " $_\n";
+ }
+}
+
sub cmd_multi_init {
my $url = shift;
unless (defined $_trunk || defined $_branches || defined $_tags) {
diff --git a/t/t9101-git-svn-props.sh b/t/t9101-git-svn-props.sh
index 61c8799..3c83127 100755
--- a/t/t9101-git-svn-props.sh
+++ b/t/t9101-git-svn-props.sh
@@ -193,4 +193,25 @@ test_expect_success 'test propget' "
git-svn propget svn:ignore .././deeply/nested | cmp - ../prop.expect
"
+cat >prop.expect <<\EOF
+Properties on '.':
+ svn:entry:committed-date
+ svn:entry:committed-rev
+ svn:entry:last-author
+ svn:entry:uuid
+ svn:ignore
+EOF
+cat >prop2.expect <<\EOF
+Properties on 'nested/directory/.keep':
+ svn:entry:committed-date
+ svn:entry:committed-rev
+ svn:entry:last-author
+ svn:entry:uuid
+EOF
+
+test_expect_success 'test proplist' "
+ git-svn proplist . | cmp - prop.expect &&
+ git-svn proplist nested/directory/.keep | cmp - prop2.expect
+ "
+
test_done