pushing some failing tests for SDLx::Surface

PerlGameDev · Mar 15, 2011 · 9d81f88 · 9d81f88
1 parent b83d137
commit 9d81f88
Showing 1 changed file with 27 additions and 0 deletions.
diff --git a/t/sdlx_surface.t b/t/sdlx_surface.t
@@ -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) {