svn commit: r1446753 - /subversion/trunk/subversion/bindings/swig/perl/native/t/9wc.t

[br...@apache.org]

Author: breser
Date: Fri Feb 15 20:17:00 2013
New Revision: 1446753

URL: http://svn.apache.org/r1446753
Log:
swig-pl: Add a specific rev and peg-rev to the parse_externals_description3() test.

* subversion/bindings/swig/perl/native/t/9wc.t:
  (external_desc): Adjust the second external to have a rev and peg-rev.
  (parse_externals_description3): Adjust tests for the second external to handle
    looking for the rev and peg-rev.

Modified:
    subversion/trunk/subversion/bindings/swig/perl/native/t/9wc.t

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/9wc.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/9wc.t?rev=1446753&r1=1446752&r2=1446753&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/9wc.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/9wc.t Fri Feb 15 20:17:00 2013
@@ -21,7 +21,7 @@
 #
 
 use strict;
-use Test::More tests => 17;
+use Test::More tests => 19;
 use Scalar::Util;
 
 # shut up about variables that are only used once.
@@ -34,9 +34,9 @@ use_ok('SVN::Core');
 # TEST
 use_ok('SVN::Wc');
 
-my $external_desc = <<END;
+my $external_desc = <<'END';
 http://svn.example.com/repos/project1 project1
-^/repos/project2 "Project 2"
+-r6 ^/repos/project2@3 "Project 2"
 END
 
 # Run parse_externals_description3()
@@ -72,10 +72,13 @@ is($externals->[1]->url(), '^/repos/proj
 # TEST
 isa_ok($externals->[1]->revision(), '_p_svn_opt_revision_t');
 # TEST
-is($externals->[1]->revision()->kind(), $SVN::Core::opt_revision_head);
+is($externals->[1]->revision()->kind(), $SVN::Core::opt_revision_number);
+# TEST
+is($externals->[1]->revision()->value()->number(), 6);
 # TEST
 isa_ok($externals->[1]->peg_revision(), '_p_svn_opt_revision_t');
 # TEST
-is($externals->[1]->peg_revision()->kind(),
-   $SVN::Core::opt_revision_head);
+is($externals->[1]->peg_revision()->kind(), $SVN::Core::opt_revision_number);
+# TEST
+is($externals->[1]->peg_revision()->value()->number(), 3);