t/toolgraphicpm.t

   1 #!/usr/bin/perl -w
   2 #
   3 # Copyright (C) 2003 Tels
   4 # Copyright (C) 2004 David J. Goehrig
   5 # Copyright (C) 2009 Kartik Thakore
   6 # basic testing of SDL::Tool::Graphic
   7
   8 BEGIN {
   9         unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont/';
  10 }
  11
  12 use strict;
  13 use SDL::Config;
  14
  15 use Test::More;
  16
  17 if ( SDL::Config->has('SDL_gfx') ) {
  18         plan ( tests => 3 );
  19 } else {
  20         plan ( skip_all => 'SDL_gfx support not compiled' );
  21 }
  22
  23 use_ok( 'SDL::Tool::Graphic' );
  24
  25 can_ok ('SDL::Tool::Graphic', qw/
  26         new zoom rotoZoom
  27         /);
  28
  29 my $gtool = SDL::Tool::Graphic->new();
  30 isa_ok ($gtool, 'SDL::Tool::Graphic');
  31