t/core.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use SDL;
   4 use Test::More;
   5
   6 plan ( tests => 3 );
   7
   8 use_ok( 'SDL' );
   9
  10 my @done =qw/ none /;
  11
  12 #can_ok ('SDL', @done);
  13
  14
  15 my @left = qw/
  16         init
  17         init_sub_system
  18         quit_sub_system
  19         quit
  20         was_init
  21         get_error
  22         set_error
  23         error
  24         clear_error
  25         load_object
  26         load_function
  27         unload_fuction
  28         unload_object
  29         envvars
  30         VERSION
  31         linked_version
  32         version
  33         /;
  34
  35 my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
  36
  37 TODO:
  38 {
  39         local $TODO = $why;
  40         pass "\nThe following functions:\n".join ",", @left;
  41 }
  42         if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag  $why}
  43
  44
  45 pass 'Are we still alive? Checking for segfaults';