subversion-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From rhuij...@apache.org
Subject svn commit: r1307749 - /subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
Date Sat, 31 Mar 2012 09:39:42 GMT
Author: rhuijben
Date: Sat Mar 31 09:39:42 2012
New Revision: 1307749

URL: http://svn.apache.org/viewvc?rev=1307749&view=rev
Log:
* subversion/bindings/swig/perl/native/t/3client.t
  A simple attempt to fix the remaining test failure of the perl
  bindings on Windows.
  I'm not sure if this is the right fix, but making the tests pass
  allows using the result on the buildbot.

Modified:
    subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t?rev=1307749&r1=1307748&r2=1307749&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t Sat Mar 31 09:39:42
2012
@@ -337,8 +337,14 @@ is($ctx->blame("$reposurl/foo",'HEAD','H
                                                  'author param is expected' .
                                                  'value');
                                               ok($date,'date is defined');
-                                              is($line,'foobar',
-                                                 'line is expected value');
+                                              if ($^O eq 'MSWin32') {
+                                                #### Why two \r-s?
+                                                is($line,'foobar\r\r',
+                                                   'line is expected value');
+                                              } else {
+                                                is($line,'foobar',
+                                                   'line is expected value');
+                                              }
                                               isa_ok($pool,'_p_apr_pool_t',
                                                      'pool param is ' .
                                                      '_p_apr_pool_t');



Mime
View raw message