t/toolfontpm.t

   1 #!/usr/bin/perl -w
   2 #
   3 # Copyright (C) 2003 Tels
   4 # Copyright (C) 2004 David J. Goehrig
   5 #
   6 # basic testing of SDL::Tool::Font
   7
   8 BEGIN {
   9         unshift @INC, 'blib/lib','blib/arch';
  10 }
  11
  12 use strict;
  13 use SDL::Config;
  14
  15 use Test::More;
  16
  17 if ( SDL::Config->has('SDL_image')
  18         && SDL::Config->has('SDL_ttf') ) {
  19         plan ( tests => 2 );
  20 } else {
  21         plan ( skip_all =>
  22                 ( SDL::Config->has('SDL_image')
  23                         ? ''
  24                         : ' SDL_image support not compiled')
  25                 . ( SDL::Config->has('SDL_ttf')
  26                         ? ''
  27                         : ' SDL_ttf support not compiled'));
  28 }
  29
  30 use_ok( 'SDL::Tool::Font' );
  31
  32 can_ok ('SDL::Tool::Font', qw/
  33         new
  34         print
  35         /);
  36