#!/usr/bin/perl -w
use
strict;
use
Test;
use
SOAP::Lite;
require
't/sfdc.cfg'
;
BEGIN { plan
tests
=> 2 }
use
Salesforce;
my
$service
= new Salesforce::SforceService;
my
$port
=
$service
->get_port_binding(
'Soap'
);
my
$result
=
$port
->login(
'username'
=>
$user
,
'password'
=>
$pass
);
$result
=
$port
->getServerTimestamp();
ok(!
$result
->fault());
ok(
defined
(
$result
->valueof(
'//getServerTimestampResponse/result/timestamp'
)));