VM Maker: VMMakerCompatibilityForPharo6-eem.7.mcz

 
Eliot Miranda uploaded a new version of VMMakerCompatibilityForPharo6 to project VM Maker:
http://source.squeak.org/VMMaker/VMMakerCompatibilityForPharo6-eem.7.mcz

==================== Summary ====================

Name: VMMakerCompatibilityForPharo6-eem.7
Author: eem
Time: 9 September 2018, 7:13:24.202454 pm
UUID: a86a6318-d531-0d00-bcd0-6cc8012ef449
Ancestors: VMMakerCompatibilityForPharo6-eem.6

Add LongTestCase & access for the return of a quick method to RBMethodNode needed for cmacro: methods.

=============== Diff against VMMakerCompatibilityForPharo6-eem.6 ===============

Item was changed:
  SystemOrganization addCategory: #VMMakerCompatibilityForPharo6!
  SystemOrganization addCategory: 'VMMakerCompatibilityForPharo6-Kernel-Methods'!
+ SystemOrganization addCategory: 'VMMakerCompatibilityForPharo6-SUnit-Extensions'!
  SystemOrganization addCategory: 'VMMakerCompatibilityForPharo6-System'!

Item was added:
+ TestCase subclass: #LongTestCase
+ instanceVariableNames: ''
+ classVariableNames: 'ShouldRun'
+ poolDictionaries: ''
+ category: 'VMMakerCompatibilityForPharo6-SUnit-Extensions'!
+
+ !LongTestCase commentStamp: 'ul 12/15/2009 13:06' prior: 0!
+ A LongTestCase is a TestCase that usually takes a long time to run. Because of this users can decide if they want to execute these or not, by changing the "Run long test cases" preference.!

Item was added:
+ ----- Method: LongTestCase class>>allTestSelectors (in category 'accessing') -----
+ allTestSelectors
+
+ self shouldRun ifTrue: [
+ ^super testSelectors ].
+ ^#().!

Item was added:
+ ----- Method: LongTestCase class>>buildSuite (in category 'instance creation') -----
+ buildSuite
+
+ self shouldRun ifTrue: [ ^super buildSuite ].
+ ^self suiteClass new!

Item was added:
+ ----- Method: LongTestCase class>>doNotRunLongTestCases (in category 'accessing') -----
+ doNotRunLongTestCases
+
+ self shouldRun: false!

Item was added:
+ ----- Method: LongTestCase class>>isAbstract (in category 'testing') -----
+ isAbstract
+ "Override to true if a TestCase subclass is Abstract and should not have
+ TestCase instances built from it"
+
+ ^self name == #LongTestCase
+ !

Item was added:
+ ----- Method: LongTestCase class>>runLongTestCases (in category 'accessing') -----
+ runLongTestCases
+
+ self shouldRun: true!

Item was added:
+ ----- Method: LongTestCase class>>shouldRun (in category 'accessing') -----
+ shouldRun
+
+ <preference: 'Run long test cases'
+ category: 'SUnit'
+ description: 'If true, the tests defined as taking a long time to run (those  in subclasses of LongTestCase) will run when they are selected in the Test Runner.'
+ type: #Boolean>
+ ^ShouldRun ifNil: [ true ]!

Item was added:
+ ----- Method: LongTestCase class>>shouldRun: (in category 'accessing') -----
+ shouldRun: aBoolean
+
+ ShouldRun := aBoolean!

Item was added:
+ ----- Method: LongTestCase>>defaultTimeout (in category 'as yet unclassified') -----
+ defaultTimeout
+ "Answer the default timeout to use for tests in this test case. The timeout is a value in seconds."
+
+ ^super defaultTimeout * 10!

Item was added:
+ ----- Method: RBMethodNode>>quickMethodReturnLiteral (in category '*VMMakerCompatibilityForPharo6-C translation') -----
+ quickMethodReturnLiteral
+ | node |
+ node := body statements last value.
+ ^node isVariable
+ ifTrue: [node name]
+ ifFalse: [node value]!