t/core.t

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