Changeset 2709

Show
Ignore:
Timestamp:
07/04/08 02:38:31 (16 months ago)
Author:
bchoate
Message:

Fixes for XMLRPC test suite.

Location:
branches/release-41
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • branches/release-41/lib/MT/XMLRPCServer.pm

    r2264 r2709  
    1414    my $cfg = $ENV{MOD_PERL} ? 
    1515        Apache->request->dir_config('MTConfig') : 
    16         $MT::XMLRPCServer::MT_DIR . '/mt-config.cgi'; 
     16        ($ENV{MT_CONFIG} || $MT::XMLRPCServer::MT_DIR . '/mt-config.cgi'); 
    1717    my $mt = MT->new( Config => $cfg ) 
    1818        or die MT::XMLRPCServer::_fault(MT->errstr); 

  • branches/release-41/t/28-xmlrpc.t

    r2529 r2709  
    1414$ENV{HTTP_HOST} = 'localhost'; 
    1515 
    16 use vars qw( $DB_DIR $T_CFG ); 
    17 my $mt = MT->new( Config => $T_CFG ) or die MT->errstr; 
     16use MT::Test qw(:db :data); 
     17my $mt = MT->new() or die MT->errstr; 
    1818isa_ok($mt, 'MT'); 
    19  
    20 use MT::Test qw(:db :data); 
    2119 
    2220my $base_uri = '/mt-xmlrpc.cgi'; 
    … …  
    436434            my $url = $result->{url}; 
    437435            is( $url, 'http://narnia.na/nana/movable-type-logo.gif' ); 
    438             my $asset = MT::Asset->load(undef, { sort => 'created_on', direction => 'descend', limit => 1 }); 
     436            my $asset = MT::Asset::Image->load(undef, { sort => 'created_on', direction => 'descend', limit => 1 }); 
    439437            ok($asset, 'asset loaded'); 
    440438            is( $asset->mime_type, 'image/gif' );