t/ttfontpm.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::TTFont
   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_ttf') ) {
  18         plan ( tests => 2 );
  19 } else {
  20         plan ( skip_all => 'SDL_ttf support not compiled' );
  21 }
  22
  23 use_ok( 'SDL::TTFont' );
  24
  25 can_ok ('SDL::TTFont', qw/
  26         new
  27         print
  28         width
  29         height
  30         ascent
  31         descent
  32         normal
  33         bold
  34         italic
  35         underline
  36         text_shaded
  37         text_solid
  38         text_blended
  39         utf8_shaded
  40         utf8_solid
  41         utf8_blended
  42         unicode_shaded
  43         unicode_solid
  44         unicode_blended /);