Skip to content

Commit

Permalink
add rowanTestSuite.gs that runs Rowan tests and produces output like …
Browse files Browse the repository at this point in the history
…the following:

142 run, 139 passed, 3 failed, 0 errors
  errors
  failures
	RwLoadingTest>>#testPoolDictionaryChanges
	RwSymbolDictionaryTest>>#testClassVersioningPatch
	RwRowanProjectIssuesTest>>#testIssue123_moveExistingClassWithMethodsAndSubclassesToNewPackageAndNewClassVersion
  • Loading branch information
dalehenrich committed Apr 30, 2018
1 parent 1b22575 commit 92cfe44
Showing 1 changed file with 26 additions and 0 deletions.
26 changes: 26 additions & 0 deletions platforms/gemstone/topaz/rowanTestSuite.gs
Original file line number Diff line number Diff line change
@@ -0,0 +1,26 @@
run
| suite res strm |
suite := TestSuite named: 'Rowan tests'.
{RwLoadingTest.
RwUrlTest.
RwPackageReadWriteTest.
RwSymbolDictionaryTest.
RwProjectToolTest.
RwEditToolTest.
RwProjectSetTest.
RwHybridBrowserToolTest.
RwBrowserToolApiTest.
RwRowanSample2Test.
RwRowanProjectIssuesTest} do: [ :cl | suite addTests: cl suite tests ].
res := suite run.

strm := WriteStream on: String new.
strm nextPutAll: res printString; lf.
strm nextPutAll: ' errors'; lf.
res errors do: [:each |
strm tab; nextPutAll: each printString; lf].
strm nextPutAll: ' failures'; lf.
res failures do: [:each |
strm tab; nextPutAll: each printString; lf].
strm contents
%

0 comments on commit 92cfe44

Please sign in to comment.