Permalink
Browse files

pushing some failing tests for SDLx::Surface

  • Loading branch information...
1 parent b83d137 commit 9d81f881372bf5c42df81183e271e0ac8300f2f3 @garu garu committed Mar 15, 2011
Showing with 27 additions and 0 deletions.
  1. +27 −0 t/sdlx_surface.t
View
@@ -112,6 +112,7 @@ $surfs[0]->update( [ SDL::Rect->new( 0, 1, 2, 3 ), SDL::Rect->new( 2, 4, 5, 6 )
pass 'SDL::Rect array update';
my @colors = (
+ # opaque
[ 0xFF, 0xFF, 0xFF, 0xFF ],
[ 0xFF, 0xFF, 0x00, 0xFF ],
[ 0xFF, 0x00, 0xFF, 0xFF ],
@@ -123,6 +124,32 @@ my @colors = (
[ 0x20, 0x40, 0x80, 0xFF ],
[ 0x80, 0x20, 0x40, 0xFF ],
[ 0x40, 0x80, 0x20, 0xFF ],
+
+ # translucent
+ [ 0xFF, 0xFF, 0xFF, 0xCC ],
+ [ 0xFF, 0xFF, 0x00, 0xCC ],
+ [ 0xFF, 0x00, 0xFF, 0xCC ],
+ [ 0x00, 0xFF, 0xFF, 0xCC ],
+ [ 0xFF, 0x00, 0x00, 0xCC ],
+ [ 0x00, 0xFF, 0x00, 0xCC ],
+ [ 0x00, 0x00, 0xFF, 0xCC ],
+ [ 0x00, 0x00, 0x00, 0xCC ],
+ [ 0x20, 0x40, 0x80, 0xCC ],
+ [ 0x80, 0x20, 0x40, 0xCC ],
+ [ 0x40, 0x80, 0x20, 0xCC ],
+
+ # transparent
+ [ 0xFF, 0xFF, 0xFF, 0x00 ],
+ [ 0xFF, 0xFF, 0x00, 0x00 ],
+ [ 0xFF, 0x00, 0xFF, 0x00 ],
+ [ 0x00, 0xFF, 0xFF, 0x00 ],
+ [ 0xFF, 0x00, 0x00, 0x00 ],
+ [ 0x00, 0xFF, 0x00, 0x00 ],
+ [ 0x00, 0x00, 0xFF, 0x00 ],
+ [ 0x00, 0x00, 0x00, 0x00 ],
+ [ 0x20, 0x40, 0x80, 0x00 ],
+ [ 0x80, 0x20, 0x40, 0x00 ],
+ [ 0x40, 0x80, 0x20, 0x00 ],
);
foreach my $c (@colors) {

0 comments on commit 9d81f88

Please sign in to comment.