/t/core_multi.t

http://github.com/PerlGameDev/SDL · Perl · 59 lines · 50 code · 8 blank · 1 comment · 2 complexity · 82ddb926895adb874dae58ff002ddb53 MD5 · raw file 

    

  1. #!/usr/bin/perl -w
    2. 

  2. use strict;
    3. 

  3. use warnings;
    4. 

  4. use SDL;
    5. 

  5. use Test::More;
    6. 

  6. 

  7. plan( tests => 4 );
    8. 

  8. 

  9. my @done = qw/ none /;
    10. 

  10. 

  11. use_ok('SDL::MultiThread');
    12. 

  12. SKIP:
    13. 

  13. {
    14. 

  14. 	skip 'Not implemented', 1;
    15. 

  15. 

  16. 	can_ok( 'SDL::MultiThread ', @done );
    17. 

  17. }
    18. 

  18. 

  19. my @left = qw/
    20. 

  20. 	create_thread
    21. 

  21. 	thread_id
    22. 

  22. 	get_thread_id
    23. 

  23. 	wait_thread
    24. 

  24. 	kill_thread
    25. 

  25. 	create_mutex
    26. 

  26. 	destroy_mutex
    27. 

  27. 	mutex_P
    28. 

  28. 	mutex_V
    29. 

  29. 	create_semaphore
    30. 

  30. 	destroy_semaphore
    31. 

  31. 	sem_wait
    32. 

  32. 	sem_try_wait
    33. 

  33. 	sem_wait_timeout
    34. 

  34. 	sem_post
    35. 

  35. 	sem_value
    36. 

  36. 	create_cond
    37. 

  37. 	destroy_cond
    38. 

  38. 	cond_signal
    39. 

  39. 	cond_broadcast
    40. 

  40. 	cond_wait
    41. 

  41. 	cond_wait_timeout
    42. 

  42. 	/;
    43. 

  43. 

  44. my $why =
    45. 

  45. 	  '[Percentage Completion] '
    46. 

  46. 	. int( 100 * $#done / ( $#done + $#left ) )
    47. 

  47. 	. "\% implementation. $#done / "
    48. 

  48. 	. ( $#done + $#left );
    49. 

  49. 

  50. TODO:
    51. 

  51. {
    52. 

  52. 	local $TODO = $why;
    53. 

  53. 	pass "\nThe following functions:\n" . join ",", @left;
    54. 

  54. }
    55. 

  55. if   ( $done[0] eq 'none' ) { print '0% done 0/' . $#left . "\n" }
    56. 

  56. else                        { print "$why\n" }
    57. 

  57. 

  58. pass 'Are we still alive? Checking for segfaults';
    59. 

  59. sleep(2);
    60.