Changeset 2641

Timestamp:

06/25/08 08:02:09 (20 months ago)

Author:

takayama

Message:

* Added tests for MT::Image::GD
* Fixed to work

Files:

• branches/release-40/t/09-image.t (modified) (4 diffs)

branches/release-40/t/09-image.t

@@ -16 +16 @@
 use MT;
 
-use vars qw( $BASE @Img @drivers );
-
-require 't/test-common.pl';
+use vars qw( @Img @drivers );
 
 BEGIN {
@@ -25 +23 @@
         [ 'test.jpg', 640, 480 ],
     );
-    @drivers = qw( ImageMagick NetPBM );
+    @drivers = qw( ImageMagick NetPBM GD );
     plan tests => scalar @Img                           # file exists
-                + (scalar @Img * scalar @drivers * 18)  # 18 tests each for every image and driver
+                + (scalar @Img * scalar @drivers * 19)  # 19 tests each for every image and driver
                 ;
 }
@@ -38 +36 @@
 
 my $cfg = MT::ConfigMgr->instance;
-$cfg->NetPBMPath($netpbm) if -x $netpbm;
+if (!$cfg->NetPBMPath) {
+    $cfg->NetPBMPath($netpbm) if -x $netpbm;
+}
 
 for my $rec (@Img) {
     my ($img_filename, $img_width, $img_height) = @$rec;
-    my $img_file = File::Spec->catfile($BASE, 't', 'images', $img_filename);
+    my $img_file = File::Spec->catfile($ENV{MT_HOME}, 't', 'images', $img_filename);
     ok(-B $img_file, "$img_file looks like a binary file");
 
@@ -49 +49 @@
         my $img = MT::Image->new( Filename => $img_file );
 SKIP : {
-        skip("no $driver image", 18) unless $img;
+        skip("no $driver image", 19) unless $img;
         isa_ok($img, 'MT::Image::' . $driver, "driver $driver with image $img_file is an MT::Image::$driver");
 #        diag( MT::Image->errstr ) if MT::Image->errstr;