2 # Copyright (C) 2009 kthakore
4 # Spec tests for SDL::Surface
8 unshift @INC, 'blib/lib','blib/arch';
23 my $app = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO);
27 my $rect = SDL::Rect->new(0,0, $app->w, $app->h);
30 my $blue = SDL::Color->new(
36 $app->fill_rect($rect,$blue);
39 diag('This is in surface : '.SDL::Surface::get_pixels($app));