Perl Bindings: checking for config...?

[Goddard Lee <le...@easa.eu.int>]

When I run the little test script below as 'nobody', as my httpd would,
it fails on both counts with the message:

     Bogus filename: Can't open config file '/root/.subversion/servers' 

All I want to do is create an SVN::Client object to add/commit a
document with a specific username. From what I can make of the perldocs
for SVN::Client, the "prompt" provider shouldn't look at the
filesystem...

Please help!
Lee

#! perl
use Test::More tests => 3;
use strict;
use warnings;
use_ok('SVN::Client');

diag "Sub ref";
eval {
 my $ctx = new SVN::Client(
  auth => [
   SVN::Client::get_simple_prompt_provider(\&simple_prompt, 1),
  ]
 );
};
$@? fail($@) : pass("OK");

diag "Anon sub";
eval {
 my $ctx = new SVN::Client(
  auth => [
   SVN::Client::get_simple_prompt_provider(sub {
    my $cred = shift;
    $cred->username("test");
    $cred->password("p455w0rd");
   }, 2),
  ]
 );
};
$@? fail($@) : pass("OK");

exit;

sub simple_prompt {
 my $cred = shift;
 $cred->username('test');
 $cred->password('p455w0rd');
}

__END__

OUTPUT:


[root@bdms t]# sudo -u nobody perl ctx.mini.t
1..3
ok 1 - use SVN::Client;
# Sub ref
not ok 2 - Bogus filename: Can't open config file
'/root/.subversion/servers' at ctx.mini.t line 12
#
#     Failed test (ctx.mini.t at line 18)
# Anon sub
not ok 3 - Bogus filename: Can't open config file
'/root/.subversion/servers' at ctx.mini.t line 28
#
#     Failed test (ctx.mini.t at line 32)
# Looks like you failed 2 tests of 3.
[root@bdms t]#

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscribe@subversion.tigris.org
For additional commands, e-mail: users-help@subversion.tigris.org