diff --git a/source/Sagan-GemStone-Tests/GemStoneRepositoryProviderTest.class.st b/source/Sagan-GemStone-Tests/GemStoneRepositoryProviderTest.class.st index 74a39b4..ac3babe 100644 --- a/source/Sagan-GemStone-Tests/GemStoneRepositoryProviderTest.class.st +++ b/source/Sagan-GemStone-Tests/GemStoneRepositoryProviderTest.class.st @@ -52,27 +52,6 @@ GemStoneRepositoryProviderTest >> testExceptionsAbortTransactionsUntilHandled [ self assertTheOnlyOneInTheRepositoryIsSilvesterStallone ] -{ #category : 'tests' } -GemStoneRepositoryProviderTest >> testNestedTransactions [ - - self assert: self extraterrestrials findAll isEmpty. - - self extraterrestrials transact: [ - self extraterrestrials store: self silvesterStallone. - self assertTheOnlyOneInTheRepositoryIsSilvesterStallone. - - System abortTransaction. - self assert: self extraterrestrials findAll isEmpty. - self extraterrestrials transact: [ self extraterrestrials store: self johnTravolta ] - ]. - - self withTheOnlyOneIn: self extraterrestrials findAll do: [ :extraterrestrial | - self - assert: extraterrestrial firstName equals: 'John'; - assert: extraterrestrial lastName equals: 'Travolta' - ] -] - { #category : 'tests' } GemStoneRepositoryProviderTest >> testQueryReturningBeforeAllIndexedResultsAreRead [