[squeak-dev] The Trunk: Tests-dtl.170.mcz
David T. Lewis
lewis at mail.msen.com
Sun Sep 23 14:02:23 UTC 2012
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)]!
>
More information about the Squeak-dev
mailing list
|