Changeset 2709 for branches/release-41/t/28-xmlrpc.t

Timestamp:

07/04/08 02:38:31 (17 months ago)

Author:

bchoate

Message:

Fixes for XMLRPC test suite.

Files:

• branches/release-41/t/28-xmlrpc.t (modified) (2 diffs)

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

@@ -14 +14 @@
 $ENV{HTTP_HOST} = 'localhost';
 
-use vars qw( $DB_DIR $T_CFG );
-my $mt = MT->new( Config => $T_CFG ) or die MT->errstr;
+use MT::Test qw(:db :data);
+my $mt = MT->new() or die MT->errstr;
 isa_ok($mt, 'MT');
-
-use MT::Test qw(:db :data);
 
 my $base_uri = '/mt-xmlrpc.cgi';
@@ -436 +434 @@
             my $url = $result->{url};
             is( $url, 'http://narnia.na/nana/movable-type-logo.gif' );
-            my $asset = MT::Asset->load(undef, { sort => 'created_on', direction => 'descend', limit => 1 });
+            my $asset = MT::Asset::Image->load(undef, { sort => 'created_on', direction => 'descend', limit => 1 });
             ok($asset, 'asset loaded');
             is( $asset->mime_type, 'image/gif' );