123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797 |
- smalltalk.addPackage('SUnit', {});
- smalltalk.addClass('ResultAnnouncement', smalltalk.Object, ['result'], 'SUnit');
- smalltalk.addMethod(
- "_result",
- smalltalk.method({
- selector: "result",
- category: 'accessing',
- fn: function (){
- var self=this;
- return self["@result"];
- },
- args: [],
- source: "result\x0a\x09^result",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ResultAnnouncement);
- smalltalk.addMethod(
- "_result_",
- smalltalk.method({
- selector: "result:",
- category: 'accessing',
- fn: function (aTestResult){
- var self=this;
- self["@result"]=aTestResult;
- return self},
- args: ["aTestResult"],
- source: "result: aTestResult\x0a\x09result := aTestResult",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.ResultAnnouncement);
- smalltalk.addClass('TestCase', smalltalk.Object, ['testSelector'], 'SUnit');
- smalltalk.addMethod(
- "_assert_",
- smalltalk.method({
- selector: "assert:",
- category: 'testing',
- fn: function (aBoolean) {
- var self = this;
- smalltalk.send(self, "_assert_description_", [aBoolean, "Assertion failed"]);
- return self;
- },
- args: ["aBoolean"],
- source: "assert: aBoolean\x0a\x09self assert: aBoolean description: 'Assertion failed'",
- messageSends: ["assert:description:"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_assert_description_",
- smalltalk.method({
- selector: "assert:description:",
- category: 'testing',
- fn: function (aBoolean, aString) {
- var self = this;
- if (!smalltalk.assert(aBoolean)) {
- smalltalk.send(self, "_signalFailure_", [aString]);
- }
- return self;
- },
- args: ["aBoolean", "aString"],
- source: "assert: aBoolean description: aString\x0a\x09aBoolean ifFalse: [self signalFailure: aString]",
- messageSends: ["ifFalse:", "signalFailure:"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_assert_equals_",
- smalltalk.method({
- selector: "assert:equals:",
- category: 'testing',
- fn: function (expected, actual) {
- var self = this;
- var $1;
- $1 = smalltalk.send(self, "_assert_description_", [smalltalk.send(expected, "__eq", [actual]), smalltalk.send(smalltalk.send(smalltalk.send("Expected: ", "__comma", [smalltalk.send(expected, "_asString", [])]), "__comma", [" but was: "]), "__comma", [smalltalk.send(actual, "_asString", [])])]);
- return $1;
- },
- args: ["expected", "actual"],
- source: "assert: expected equals: actual\x0a\x09^ self assert: (expected = actual) description: 'Expected: ', expected asString, ' but was: ', actual asString",
- messageSends: ["assert:description:", "=", ",", "asString"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_deny_",
- smalltalk.method({
- selector: "deny:",
- category: 'testing',
- fn: function (aBoolean) {
- var self = this;
- smalltalk.send(self, "_assert_", [smalltalk.send(aBoolean, "_not", [])]);
- return self;
- },
- args: ["aBoolean"],
- source: "deny: aBoolean\x0a\x09self assert: aBoolean not",
- messageSends: ["assert:", "not"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_performTest",
- smalltalk.method({
- selector: "performTest",
- category: 'running',
- fn: function (){
- var self=this;
- smalltalk.send(self,"_perform_",[smalltalk.send(self,"_selector",[])]);
- return self},
- args: [],
- source: "performTest\x0a\x09self perform: self selector\x0a",
- messageSends: ["perform:", "selector"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_runCase",
- smalltalk.method({
- selector: "runCase",
- category: 'running',
- fn: function (){
- var self=this;
- smalltalk.send((function(){
- smalltalk.send(self,"_setUp",[]);
- return smalltalk.send(self,"_performTest",[]);
- }),"_ensure_",[(function(){
- return smalltalk.send(self,"_tearDown",[]);
- })]);
- return self},
- args: [],
- source: "runCase\x0a\x09[\x09self setUp.\x0a\x09\x09self performTest ] ensure: [\x0a\x09\x09self tearDown.\x0a\x09\x09\x22self cleanUpInstanceVariables\x22 ]\x0a",
- messageSends: ["ensure:", "tearDown", "setUp", "performTest"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_selector",
- smalltalk.method({
- selector: "selector",
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@testSelector'];
- },
- args: [],
- source: "selector\x0a\x09^testSelector",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_setTestSelector_",
- smalltalk.method({
- selector: "setTestSelector:",
- category: 'accessing',
- fn: function (aSelector) {
- var self = this;
- self['@testSelector'] = aSelector;
- return self;
- },
- args: ["aSelector"],
- source: "setTestSelector: aSelector\x0a\x09testSelector := aSelector",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_setUp",
- smalltalk.method({
- selector: "setUp",
- category: 'running',
- fn: function () {
- var self = this;
- return self;
- },
- args: [],
- source: "setUp",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_should_",
- smalltalk.method({
- selector: "should:",
- category: 'testing',
- fn: function (aBlock) {
- var self = this;
- smalltalk.send(self, "_assert_", [smalltalk.send(aBlock, "_value", [])]);
- return self;
- },
- args: ["aBlock"],
- source: "should: aBlock\x0a\x09self assert: aBlock value",
- messageSends: ["assert:", "value"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_should_raise_",
- smalltalk.method({
- selector: "should:raise:",
- category: 'testing',
- fn: function (aBlock, anExceptionClass) {
- var self = this;
- smalltalk.send(self, "_assert_", [smalltalk.send(function () {smalltalk.send(aBlock, "_value", []);return false;}, "_on_do_", [anExceptionClass, function (ex) {return true;}])]);
- return self;
- },
- args: ["aBlock", "anExceptionClass"],
- source: "should: aBlock raise: anExceptionClass\x0a\x09self assert: ([aBlock value. false] \x0a\x09\x09on: anExceptionClass \x0a\x09\x09do: [:ex | true])",
- messageSends: ["assert:", "on:do:", "value"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_shouldnt_raise_",
- smalltalk.method({
- selector: "shouldnt:raise:",
- category: 'testing',
- fn: function (aBlock, anExceptionClass) {
- var self = this;
- smalltalk.send(self, "_assert_", [smalltalk.send(function () {smalltalk.send(aBlock, "_value", []);return true;}, "_on_do_", [anExceptionClass, function (ex) {return false;}])]);
- return self;
- },
- args: ["aBlock", "anExceptionClass"],
- source: "shouldnt: aBlock raise: anExceptionClass\x0a\x09self assert: ([aBlock value. true] \x0a\x09\x09on: anExceptionClass \x0a\x09\x09do: [:ex | false])",
- messageSends: ["assert:", "on:do:", "value"],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_signalFailure_",
- smalltalk.method({
- selector: "signalFailure:",
- category: 'private',
- fn: function (aString) {
- var self = this;
- var $1, $2;
- $1 = smalltalk.send(smalltalk.TestFailure || TestFailure, "_new", []);
- smalltalk.send($1, "_messageText_", [aString]);
- $2 = smalltalk.send($1, "_signal", []);
- return self;
- },
- args: ["aString"],
- source: "signalFailure: aString\x0a\x09TestFailure new\x0a\x09\x09messageText: aString;\x0a\x09\x09signal",
- messageSends: ["messageText:", "new", "signal"],
- referencedClasses: ["TestFailure"]
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_tearDown",
- smalltalk.method({
- selector: "tearDown",
- category: 'running',
- fn: function () {
- var self = this;
- return self;
- },
- args: [],
- source: "tearDown",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestCase);
- smalltalk.addMethod(
- "_allTestSelectors",
- smalltalk.method({
- selector: "allTestSelectors",
- category: 'accessing',
- fn: function () {
- var self = this;
- var $1;
- var selectors;
- selectors = smalltalk.send(self, "_testSelectors", []);
- $1 = smalltalk.send(self, "_shouldInheritSelectors", []);
- if (smalltalk.assert($1)) {
- smalltalk.send(selectors, "_addAll_", [smalltalk.send(smalltalk.send(self, "_superclass", []), "_allTestSelectors", [])]);
- }
- return selectors;
- },
- args: [],
- source: "allTestSelectors\x0a\x09| selectors |\x0a\x09selectors := self testSelectors.\x0a\x09self shouldInheritSelectors ifTrue: [\x0a\x09\x09selectors addAll: self superclass allTestSelectors].\x0a\x09^selectors",
- messageSends: ["testSelectors", "ifTrue:", "addAll:", "allTestSelectors", "superclass", "shouldInheritSelectors"],
- referencedClasses: []
- }),
- smalltalk.TestCase.klass);
- smalltalk.addMethod(
- "_buildSuite",
- smalltalk.method({
- selector: "buildSuite",
- category: 'accessing',
- fn: function () {
- var self = this;
- var $1;
- $1 = smalltalk.send(smalltalk.send(self, "_allTestSelectors", []), "_collect_", [function (each) {return smalltalk.send(self, "_selector_", [each]);}]);
- return $1;
- },
- args: [],
- source: "buildSuite\x0a\x09^self allTestSelectors collect: [:each | self selector: each]",
- messageSends: ["collect:", "selector:", "allTestSelectors"],
- referencedClasses: []
- }),
- smalltalk.TestCase.klass);
- smalltalk.addMethod(
- "_isAbstract",
- smalltalk.method({
- selector: "isAbstract",
- category: 'testing',
- fn: function () {
- var self = this;
- var $1;
- $1 = smalltalk.send(smalltalk.send(self, "_name", []), "__eq", ["TestCase"]);
- return $1;
- },
- args: [],
- source: "isAbstract\x0a\x09^ self name = 'TestCase'",
- messageSends: ["=", "name"],
- referencedClasses: []
- }),
- smalltalk.TestCase.klass);
- smalltalk.addMethod(
- "_lookupHierarchyRoot",
- smalltalk.method({
- selector: "lookupHierarchyRoot",
- category: 'accessing',
- fn: function () {
- var self = this;
- return smalltalk.TestCase || TestCase;
- },
- args: [],
- source: "lookupHierarchyRoot\x0a\x09^TestCase",
- messageSends: [],
- referencedClasses: ["TestCase"]
- }),
- smalltalk.TestCase.klass);
- smalltalk.addMethod(
- "_selector_",
- smalltalk.method({
- selector: "selector:",
- category: 'accessing',
- fn: function (aSelector) {
- var self = this;
- var $2, $3, $1;
- $2 = smalltalk.send(self, "_new", []);
- smalltalk.send($2, "_setTestSelector_", [aSelector]);
- $3 = smalltalk.send($2, "_yourself", []);
- $1 = $3;
- return $1;
- },
- args: ["aSelector"],
- source: "selector: aSelector\x0a\x09^self new\x0a\x09\x09setTestSelector: aSelector;\x0a\x09\x09yourself",
- messageSends: ["setTestSelector:", "new", "yourself"],
- referencedClasses: []
- }),
- smalltalk.TestCase.klass);
- smalltalk.addMethod(
- "_shouldInheritSelectors",
- smalltalk.method({
- selector: "shouldInheritSelectors",
- category: 'testing',
- fn: function () {
- var self = this;
- var $1;
- $1 = smalltalk.send(self, "_~_eq", [smalltalk.send(self, "_lookupHierarchyRoot", [])]);
- return $1;
- },
- args: [],
- source: "shouldInheritSelectors\x0a\x09^self ~= self lookupHierarchyRoot",
- messageSends: ["~=", "lookupHierarchyRoot"],
- referencedClasses: []
- }),
- smalltalk.TestCase.klass);
- smalltalk.addMethod(
- "_testSelectors",
- smalltalk.method({
- selector: "testSelectors",
- category: 'accessing',
- fn: function () {
- var self = this;
- var $1;
- $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_methodDictionary", []), "_keys", []), "_select_", [function (each) {return smalltalk.send(each, "_match_", ["^test"]);}]);
- return $1;
- },
- args: [],
- source: "testSelectors\x0a\x09^self methodDictionary keys select: [:each | each match: '^test']",
- messageSends: ["select:", "match:", "keys", "methodDictionary"],
- referencedClasses: []
- }),
- smalltalk.TestCase.klass);
- smalltalk.addClass('TestFailure', smalltalk.Error, [], 'SUnit');
- smalltalk.addClass('TestResult', smalltalk.Object, ['timestamp', 'runs', 'errors', 'failures', 'total'], 'SUnit');
- smalltalk.addMethod(
- "_addError_",
- smalltalk.method({
- selector: "addError:",
- category: 'accessing',
- fn: function (anError) {
- var self = this;
- smalltalk.send(smalltalk.send(self, "_errors", []), "_add_", [anError]);
- return self;
- },
- args: ["anError"],
- source: "addError: anError\x0a\x09self errors add: anError",
- messageSends: ["add:", "errors"],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_addFailure_",
- smalltalk.method({
- selector: "addFailure:",
- category: 'accessing',
- fn: function (aFailure) {
- var self = this;
- smalltalk.send(smalltalk.send(self, "_failures", []), "_add_", [aFailure]);
- return self;
- },
- args: ["aFailure"],
- source: "addFailure: aFailure\x0a\x09self failures add: aFailure",
- messageSends: ["add:", "failures"],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_errors",
- smalltalk.method({
- selector: "errors",
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@errors'];
- },
- args: [],
- source: "errors\x0a\x09^errors",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_failures",
- smalltalk.method({
- selector: "failures",
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@failures'];
- },
- args: [],
- source: "failures\x0a\x09^failures",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_increaseRuns",
- smalltalk.method({
- selector: "increaseRuns",
- category: 'accessing',
- fn: function () {
- var self = this;
- self['@runs'] = smalltalk.send(self['@runs'], "__plus", [1]);
- return self;
- },
- args: [],
- source: "increaseRuns\x0a\x09runs := runs + 1",
- messageSends: ["+"],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_initialize",
- smalltalk.method({
- selector: "initialize",
- category: 'initialization',
- fn: function () {
- var self = this;
- smalltalk.send(self, "_initialize", [], smalltalk.Object);
- self['@timestamp'] = smalltalk.send(smalltalk.Date || Date, "_now", []);
- self['@runs'] = 0;
- self['@errors'] = smalltalk.send(smalltalk.Array || Array, "_new", []);
- self['@failures'] = smalltalk.send(smalltalk.Array || Array, "_new", []);
- self['@total'] = 0;
- return self;
- },
- args: [],
- source: "initialize\x0a\x09super initialize.\x0a\x09timestamp := Date now.\x0a\x09runs := 0.\x0a\x09errors := Array new.\x0a\x09failures := Array new.\x0a\x09total := 0",
- messageSends: ["initialize", "now", "new"],
- referencedClasses: ["Date", "Array"]
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_nextRunDo_",
- smalltalk.method({
- selector: "nextRunDo:",
- category: 'running',
- fn: function (aBlock){
- var self=this;
- var $2,$1;
- $2=smalltalk.send(smalltalk.send(self,"_runs",[]),"__eq_eq",[smalltalk.send(self,"_total",[])]);
- if(! smalltalk.assert($2)){
- $1=smalltalk.send(aBlock,"_value_",[smalltalk.send(smalltalk.send(self,"_runs",[]),"__plus",[(1)])]);
- };
- return $1;
- },
- args: ["aBlock"],
- source: "nextRunDo: aBlock\x0a\x22Runs aBlock with index of next run\x0aor does nothing if no more runs\x22\x0a^self runs == self total\x0a\x09ifFalse: [ aBlock value: self runs + 1 ]",
- messageSends: ["ifFalse:", "value:", "+", "runs", "==", "total"],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_runCase_",
- smalltalk.method({
- selector: "runCase:",
- category: 'running',
- fn: function (aTestCase){
- var self=this;
- smalltalk.send((function(){
- return smalltalk.send((function(){
- smalltalk.send(self,"_increaseRuns",[]);
- return smalltalk.send(aTestCase,"_runCase",[]);
- }),"_on_do_",[(smalltalk.TestFailure || TestFailure),(function(ex){
- return smalltalk.send(self,"_addFailure_",[aTestCase]);
- })]);
- }),"_on_do_",[(smalltalk.Error || Error),(function(ex){
- return smalltalk.send(self,"_addError_",[aTestCase]);
- })]);
- return self},
- args: ["aTestCase"],
- source: "runCase: aTestCase\x0a\x09[[\x09self increaseRuns.\x0a \x09aTestCase runCase]\x0a\x09on: TestFailure do: [:ex | self addFailure: aTestCase]]\x0a\x09on: Error do: [:ex | self addError: aTestCase]\x0a",
- messageSends: ["on:do:", "addError:", "addFailure:", "increaseRuns", "runCase"],
- referencedClasses: ["Error", "TestFailure"]
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_runs",
- smalltalk.method({
- selector: "runs",
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@runs'];
- },
- args: [],
- source: "runs\x0a\x09^runs",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_status",
- smalltalk.method({
- selector: "status",
- category: 'accessing',
- fn: function () {
- var self = this;
- var $2, $3, $1;
- $2 = smalltalk.send(smalltalk.send(self, "_errors", []), "_isEmpty", []);
- if (smalltalk.assert($2)) {
- $3 = smalltalk.send(smalltalk.send(self, "_failures", []), "_isEmpty", []);
- if (smalltalk.assert($3)) {
- $1 = "success";
- } else {
- $1 = "failure";
- }
- } else {
- $1 = "error";
- }
- return $1;
- },
- args: [],
- source: "status\x0a\x09^self errors isEmpty \x0a\x09\x09ifTrue: [\x0a\x09\x09\x09self failures isEmpty \x0a\x09\x09\x09\x09ifTrue: ['success']\x0a\x09\x09\x09\x09ifFalse: ['failure']]\x0a\x09\x09ifFalse: ['error']",
- messageSends: ["ifTrue:ifFalse:", "isEmpty", "failures", "errors"],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_timestamp",
- smalltalk.method({
- selector: "timestamp",
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@timestamp'];
- },
- args: [],
- source: "timestamp\x0a\x09^timestamp",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_total",
- smalltalk.method({
- selector: "total",
- category: 'accessing',
- fn: function () {
- var self = this;
- return self['@total'];
- },
- args: [],
- source: "total\x0a\x09^total",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addMethod(
- "_total_",
- smalltalk.method({
- selector: "total:",
- category: 'accessing',
- fn: function (aNumber) {
- var self = this;
- self['@total'] = aNumber;
- return self;
- },
- args: ["aNumber"],
- source: "total: aNumber\x0a\x09total := aNumber",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestResult);
- smalltalk.addClass('TestSuiteRunner', smalltalk.Object, ['suite', 'result', 'announcer'], 'SUnit');
- smalltalk.addMethod(
- "_announcer",
- smalltalk.method({
- selector: "announcer",
- category: 'accessing',
- fn: function (){
- var self=this;
- return self["@announcer"];
- },
- args: [],
- source: "announcer\x0a\x09^announcer",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestSuiteRunner);
- smalltalk.addMethod(
- "_initialize",
- smalltalk.method({
- selector: "initialize",
- category: 'initialization',
- fn: function (){
- var self=this;
- smalltalk.send(self,"_initialize",[],smalltalk.Object);
- self["@announcer"]=smalltalk.send((smalltalk.Announcer || Announcer),"_new",[]);
- self["@result"]=smalltalk.send((smalltalk.TestResult || TestResult),"_new",[]);
- return self},
- args: [],
- source: "initialize\x0a\x09super initialize.\x0a\x09announcer := Announcer new.\x0a result := TestResult new",
- messageSends: ["initialize", "new"],
- referencedClasses: ["Announcer", "TestResult"]
- }),
- smalltalk.TestSuiteRunner);
- smalltalk.addMethod(
- "_result",
- smalltalk.method({
- selector: "result",
- category: 'accessing',
- fn: function (){
- var self=this;
- return self["@result"];
- },
- args: [],
- source: "result\x0a\x09^result",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestSuiteRunner);
- smalltalk.addMethod(
- "_run",
- smalltalk.method({
- selector: "run",
- category: 'actions',
- fn: function (){
- var self=this;
- var worker;
- smalltalk.send(self["@result"],"_total_",[smalltalk.send(self["@suite"],"_size",[])]);
- smalltalk.send(self["@announcer"],"_announce_",[smalltalk.send(smalltalk.send((smalltalk.ResultAnnouncement || ResultAnnouncement),"_new",[]),"_result_",[self["@result"]])]);
- worker=(function(){
- return smalltalk.send(self["@result"],"_nextRunDo_",[(function(index){
- return smalltalk.send((function(){
- return smalltalk.send(self["@result"],"_runCase_",[smalltalk.send(self["@suite"],"_at_",[index])]);
- }),"_ensure_",[(function(){
- smalltalk.send(worker,"_fork",[]);
- return smalltalk.send(self["@announcer"],"_announce_",[smalltalk.send(smalltalk.send((smalltalk.ResultAnnouncement || ResultAnnouncement),"_new",[]),"_result_",[self["@result"]])]);
- })]);
- })]);
- });
- smalltalk.send(worker,"_fork",[]);
- return self},
- args: [],
- source: "run\x0a\x09| worker |\x0a\x09result total: suite size.\x0a announcer announce: (ResultAnnouncement new result: result).\x0a worker := [ result nextRunDo: [ :index |\x0a\x09\x09[ result runCase: (suite at: index) ]\x0a\x09\x09ensure: [ worker fork.\x0a \x09announcer announce: (ResultAnnouncement new result: result) ]]].\x0a\x09worker fork",
- messageSends: ["total:", "size", "announce:", "result:", "new", "nextRunDo:", "ensure:", "fork", "runCase:", "at:"],
- referencedClasses: ["ResultAnnouncement"]
- }),
- smalltalk.TestSuiteRunner);
- smalltalk.addMethod(
- "_suite_",
- smalltalk.method({
- selector: "suite:",
- category: 'accessing',
- fn: function (aCollection){
- var self=this;
- self["@suite"]=aCollection;
- return self},
- args: ["aCollection"],
- source: "suite: aCollection\x0a\x09suite := aCollection",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.TestSuiteRunner);
- smalltalk.addMethod(
- "_new",
- smalltalk.method({
- selector: "new",
- category: 'instance creation',
- fn: function (){
- var self=this;
- smalltalk.send(self,"_shouldNotImplement",[]);
- return self},
- args: [],
- source: "new\x0a\x09self shouldNotImplement",
- messageSends: ["shouldNotImplement"],
- referencedClasses: []
- }),
- smalltalk.TestSuiteRunner.klass);
- smalltalk.addMethod(
- "_on_",
- smalltalk.method({
- selector: "on:",
- category: 'instance creation',
- fn: function (aCollection){
- var self=this;
- var $1;
- $1=smalltalk.send(smalltalk.send(self,"_new",[],smalltalk.Object.klass),"_suite_",[aCollection]);
- return $1;
- },
- args: ["aCollection"],
- source: "on: aCollection\x0a\x09^super new suite: aCollection",
- messageSends: ["suite:", "new"],
- referencedClasses: []
- }),
- smalltalk.TestSuiteRunner.klass);
|