test[photos8] 99 NIY

"Find the classes of the Photos.framework that are not implemented. Yet"
| exports |
exports  := ObjCMirror exportsIn: #Photos. 
self print: '// Missing Photos.framework classes:'.
(((exports
	collect: [:each| each name])
	select: [:each| each startsWith: #PH ])
	reject: [:each| Smalltalk includesKey: each ]) sorted
	do: [:each| self print: '//	',each ].
self print: '// --------------------------------'.