258 !

   259 

   260 testPNG_003_basi0g01

   261     |img|

   262 

   263     img := Image fromFile:(self class packageDirectory construct:'testData/pngImages/basi0g01.png').

   264     self assert:(img notNil).

   265     self assert:(img depth == 1).

   266     self assert:(img extent = (32@32)).

   267     self assert:(img colorAt:(0@0)) = Color white.

   268     self assert:(img colorAt:(31@31)) = Color black.

   269 

   270     "/ img inspect.

   271     "

   272      self run:#testPNG_003_basi0g01

   273      self new testPNG_003_basi0g01

   274     "

   275 

   276     "Created: / 05-02-2011 / 10:32:32 / cg"