Smalltalk › Squeak › Squeak - Dev

The Trunk: Tests-dtl.170.mcz

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

2 messages Options

commits-2

The Trunk: Tests-dtl.170.mcz

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)]!

David T. Lewis

Re: The Trunk: Tests-dtl.170.mcz

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, [hidden email] 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)]!
>