t/fontpm.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::Font
   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_image') ) {
  18         plan ( tests => 2 );
  19 } else {
  20         plan ( skip_all => 'SDL_image support not compiled' );
  21 }
  22
  23 use_ok( 'SDL::Font' );
  24
  25 can_ok ('SDL::Font', qw/ new use /);
  26
  27