| 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);
 |