This will keep the tests green when the VM is updated to a more recent version.

Dave


On Sun, Sep 23, 2012 at 01:50:36PM +0000, commits at source.squeak.org wrote:
> David T. Lewis uploaded a new version of Tests to project The Trunk:
> http://source.squeak.org/trunk/Tests-dtl.170.mcz
> 
> ==================== Summary ====================
> 
> Name: Tests-dtl.170
> Author: dtl
> Time: 23 September 2012, 9:50:16.094 am
> UUID: 68580c67-c932-4d59-a9cb-77ae53dc71ad
> Ancestors: Tests-ul.169
> 
> All versions of Cog provide mirror primitive support. For the interpreter VM, support was added in version 4.7.19. Identify expected mirror primitive failures for older versions of the interpreter VM.
> 
> =============== Diff against Tests-ul.169 ===============
> 
> Item was changed:
>   ----- Method: MirrorPrimitiveTests>>expectedFailures (in category 'testing') -----
>   expectedFailures
> + 	"All versions of Cog provide mirror primitive support. For the interpreter VM,
> + 	support was added in version 4.7.19. Identify expected failures for older versions
> + 	of the interpreter VM."
>   
>   	^Smalltalk isRunningCog
>   		ifTrue: [#()]
> + 		ifFalse: [ | ver |
> + 			[ver := VersionNumber fromString: Smalltalk vm interpreterSourceVersion.
> + 			((ver numbers first * 1000) + ver numbers second) >= 4008
> + 				ifTrue: [^#() "version 4.7.19 or greater with mirror primitive support"]]
> + 					on: Warning
> + 					do: ["primitiveInterpreterSourceVersion not available"].
> + 			^#(testMirrorEqEq testMirrorPerform testMirrorSize) "older interpreter VMs"]
> + !
> - 		ifFalse: [#(testMirrorEqEq testMirrorPerform testMirrorSize)]!
>