Permalink
Browse files

Moved SDL::App to SDLx::App

  • Loading branch information...
1 parent 4fd9fa0 commit 6e1f92389b680c1a2754c552714aad9f23c9199e @kthakore kthakore committed Jun 22, 2010
Showing with 7 additions and 5 deletions.
  1. +1 −1 lib/{SDL → SDLx}/App.pm
  2. +2 −0 t/00-load.t
  3. +4 −4 t/{apppm.t → sdlx_app.t}
@@ -3,7 +3,7 @@
# App.pm
#
-package SDL::App;
+package SDLx::App;
use strict;
use warnings;
View
@@ -52,6 +52,8 @@ BEGIN {
SDL::TTF::Font
SDL::Version
+
+ SDLx::App
/;
plan tests => scalar @modules;
@@ -40,9 +40,9 @@ use lib 't/lib';
use SDL::TestTool;
plan( tests => 8 );
-use_ok( 'SDL::App' );
+use_ok( 'SDLx::App' );
-can_ok ('SDL::App', qw/
+can_ok ('SDLx::App', qw/
new
resize
title
@@ -65,7 +65,7 @@ SKIP:
{
skip 'Video not avaiable', 6 unless SDL::TestTool->init(SDL_INIT_VIDEO);
- my $app = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO);
+ my $app = SDLx::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO);
$app->sync;
sleep(1);
@@ -74,7 +74,7 @@ SKIP:
like($@, qr/not resizable/, "check for error message");
SDL::quit;
- my $app2 = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO, -resizeable => 1);
+ my $app2 = SDLx::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO, -resizeable => 1);
$app2->sync;
my $driver = SDL::Video::video_driver_name();

0 comments on commit 6e1f923

Please sign in to comment.