Patrick Rein uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-pre.115.mcz
==================== Summary ====================
Name: SUnit-pre.115 Author: pre Time: 30 April 2019, 7:18:47.687906 pm UUID: 447c12dd-c108-094a-9327-ef47edc61497 Ancestors: SUnit-cypress.1, SUnit-fn.114
Recategorizes test methods in SUnit to create a good example to start from.
=============== Diff against SUnit-fn.114 ===============
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>setUp (in category 'running') ----- - ----- Method: ClassFactoryForTestCaseTest>>setUp (in category 'setUp-tearDown') ----- setUp super setUp. factory := ClassFactoryForTestCase new!
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>tearDown (in category 'running') ----- - ----- Method: ClassFactoryForTestCaseTest>>tearDown (in category 'setUp-tearDown') ----- tearDown super tearDown. factory cleanUp!
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>testClassCreationInDifferentCategories (in category 'tests') ----- - ----- Method: ClassFactoryForTestCaseTest>>testClassCreationInDifferentCategories (in category 'testing') ----- testClassCreationInDifferentCategories | firstThreeClasses lastTwoClasses | 3 timesRepeat: [ factory newSubclassOf: Object instanceVariableNames: '' classVariableNames: '' category: #One]. firstThreeClasses := factory createdClasses copy. 2 timesRepeat: [ factory newSubclassOf: Object instanceVariableNames: '' classVariableNames: '' category: #Two]. lastTwoClasses := factory createdClasses copyWithoutAll: firstThreeClasses. self assert: (firstThreeClasses allSatisfy: [:class| class category = (factory packageName, '-', #One) asSymbol]). self assert: (lastTwoClasses allSatisfy: [:class| class category = (factory packageName, '-', #Two) asSymbol]).!
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>testClassFastCreationInDifferentCategories (in category 'tests') ----- - ----- Method: ClassFactoryForTestCaseTest>>testClassFastCreationInDifferentCategories (in category 'testing') ----- testClassFastCreationInDifferentCategories | firstThreeClasses lastTwoClasses | 3 timesRepeat: [ factory newClassInCategory: #One]. firstThreeClasses := factory createdClasses copy. 2 timesRepeat: [ factory newClassInCategory: #Two]. lastTwoClasses := factory createdClasses copyWithoutAll: firstThreeClasses. self assert: (firstThreeClasses allSatisfy: [:class| class category = (factory packageName, '-', #One) asSymbol]). self assert: (lastTwoClasses allSatisfy: [:class| class category = (factory packageName, '-', #Two) asSymbol]).!
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>testDefaultCategoryCleanUp (in category 'tests') ----- - ----- Method: ClassFactoryForTestCaseTest>>testDefaultCategoryCleanUp (in category 'testing') ----- testDefaultCategoryCleanUp | createdClassNames allClasses | 3 timesRepeat: [ factory newClass]. createdClassNames := factory createdClassNames. factory cleanUp. self assert: (factory createdClasses allSatisfy: [:class| class isObsolete]). allClasses := SystemNavigation new allClasses. self assert: (factory createdClasses noneSatisfy: [:class| allClasses includes: class]). self deny: (SystemOrganization categories includes: factory defaultCategory). self deny: (ChangeSet current changedClassNames includesAnyOf: createdClassNames) !
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>testMultipleClassCreation (in category 'tests') ----- - ----- Method: ClassFactoryForTestCaseTest>>testMultipleClassCreation (in category 'testing') ----- testMultipleClassCreation 5 timesRepeat: [ factory newClass]. self assert: (SystemNavigation new allClasses includesAllOf: factory createdClasses). self assert: factory createdClassNames asSet size = 5. self assert: (SystemOrganization listAtCategoryNamed: factory defaultCategory) asSet = factory createdClassNames asSet!
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>testPackageCleanUp (in category 'tests') ----- - ----- Method: ClassFactoryForTestCaseTest>>testPackageCleanUp (in category 'testing') ----- testPackageCleanUp | createdClassNames allClasses | 3 timesRepeat: [ factory newClassInCategory: #One]. 2 timesRepeat: [ factory newClassInCategory: #Two]. createdClassNames := factory createdClassNames. factory cleanUp. self assert: (factory createdClasses allSatisfy: [:class| class isObsolete]). allClasses := SystemNavigation new allClasses. self assert: (factory createdClasses noneSatisfy: [:class| allClasses includes: class]). self assert: (SystemOrganization categoriesMatching: factory packageName, '*') isEmpty. self deny: (ChangeSet current changedClassNames includesAnyOf: createdClassNames) !
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>testSingleClassCreation (in category 'tests') ----- - ----- Method: ClassFactoryForTestCaseTest>>testSingleClassCreation (in category 'testing') ----- testSingleClassCreation |class elementsInCategoryForTest | class := factory newSubclassOf: Object instanceVariableNames: 'a b c' classVariableNames: 'X Y'. self assert: (SystemNavigation new allClasses includes: class). elementsInCategoryForTest := SystemOrganization listAtCategoryNamed: factory defaultCategory. self assert: elementsInCategoryForTest = {class name}. self assert: class instVarNames = #(a b c). self assert: class classPool keys asSet = #(X Y) asSet!
Item was changed: + ----- Method: ClassFactoryForTestCaseTest>>testSingleClassFastCreation (in category 'tests') ----- - ----- Method: ClassFactoryForTestCaseTest>>testSingleClassFastCreation (in category 'testing') ----- testSingleClassFastCreation |class elementsInCategoryForTest | class := factory newClass. self assert: (SystemNavigation new allClasses includes: class). elementsInCategoryForTest := SystemOrganization listAtCategoryNamed: factory defaultCategory. self assert: elementsInCategoryForTest = {class name}. self assert: class instVarNames isEmpty. self assert: class classPool isEmpty!
Item was changed: + ----- Method: ClassTestCase>>selectorsTested (in category 'coverage') ----- - ----- Method: ClassTestCase>>selectorsTested (in category 'Coverage') ----- selectorsTested | literals | literals := Set new. self class selectorsAndMethodsDo: [ :s :m | (s beginsWith: 'test') ifTrue: [ literals addAll: (m messages)] ]. ^ literals sorted!
Item was changed: + ----- Method: LongTestCase>>defaultTimeout (in category 'accessing') ----- - ----- 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 changed: + ----- Method: LongTestCaseTest>>setUp (in category 'running') ----- - ----- Method: LongTestCaseTest>>setUp (in category 'as yet unclassified') ----- setUp
preferenceValue := LongTestCase shouldRun!
Item was changed: + ----- Method: LongTestCaseTest>>tearDown (in category 'running') ----- - ----- Method: LongTestCaseTest>>tearDown (in category 'as yet unclassified') ----- tearDown
LongTestCase shouldRun: preferenceValue!
Item was changed: + ----- Method: LongTestCaseTest>>testLongTestCaseDoNotRun (in category 'tests') ----- - ----- Method: LongTestCaseTest>>testLongTestCaseDoNotRun (in category 'testing') ----- testLongTestCaseDoNotRun "self debug: #testLongTestCaseDoNotRun" "self run: #testLongTestCaseDoNotRun"
LongTestCase doNotRunLongTestCases. LongTestCaseTestUnderTest markAsNotRun. self deny: LongTestCaseTestUnderTest hasRun. LongTestCaseTestUnderTest suite run. self deny: LongTestCaseTestUnderTest hasRun.
!
Item was changed: + ----- Method: LongTestCaseTest>>testLongTestCaseRun (in category 'tests') ----- - ----- Method: LongTestCaseTest>>testLongTestCaseRun (in category 'testing') ----- testLongTestCaseRun "self debug: #testLongTestCaseRun" "self run: #testLongTestCaseRun"
LongTestCase runLongTestCases. LongTestCaseTestUnderTest markAsNotRun. self deny: LongTestCaseTestUnderTest hasRun. LongTestCaseTestUnderTest suite run. self assert: LongTestCaseTestUnderTest hasRun. LongTestCase doNotRunLongTestCases.
!
Item was changed: + ----- Method: LongTestCaseTestUnderTest>>testWhenRunMarkTestedToTrue (in category 'tests') ----- - ----- Method: LongTestCaseTestUnderTest>>testWhenRunMarkTestedToTrue (in category 'testing') ----- testWhenRunMarkTestedToTrue
RunStatus := true.!
Item was changed: + ----- Method: ResumableTestFailureTestCase>>errorTest (in category 'data') ----- - ----- Method: ResumableTestFailureTestCase>>errorTest (in category 'not categorized') ----- errorTest 1 zork !
Item was changed: + ----- Method: ResumableTestFailureTestCase>>failureTest (in category 'data') ----- - ----- Method: ResumableTestFailureTestCase>>failureTest (in category 'not categorized') ----- failureTest self assert: false description: 'You should see me' resumable: true; assert: false description: 'You should see me too' resumable: true; assert: false description: 'You should see me last' resumable: false; assert: false description: 'You should not see me' resumable: true !
Item was changed: + ----- Method: ResumableTestFailureTestCase>>okTest (in category 'data') ----- - ----- Method: ResumableTestFailureTestCase>>okTest (in category 'not categorized') ----- okTest self assert: true !
Item was changed: + ----- Method: ResumableTestFailureTestCase>>regularTestFailureTest (in category 'data') ----- - ----- Method: ResumableTestFailureTestCase>>regularTestFailureTest (in category 'not categorized') ----- regularTestFailureTest self assert: false description: 'You should see me' !
Item was changed: + ----- Method: ResumableTestFailureTestCase>>resumableTestFailureTest (in category 'data') ----- - ----- Method: ResumableTestFailureTestCase>>resumableTestFailureTest (in category 'not categorized') ----- resumableTestFailureTest self assert: false description: 'You should see me' resumable: true; assert: false description: 'You should see me too' resumable: true; assert: false description: 'You should see me last' resumable: false; assert: false description: 'You should not see me' resumable: true !
Item was changed: + ----- Method: ResumableTestFailureTestCase>>testResumable (in category 'tests') ----- - ----- Method: ResumableTestFailureTestCase>>testResumable (in category 'not categorized') ----- testResumable | result suite | suite := TestSuite new. suite addTest: (self class selector: #errorTest). suite addTest: (self class selector: #regularTestFailureTest). suite addTest: (self class selector: #resumableTestFailureTest). suite addTest: (self class selector: #okTest). result := suite run. self assert: result failures size = 2; assert: result errors size = 1 !
Item was changed: + ----- Method: SUnitExtensionsTest>>testAssertionFailedInRaiseWithExceptionDo (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testAssertionFailedInRaiseWithExceptionDo (in category 'test') ----- testAssertionFailedInRaiseWithExceptionDo
| testCase testResult | testCase := self class selector: #assertionFailedInRaiseWithExceptionDoTest. testResult := testCase run. self assert: (testResult failures includes: testCase). self assert: testResult failures size=1. self assert: testResult passed isEmpty. self assert: testResult errors isEmpty. !
Item was changed: + ----- Method: SUnitExtensionsTest>>testAutoAssertFalse (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testAutoAssertFalse (in category 'test') ----- testAutoAssertFalse | booleanCondition | self assert: self isLogging. self should: [ self assert: 1 = 2 description: 'self assert: 1 = 2' ] raise: TestResult failure. booleanCondition := (self stream contents subStrings: {Character cr}) last = 'self assert: 1 = 2'. self assert: booleanCondition!
Item was changed: + ----- Method: SUnitExtensionsTest>>testAutoAssertTrue (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testAutoAssertTrue (in category 'test') ----- testAutoAssertTrue self assert: 1 = 1. self assert: true!
Item was changed: + ----- Method: SUnitExtensionsTest>>testAutoDenyFalse (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testAutoDenyFalse (in category 'test') ----- testAutoDenyFalse | booleanCondition | self assert: self isLogging. self should: [ self deny: 1 = 1 description: 'self deny: 1 = 1'.] raise: TestResult failure. booleanCondition := (self stream contents subStrings: {Character cr}) last = 'self deny: 1 = 1'. self assert: booleanCondition!
Item was changed: + ----- Method: SUnitExtensionsTest>>testAutoDenyTrue (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testAutoDenyTrue (in category 'test') ----- testAutoDenyTrue self deny: 1 = 2. self deny: false!
Item was changed: + ----- Method: SUnitExtensionsTest>>testDifferentExceptionInShouldRaiseWithExceptionDo (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testDifferentExceptionInShouldRaiseWithExceptionDo (in category 'test') ----- testDifferentExceptionInShouldRaiseWithExceptionDo
| testCase testResult | testCase := self class selector: #differentExceptionInShouldRaiseWithExceptionDoTest. testResult := testCase run. self assert: (testResult passed includes: testCase). self assert: testResult errors isEmpty. self assert: testResult failures isEmpty. self assert: testResult passed size=1!
Item was changed: + ----- Method: SUnitExtensionsTest>>testEnsureInternetFails (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testEnsureInternetFails (in category 'test') ----- testEnsureInternetFails
self should: [self ensureInternetConnectionTo: ''] raise: Error!
Item was changed: + ----- Method: SUnitExtensionsTest>>testErrorInRaiseWithExceptionDo (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testErrorInRaiseWithExceptionDo (in category 'test') ----- testErrorInRaiseWithExceptionDo
| testCase testResult | testCase := self class selector: #errorInRaiseWithExceptionDoTest. testResult := testCase run. self assert: (testResult errors includes: testCase). self assert: testResult errors size=1. self assert: testResult failures isEmpty. self assert: testResult passed isEmpty. !
Item was changed: + ----- Method: SUnitExtensionsTest>>testExceptionWithMatchingString (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testExceptionWithMatchingString (in category 'as yet unclassified') ----- testExceptionWithMatchingString self should: [ Object obsolete ] raise: Error whoseDescriptionIncludes: 'NOT obsolete' description: 'tested obsoleting Object'!
Item was changed: + ----- Method: SUnitExtensionsTest>>testExceptionWithoutMatchingString (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testExceptionWithoutMatchingString (in category 'as yet unclassified') ----- testExceptionWithoutMatchingString self should: [ Object obsolete ] raise: Error whoseDescriptionDoesNotInclude: 'Zero' description: 'tested obsoleting Object'!
Item was changed: + ----- Method: SUnitExtensionsTest>>testInvalidShouldNotTakeMoreThan (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testInvalidShouldNotTakeMoreThan (in category 'test') ----- testInvalidShouldNotTakeMoreThan
| testCase testResult |
testCase := self class selector: #invalidShouldNotTakeMoreThan. testResult := testCase run.
self assert: testResult passed isEmpty. self assert: testResult failures size = 1. self assert: (testResult failures includes: testCase). self assert: testResult errors isEmpty
!
Item was changed: + ----- Method: SUnitExtensionsTest>>testInvalidShouldNotTakeMoreThanMilliseconds (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testInvalidShouldNotTakeMoreThanMilliseconds (in category 'test') ----- testInvalidShouldNotTakeMoreThanMilliseconds
| testCase testResult |
testCase := self class selector: #invalidShouldNotTakeMoreThanMilliseconds. testResult := testCase run.
self assert: testResult passed isEmpty. self assert: testResult failures size = 1. self assert: (testResult failures includes: testCase). self assert: testResult errors isEmpty
!
Item was changed: + ----- Method: SUnitExtensionsTest>>testNoExceptionInShouldRaiseWithExceptionDo (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testNoExceptionInShouldRaiseWithExceptionDo (in category 'test') ----- testNoExceptionInShouldRaiseWithExceptionDo
| testCase testResult | testCase := self class selector: #noExceptionInShouldRaiseWithExceptionDoTest. testResult := testCase run. self assert: (testResult failures includes: testCase). self assert: testResult failures size=1. self assert: testResult passed isEmpty. self assert: testResult errors isEmpty. !
Item was changed: + ----- Method: SUnitExtensionsTest>>testNoExceptionWithMatchingString (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testNoExceptionWithMatchingString (in category 'as yet unclassified') ----- testNoExceptionWithMatchingString self shouldnt: [ Object obsolete ] raise: Error whoseDescriptionIncludes: 'Zero' description: 'tested obsoleting Object'!
Item was changed: + ----- Method: SUnitExtensionsTest>>testNoExceptionWithNoMatchingString (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testNoExceptionWithNoMatchingString (in category 'as yet unclassified') ----- testNoExceptionWithNoMatchingString self shouldnt: [ Object obsolete ] raise: Error whoseDescriptionDoesNotInclude: 'NOT' description: 'tested obsoleting Object'!
Item was changed: + ----- Method: SUnitExtensionsTest>>testShouldFix (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testShouldFix (in category 'test') ----- testShouldFix
| testCase testResult | testCase := self class selector: #shouldFixTest. testResult := testCase run. self assert: (testResult passed includes: testCase). self assert: testResult passed size=1. self assert: testResult failures isEmpty. self assert: testResult errors isEmpty. !
Item was changed: + ----- Method: SUnitExtensionsTest>>testShouldRaiseWithExceptionDo (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testShouldRaiseWithExceptionDo (in category 'test') ----- testShouldRaiseWithExceptionDo
| testCase testResult | testCase := self class selector: #shouldRaiseWithExceptionDoTest. testResult := testCase run. self assert: (testResult passed includes: testCase). self assert: testResult passed size=1. self assert: testResult failures isEmpty. self assert: testResult errors isEmpty. !
Item was changed: + ----- Method: SUnitExtensionsTest>>testValidShouldNotTakeMoreThan (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testValidShouldNotTakeMoreThan (in category 'test') ----- testValidShouldNotTakeMoreThan | testCase testResult |
testCase := self class selector: #validShouldNotTakeMoreThan. testResult := testCase run.
self assert: (testResult passed includes: testCase). self assert: testResult passed size = 1. self assert: testResult failures isEmpty. self assert: testResult errors isEmpty
!
Item was changed: + ----- Method: SUnitExtensionsTest>>testValidShouldNotTakeMoreThanMilliseconds (in category 'tests') ----- - ----- Method: SUnitExtensionsTest>>testValidShouldNotTakeMoreThanMilliseconds (in category 'test') ----- testValidShouldNotTakeMoreThanMilliseconds
| testCase testResult |
testCase := self class selector: #validShouldNotTakeMoreThanMilliseconds. testResult := testCase run.
self assert: (testResult passed includes: testCase). self assert: testResult passed size = 1. self assert: testResult failures isEmpty. self assert: testResult errors isEmpty
!
Item was changed: + ----- Method: SUnitTest>>errorShouldntRaise (in category 'tests') ----- - ----- Method: SUnitTest>>errorShouldntRaise (in category 'testing') ----- errorShouldntRaise self shouldnt: [self someMessageThatIsntUnderstood] raise: Notification new !
Item was changed: + ----- Method: SUnitTest>>testAssert (in category 'tests') ----- - ----- Method: SUnitTest>>testAssert (in category 'testing') ----- testAssert self assert: true. self deny: false !
Item was changed: + ----- Method: SUnitTest>>testAssertIdentical (in category 'tests') ----- - ----- Method: SUnitTest>>testAssertIdentical (in category 'testing') ----- testAssertIdentical | a b | a := 'foo'. b := 'bar'. self should: [self assert: a identical: b] raise: TestFailure. [self assert: a identical: b] on: TestFailure do: [:e | |error| error := e messageText. self assert: (error includesSubstring: a) description: 'Error message doesn''t include the expected value'. self assert: (error includesSubstring: b) description: 'Error message doesn''t include the expected value'].!
Item was changed: + ----- Method: SUnitTest>>testAssertIdenticalDescription (in category 'tests') ----- - ----- Method: SUnitTest>>testAssertIdenticalDescription (in category 'testing') ----- testAssertIdenticalDescription | a b | a := 'foo'. b := a copy. self should: [self assert: a identical: b description: 'A desciption'] raise: TestFailure. [self assert: a identical: b description: 'A desciption'] on: TestFailure do: [:e | |error| error := e messageText. self assert: (error includesSubstring: 'A desciption') description: 'Error message doesn''t give you the description'].!
Item was changed: + ----- Method: SUnitTest>>testAssertIdenticalWithEqualObjects (in category 'tests') ----- - ----- Method: SUnitTest>>testAssertIdenticalWithEqualObjects (in category 'testing') ----- testAssertIdenticalWithEqualObjects | a b | a := 'foo'. b := a copy. self should: [self assert: a identical: b] raise: TestFailure. [self assert: a identical: b] on: TestFailure do: [:e | |error| error := e messageText. self assert: (error includesSubstring: 'not identical') description: 'Error message doesn''t say the two things aren''t identical'].!
Item was changed: + ----- Method: SUnitTest>>testDefects (in category 'tests') ----- - ----- Method: SUnitTest>>testDefects (in category 'testing') ----- testDefects | result suite error failure | suite := TestSuite new. suite addTest: (error := self class selector: #error). suite addTest: (failure := self class selector: #fail). result := suite run. self assert: result defects asArray = (Array with: error with: failure). self assertForTestResult: result runCount: 2 passed: 0 failed: 1 errors: 1 !
Item was changed: + ----- Method: SUnitTest>>testDialectLocalizedException (in category 'tests') ----- - ----- Method: SUnitTest>>testDialectLocalizedException (in category 'testing') ----- testDialectLocalizedException
self should: [TestResult signalFailureWith: 'Foo'] raise: TestResult failure. self should: [TestResult signalErrorWith: 'Foo'] raise: TestResult error.
!
Item was changed: + ----- Method: SUnitTest>>testError (in category 'tests') ----- - ----- Method: SUnitTest>>testError (in category 'testing') ----- testError
| case result |
case := self class selector: #error. result := case run. self assertForTestResult: result runCount: 1 passed: 0 failed: 0 errors: 1.
case := self class selector: #errorShouldntRaise. result := case run. self assertForTestResult: result runCount: 1 passed: 0 failed: 0 errors: 1 !
Item was changed: + ----- Method: SUnitTest>>testException (in category 'tests') ----- - ----- Method: SUnitTest>>testException (in category 'testing') ----- testException
self should: [self error: 'foo'] raise: TestResult error !
Item was changed: + ----- Method: SUnitTest>>testFail (in category 'tests') ----- - ----- Method: SUnitTest>>testFail (in category 'testing') ----- testFail
| case result |
case := self class selector: #fail. result := case run.
self assertForTestResult: result runCount: 1 passed: 0 failed: 1 errors: 0 !
Item was changed: + ----- Method: SUnitTest>>testRan (in category 'tests') ----- - ----- Method: SUnitTest>>testRan (in category 'testing') ----- testRan
| case |
case := self class selector: #setRun. case run. self assert: case hasSetup. self assert: case hasRun !
Item was changed: + ----- Method: SUnitTest>>testRanOnlyOnce (in category 'tests') ----- - ----- Method: SUnitTest>>testRanOnlyOnce (in category 'testing') ----- testRanOnlyOnce
self assert: hasRanOnce ~= true. hasRanOnce := true !
Item was changed: + ----- Method: SUnitTest>>testResult (in category 'tests') ----- - ----- Method: SUnitTest>>testResult (in category 'testing') ----- testResult
| case result |
case := self class selector: #noop. result := case run.
self assertForTestResult: result runCount: 1 passed: 1 failed: 0 errors: 0 !
Item was changed: + ----- Method: SUnitTest>>testRunning (in category 'tests') ----- - ----- Method: SUnitTest>>testRunning (in category 'testing') ----- testRunning
(Delay forSeconds: 2) wait !
Item was changed: + ----- Method: SUnitTest>>testSelectorWithArg: (in category 'tests') ----- - ----- Method: SUnitTest>>testSelectorWithArg: (in category 'testing') ----- testSelectorWithArg: anObject "should not result in error"!
Item was changed: + ----- Method: SUnitTest>>testShould (in category 'tests') ----- - ----- Method: SUnitTest>>testShould (in category 'testing') ----- testShould
self should: [true]; shouldnt: [false] !
Item was changed: + ----- Method: SUnitTest>>testSuite (in category 'tests') ----- - ----- Method: SUnitTest>>testSuite (in category 'testing') ----- testSuite
| suite result |
suite := TestSuite new. suite addTest: (self class selector: #noop); addTest: (self class selector: #fail); addTest: (self class selector: #error).
result := suite run.
self assertForTestResult: result runCount: 3 passed: 1 failed: 1 errors: 1 !
Item was changed: + ----- Method: SUnitTest>>testTestTimeout (in category 'tests') ----- - ----- Method: SUnitTest>>testTestTimeout (in category 'testing') ----- testTestTimeout self should:[(Delay forSeconds: (self timeoutForTest + 1)) wait] raise: TestFailure. !
Item was changed: + ----- Method: SUnitTest>>testTestTimeoutLoop (in category 'tests') ----- - ----- Method: SUnitTest>>testTestTimeoutLoop (in category 'testing') ----- testTestTimeoutLoop <timeout: 1> self should:[[] repeat] raise: TestFailure. !
Item was changed: + ----- Method: SUnitTest>>testTestTimeoutTag (in category 'tests') ----- - ----- Method: SUnitTest>>testTestTimeoutTag (in category 'testing') ----- testTestTimeoutTag <timeout: 1> self should:[(Delay forSeconds: 3) wait] raise: TestFailure. !
Item was changed: + ----- Method: SUnitTest>>testWithExceptionDo (in category 'tests') ----- - ----- Method: SUnitTest>>testWithExceptionDo (in category 'testing') ----- testWithExceptionDo
self should: [self error: 'foo'] raise: TestResult error withExceptionDo: [:exception | self assert: (exception description includesSubstring: 'foo') ] !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>dummy (in category 'private') ----- - ----- Method: SimpleTestResourceTestCase>>dummy (in category 'not categorized') ----- dummy self assert: true !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>error (in category 'extensions') ----- - ----- Method: SimpleTestResourceTestCase>>error (in category 'not categorized') ----- error 'foo' odd !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>fail (in category 'extensions') ----- - ----- Method: SimpleTestResourceTestCase>>fail (in category 'not categorized') ----- fail self assert: false !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>setRun (in category 'extensions') ----- - ----- Method: SimpleTestResourceTestCase>>setRun (in category 'not categorized') ----- setRun resource setRun !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>setUp (in category 'running') ----- - ----- Method: SimpleTestResourceTestCase>>setUp (in category 'not categorized') ----- setUp resource := SimpleTestResource current !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>testRan (in category 'tests') ----- - ----- Method: SimpleTestResourceTestCase>>testRan (in category 'not categorized') ----- testRan | case |
case := self class selector: #setRun. case run. self assert: resource hasSetup. self assert: resource hasRun !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>testResourceInitRelease (in category 'tests') ----- - ----- Method: SimpleTestResourceTestCase>>testResourceInitRelease (in category 'not categorized') ----- testResourceInitRelease | result suite error failure | suite := TestSuite new. suite addTest: (error := self class selector: #error). suite addTest: (failure := self class selector: #fail). suite addTest: (self class selector: #dummy). result := suite run. self assert: resource hasSetup !
Item was changed: + ----- Method: SimpleTestResourceTestCase>>testResourcesCollection (in category 'tests') ----- - ----- Method: SimpleTestResourceTestCase>>testResourcesCollection (in category 'not categorized') ----- testResourcesCollection | collection | collection := self resources. self assert: collection size = 1 !
Item was changed: + ----- Method: TestCase class>>testSelectors (in category 'accessing') ----- - ----- Method: TestCase class>>testSelectors (in category 'Accessing') ----- testSelectors
^(self selectors asArray select: [ :each | (each beginsWith: 'test') and: [ each numArgs isZero ] ]) sort!
Item was changed: + ----- Method: TestCase>>expectedFailures (in category 'failures') ----- - ----- Method: TestCase>>expectedFailures (in category 'testing') ----- expectedFailures ^ Array new!