Permalink
Browse files

Added todo tests for remaining components of SDL. Removed WM build in…

… Build.PL
  • Loading branch information...
1 parent b6e1a72 commit ba85b2c5cf3148a04994a83543731b3878119b8d @kthakore kthakore committed Nov 15, 2009
Showing with 189 additions and 7 deletions.
  1. +0 −7 Build.PL
  2. +39 −0 t/core_audio.t
  3. +39 −0 t/core_cd.t
  4. +41 −0 t/core_joystick.t
  5. +32 −0 t/core_mouse.t
  6. +38 −0 t/core_rwops.t
View
@@ -63,13 +63,6 @@ my %subsystems =
},
libraries => [qw( SDL )],
},
- WManagement => {
- file => {
- from => 'src/Core/WManagement.xs',
- to => 'lib/SDL/WManagement.xs',
- },
- libraries => [qw( SDL )],
- },
Video => {
file => {
from => 'src/Core/Video.xs',
View
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+use strict;
+use SDL;
+use Test::More;
+
+my @done = qw//;
+
+my @left = qw/
+audio_spec
+open_audio
+pause_audio
+get_audio_status
+load_wav
+free_wav
+audio_cvt
+build_audio_cvt
+convert_audio
+mix_audio
+lock_audio
+unlock_audio
+close_audio
+/;
+
+my $why
+ = '[Percentage Completion] '
+ . int( 100 * ( $#done + 1 ) / ( $#done + $#left + 2 ) )
+ . "\% implementation. "
+ . ( $#done + 1 ) . " / "
+ . ( $#done + $#left + 2 );
+
+TODO:
+{
+ local $TODO = $why;
+ fail "Not Implmented $_" foreach(@left)
+
+}
+diag $why;
+
+done_testing;
View
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+use strict;
+use SDL;
+use Test::More;
+
+my @done = qw//;
+
+my @left = qw/
+cd_num_drives
+cd_name
+cd_open
+cd_status
+cd_play
+cd_play_tracks
+cd_pause
+cd_resume
+cd_stop
+cd_eject
+cd_close
+cd
+cd_track
+/;
+
+my $why
+ = '[Percentage Completion] '
+ . int( 100 * ( $#done + 1 ) / ( $#done + $#left + 2 ) )
+ . "\% implementation. "
+ . ( $#done + 1 ) . " / "
+ . ( $#done + $#left + 2 );
+
+TODO:
+{
+ local $TODO = $why;
+ fail "Not Implmented $_" foreach(@left)
+
+}
+diag $why;
+
+done_testing;
View
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+use strict;
+use SDL;
+use Test::More;
+
+my @done = qw//;
+
+my @left = qw/
+num_joysticks
+joystick_name
+joystick_open
+joystick_opened
+joystick_index
+joystick_num_axes
+joystick_num_balls
+joystick_num_hats
+joystick_num_buttons
+joystick_update
+joystick_get_axis
+joystick_get_hat
+joystick_get_button
+joystick_get_ball
+joystick_close
+/;
+
+my $why
+ = '[Percentage Completion] '
+ . int( 100 * ( $#done + 1 ) / ( $#done + $#left + 2 ) )
+ . "\% implementation. "
+ . ( $#done + 1 ) . " / "
+ . ( $#done + $#left + 2 );
+
+TODO:
+{
+ local $TODO = $why;
+ fail "Not Implmented $_" foreach(@left)
+
+}
+diag $why;
+
+done_testing;
View
@@ -0,0 +1,32 @@
+#!/usr/bin/perl -w
+use strict;
+use SDL;
+use Test::More;
+
+my @done = qw//;
+
+my @left = qw/
+warp_mouse
+create_cursor
+free_cursor
+set_cursor
+get_cursor
+show_cursor
+/;
+
+my $why
+ = '[Percentage Completion] '
+ . int( 100 * ( $#done + 1 ) / ( $#done + $#left + 2 ) )
+ . "\% implementation. "
+ . ( $#done + 1 ) . " / "
+ . ( $#done + $#left + 2 );
+
+TODO:
+{
+ local $TODO = $why;
+ fail "Not Implmented $_" foreach(@left)
+
+}
+diag $why;
+
+done_testing;
View
@@ -0,0 +1,38 @@
+#!/usr/bin/perl -w
+use strict;
+use SDL;
+use Test::More;
+
+my @done = qw//;
+
+my @left = qw/
+rw_from_file
+rw_from_fp
+rw_from_mem
+rw_from_const_mem
+alloc_rw
+free_rw
+rw_seek
+rw_tell
+rw_read
+rw_write
+rw_close
+rw_ops
+/;
+
+my $why
+ = '[Percentage Completion] '
+ . int( 100 * ( $#done + 1 ) / ( $#done + $#left + 2 ) )
+ . "\% implementation. "
+ . ( $#done + 1 ) . " / "
+ . ( $#done + $#left + 2 );
+
+TODO:
+{
+ local $TODO = $why;
+ fail "Not Implmented $_" foreach(@left)
+
+}
+diag $why;
+
+done_testing;

0 comments on commit ba85b2c

Please sign in to comment.