123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547 |
- define("amber/SUnit-Tests", ["amber_vm/smalltalk","amber_vm/nil","amber_vm/_st"], function(smalltalk,nil,_st){
- smalltalk.addPackage('SUnit-Tests');
- smalltalk.addClass('ExampleSetTest', smalltalk.TestCase, ['empty', 'full'], 'SUnit-Tests');
- smalltalk.ExampleSetTest.comment="ExampleSetTest is taken from Pharo 1.4.\x0a\x0aTHe purpose of this class is to demonstrate a simple use case of the test framework.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setUp",
- category: 'running',
- fn: function (){
- var self=this;
- function $Set(){return smalltalk.Set||(typeof Set=="undefined"?nil:Set)}
- return smalltalk.withContext(function($ctx1) {
- self["@empty"]=_st($Set())._new();
- self["@full"]=_st($Set())._with_with_((5),"abc");
- return self}, function($ctx1) {$ctx1.fill(self,"setUp",{},smalltalk.ExampleSetTest)})},
- args: [],
- source: "setUp\x0a\x09empty := Set new.\x0a\x09full := Set with: 5 with: #abc",
- messageSends: ["new", "with:with:"],
- referencedClasses: ["Set"]
- }),
- smalltalk.ExampleSetTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testAdd",
- category: 'tests',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self["@empty"])._add_((5));
- self._assert_(_st(self["@empty"])._includes_((5)));
- return self}, function($ctx1) {$ctx1.fill(self,"testAdd",{},smalltalk.ExampleSetTest)})},
- args: [],
- source: "testAdd\x0a\x09empty add: 5.\x0a\x09self assert: (empty includes: 5)",
- messageSends: ["add:", "assert:", "includes:"],
- referencedClasses: []
- }),
- smalltalk.ExampleSetTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testGrow",
- category: 'tests',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self["@empty"])._addAll_((1)._to_((100)));
- self._assert_equals_(_st(self["@empty"])._size(),(100));
- return self}, function($ctx1) {$ctx1.fill(self,"testGrow",{},smalltalk.ExampleSetTest)})},
- args: [],
- source: "testGrow\x0a\x09empty addAll: (1 to: 100).\x0a\x09self assert: empty size equals: 100",
- messageSends: ["addAll:", "to:", "assert:equals:", "size"],
- referencedClasses: []
- }),
- smalltalk.ExampleSetTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testIllegal",
- category: 'tests',
- fn: function (){
- var self=this;
- function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
- return smalltalk.withContext(function($ctx1) {
- self._should_raise_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self["@empty"])._at_((5));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),$Error());
- self._should_raise_((function(){
- return smalltalk.withContext(function($ctx2) {
- return _st(self["@empty"])._at_put_((5),"abc");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),$Error());
- return self}, function($ctx1) {$ctx1.fill(self,"testIllegal",{},smalltalk.ExampleSetTest)})},
- args: [],
- source: "testIllegal\x0a\x09self\x0a\x09\x09should: [empty at: 5]\x0a\x09\x09raise: Error.\x0a\x09self\x0a\x09\x09should: [empty at: 5 put: #abc]\x0a\x09\x09raise: Error",
- messageSends: ["should:raise:", "at:", "at:put:"],
- referencedClasses: ["Error"]
- }),
- smalltalk.ExampleSetTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testIncludes",
- category: 'tests',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._assert_(_st(self["@full"])._includes_((5)));
- self._assert_(_st(self["@full"])._includes_("abc"));
- return self}, function($ctx1) {$ctx1.fill(self,"testIncludes",{},smalltalk.ExampleSetTest)})},
- args: [],
- source: "testIncludes\x0a\x09self assert: (full includes: 5).\x0a\x09self assert: (full includes: #abc)",
- messageSends: ["assert:", "includes:"],
- referencedClasses: []
- }),
- smalltalk.ExampleSetTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testOccurrences",
- category: 'tests',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._assert_equals_(_st(self["@empty"])._occurrencesOf_((0)),(0));
- self._assert_equals_(_st(self["@full"])._occurrencesOf_((5)),(1));
- _st(self["@full"])._add_((5));
- self._assert_equals_(_st(self["@full"])._occurrencesOf_((5)),(1));
- return self}, function($ctx1) {$ctx1.fill(self,"testOccurrences",{},smalltalk.ExampleSetTest)})},
- args: [],
- source: "testOccurrences\x0a\x09self assert: (empty occurrencesOf: 0) equals: 0.\x0a\x09self assert: (full occurrencesOf: 5) equals: 1.\x0a\x09full add: 5.\x0a\x09self assert: (full occurrencesOf: 5) equals: 1",
- messageSends: ["assert:equals:", "occurrencesOf:", "add:"],
- referencedClasses: []
- }),
- smalltalk.ExampleSetTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testRemove",
- category: 'tests',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self["@full"])._remove_((5));
- self._assert_(_st(self["@full"])._includes_("abc"));
- self._deny_(_st(self["@full"])._includes_((5)));
- return self}, function($ctx1) {$ctx1.fill(self,"testRemove",{},smalltalk.ExampleSetTest)})},
- args: [],
- source: "testRemove\x0a\x09full remove: 5.\x0a\x09self assert: (full includes: #abc).\x0a\x09self deny: (full includes: 5)",
- messageSends: ["remove:", "assert:", "includes:", "deny:"],
- referencedClasses: []
- }),
- smalltalk.ExampleSetTest);
- smalltalk.addClass('SUnitAsyncTest', smalltalk.TestCase, ['flag'], 'SUnit-Tests');
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fakeError",
- category: 'helpers',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@flag"]="bad";
- self._timeout_((30));
- self["@flag"]=_st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self["@flag"]="ok";
- self["@flag"];
- return self._error_("Intentional");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((20));
- return self}, function($ctx1) {$ctx1.fill(self,"fakeError",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "fakeError\x0a\x09flag := 'bad'.\x0a\x09self timeout: 30.\x0a\x09flag := (self async: [ flag := 'ok'. self error: 'Intentional' ]) valueWithTimeout: 20",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fakeErrorFailingInTearDown",
- category: 'helpers',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@flag"]="bad";
- self._timeout_((30));
- self["@flag"]=_st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._error_("Intentional");
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((20));
- return self}, function($ctx1) {$ctx1.fill(self,"fakeErrorFailingInTearDown",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "fakeErrorFailingInTearDown\x0a\x09flag := 'bad'.\x0a\x09self timeout: 30.\x0a\x09flag := (self async: [ self error: 'Intentional' ]) valueWithTimeout: 20",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "error:"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fakeFailure",
- category: 'helpers',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@flag"]="bad";
- self._timeout_((30));
- self["@flag"]=_st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self["@flag"]="ok";
- self["@flag"];
- return self._assert_(false);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((20));
- return self}, function($ctx1) {$ctx1.fill(self,"fakeFailure",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "fakeFailure\x0a\x09flag := 'bad'.\x0a\x09self timeout: 30.\x0a\x09flag := (self async: [ flag := 'ok'. self assert: false ]) valueWithTimeout: 20",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fakeMultipleTimeoutFailing",
- category: 'helpers',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._timeout_((100));
- _st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._timeout_((20));
- return _st(self._async_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._finished();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2)})})))._valueWithTimeout_((30));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((20));
- return self}, function($ctx1) {$ctx1.fill(self,"fakeMultipleTimeoutFailing",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "fakeMultipleTimeoutFailing\x0a\x09self timeout: 100.\x0a\x09(self async: [\x0a\x09\x09self timeout: 20.\x0a\x09\x09(self async: [ self finished ]) valueWithTimeout: 30\x0a\x09]) valueWithTimeout: 20",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fakeMultipleTimeoutPassing",
- category: 'helpers',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._timeout_((20));
- _st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._timeout_((40));
- return _st(self._async_((function(){
- return smalltalk.withContext(function($ctx3) {
- return self._finished();
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2)})})))._valueWithTimeout_((20));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((10));
- return self}, function($ctx1) {$ctx1.fill(self,"fakeMultipleTimeoutPassing",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "fakeMultipleTimeoutPassing\x0a\x09self timeout: 20.\x0a\x09(self async: [\x0a\x09\x09self timeout: 40.\x0a\x09\x09(self async: [ self finished ]) valueWithTimeout: 20\x0a\x09]) valueWithTimeout: 10",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "fakeTimeout",
- category: 'helpers',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._timeout_((10));
- _st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._finished();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((20));
- return self}, function($ctx1) {$ctx1.fill(self,"fakeTimeout",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "fakeTimeout\x0a\x09self timeout: 10.\x0a\x09(self async: [ self finished ]) valueWithTimeout: 20",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "selectorSetOf:",
- category: 'private',
- fn: function (aCollection){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=_st(_st(aCollection)._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._selector();
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._asSet();
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"selectorSetOf:",{aCollection:aCollection},smalltalk.SUnitAsyncTest)})},
- args: ["aCollection"],
- source: "selectorSetOf: aCollection\x0a\x09^(aCollection collect: [:each | each selector]) asSet",
- messageSends: ["asSet", "collect:", "selector"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "setUp",
- category: 'running',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@flag"]="ok";
- return self}, function($ctx1) {$ctx1.fill(self,"setUp",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "setUp\x0a\x09flag := 'ok'",
- messageSends: [],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "tearDown",
- category: 'running',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._assert_equals_("ok",self["@flag"]);
- return self}, function($ctx1) {$ctx1.fill(self,"tearDown",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "tearDown\x0a\x09self assert: 'ok' equals: flag",
- messageSends: ["assert:equals:"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testAsyncErrorsAndFailures",
- category: 'tests',
- fn: function (){
- var self=this;
- var suite,runner,result,assertBlock;
- function $TestSuiteRunner(){return smalltalk.TestSuiteRunner||(typeof TestSuiteRunner=="undefined"?nil:TestSuiteRunner)}
- function $ResultAnnouncement(){return smalltalk.ResultAnnouncement||(typeof ResultAnnouncement=="undefined"?nil:ResultAnnouncement)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- suite=["fakeError", "fakeErrorFailingInTearDown", "fakeFailure", "testPass"]._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._class())._selector_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- runner=_st($TestSuiteRunner())._on_(suite);
- self._timeout_((200));
- result=_st(runner)._result();
- assertBlock=self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._assert_equals_(self._selectorSetOf_(_st(result)._errors()),["fakeError"]._asSet());
- self._assert_equals_(self._selectorSetOf_(_st(result)._failures()),["fakeErrorFailingInTearDown", "fakeFailure"]._asSet());
- return self._finished();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- _st(_st(runner)._announcer())._on_do_($ResultAnnouncement(),(function(ann){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(_st(ann)._result()).__eq_eq(result);
- if(smalltalk.assert($1)){
- $2=_st(_st(result)._runs()).__eq(_st(result)._total());
- return _st($2)._ifTrue_(assertBlock);
- };
- }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1)})}));
- _st(runner)._run();
- return self}, function($ctx1) {$ctx1.fill(self,"testAsyncErrorsAndFailures",{suite:suite,runner:runner,result:result,assertBlock:assertBlock},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "testAsyncErrorsAndFailures\x0a\x09| suite runner result assertBlock |\x0a\x09suite := #('fakeError' 'fakeErrorFailingInTearDown' 'fakeFailure' 'testPass') collect: [ :each | self class selector: each ].\x0a\x09runner := TestSuiteRunner on: suite.\x0a\x09self timeout: 200.\x0a\x09result := runner result.\x0a\x09assertBlock := self async: [\x0a\x09\x09self assert: (self selectorSetOf: result errors) equals: #('fakeError') asSet.\x0a\x09\x09self assert: (self selectorSetOf: result failures) equals: #('fakeErrorFailingInTearDown' 'fakeFailure') asSet.\x0a\x09\x09self finished\x0a\x09].\x0a\x09runner announcer on: ResultAnnouncement do: [:ann |\x0a\x09\x09ann result == result ifTrue: [ result runs = result total ifTrue: assertBlock ]].\x0a\x09runner run",
- messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "async:", "assert:equals:", "selectorSetOf:", "errors", "asSet", "failures", "finished", "on:do:", "ifTrue:", "=", "total", "runs", "==", "announcer", "run"],
- referencedClasses: ["TestSuiteRunner", "ResultAnnouncement"]
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testAsyncNeedsTimeout",
- category: 'tests',
- fn: function (){
- var self=this;
- function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
- return smalltalk.withContext(function($ctx1) {
- self._should_raise_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._async_((function(){
- return smalltalk.withContext(function($ctx3) {
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2)})}));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),$Error());
- self._timeout_((0));
- self._shouldnt_raise_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._async_((function(){
- return smalltalk.withContext(function($ctx3) {
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2)})}));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),$Error());
- self._finished();
- return self}, function($ctx1) {$ctx1.fill(self,"testAsyncNeedsTimeout",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "testAsyncNeedsTimeout\x0a\x09self should: [ self async: [ ] ] raise: Error.\x0a\x09self timeout: 0.\x0a\x09self shouldnt: [ self async: [ ] ] raise: Error.\x0a\x09self finished",
- messageSends: ["should:raise:", "async:", "timeout:", "shouldnt:raise:", "finished"],
- referencedClasses: ["Error"]
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testFinishedNeedsTimeout",
- category: 'tests',
- fn: function (){
- var self=this;
- function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
- return smalltalk.withContext(function($ctx1) {
- self._should_raise_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._finished();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),$Error());
- self._timeout_((0));
- self._shouldnt_raise_((function(){
- return smalltalk.withContext(function($ctx2) {
- return self._finished();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),$Error());
- return self}, function($ctx1) {$ctx1.fill(self,"testFinishedNeedsTimeout",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "testFinishedNeedsTimeout\x0a\x09self should: [ self finished ] raise: Error.\x0a\x09self timeout: 0.\x0a\x09self shouldnt: [ self finished ] raise: Error.",
- messageSends: ["should:raise:", "finished", "timeout:", "shouldnt:raise:"],
- referencedClasses: ["Error"]
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testIsAsyncReturnsCorrectValues",
- category: 'tests',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self._deny_(self._isAsync());
- self._timeout_((0));
- self._assert_(self._isAsync());
- self._finished();
- self._deny_(self._isAsync());
- return self}, function($ctx1) {$ctx1.fill(self,"testIsAsyncReturnsCorrectValues",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "testIsAsyncReturnsCorrectValues\x0a\x09self deny: self isAsync.\x0a\x09self timeout: 0.\x0a\x09self assert: self isAsync.\x0a\x09self finished.\x0a\x09self deny: self isAsync",
- messageSends: ["deny:", "isAsync", "timeout:", "assert:", "finished"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testPass",
- category: 'tests',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- self["@flag"]="bad";
- self._timeout_((10));
- self["@flag"]=_st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._assert_(true);
- self._finished();
- self["@flag"]="ok";
- return self["@flag"];
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((5));
- return self}, function($ctx1) {$ctx1.fill(self,"testPass",{},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "testPass\x0a\x09flag := 'bad'.\x0a\x09self timeout: 10.\x0a\x09flag := (self async: [ self assert: true. self finished. flag := 'ok' ]) valueWithTimeout: 5",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "assert:", "finished"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testTimeouts",
- category: 'tests',
- fn: function (){
- var self=this;
- var suite,runner,result,assertBlock;
- function $TestSuiteRunner(){return smalltalk.TestSuiteRunner||(typeof TestSuiteRunner=="undefined"?nil:TestSuiteRunner)}
- function $Set(){return smalltalk.Set||(typeof Set=="undefined"?nil:Set)}
- function $ResultAnnouncement(){return smalltalk.ResultAnnouncement||(typeof ResultAnnouncement=="undefined"?nil:ResultAnnouncement)}
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- suite=["fakeTimeout", "fakeMultipleTimeoutFailing", "fakeMultipleTimeoutPassing", "testPass"]._collect_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(self._class())._selector_(each);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- runner=_st($TestSuiteRunner())._on_(suite);
- self._timeout_((200));
- result=_st(runner)._result();
- assertBlock=self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._assert_equals_(self._selectorSetOf_(_st(result)._errors()),_st($Set())._new());
- self._assert_equals_(self._selectorSetOf_(_st(result)._failures()),["fakeMultipleTimeoutFailing", "fakeTimeout"]._asSet());
- return self._finished();
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- _st(_st(runner)._announcer())._on_do_($ResultAnnouncement(),(function(ann){
- return smalltalk.withContext(function($ctx2) {
- $1=_st(_st(ann)._result()).__eq_eq(result);
- if(smalltalk.assert($1)){
- $2=_st(_st(result)._runs()).__eq(_st(result)._total());
- return _st($2)._ifTrue_(assertBlock);
- };
- }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1)})}));
- _st(runner)._run();
- return self}, function($ctx1) {$ctx1.fill(self,"testTimeouts",{suite:suite,runner:runner,result:result,assertBlock:assertBlock},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "testTimeouts\x0a\x09| suite runner result assertBlock |\x0a\x09suite := #('fakeTimeout' 'fakeMultipleTimeoutFailing' 'fakeMultipleTimeoutPassing' 'testPass') collect: [ :each | self class selector: each ].\x0a\x09runner := TestSuiteRunner on: suite.\x0a\x09self timeout: 200.\x0a\x09result := runner result.\x0a\x09assertBlock := self async: [\x0a\x09\x09self assert: (self selectorSetOf: result errors) equals: Set new.\x0a\x09\x09self assert: (self selectorSetOf: result failures) equals: #('fakeMultipleTimeoutFailing' 'fakeTimeout') asSet.\x0a\x09\x09self finished\x0a\x09].\x0a\x09runner announcer on: ResultAnnouncement do: [:ann |\x0a\x09\x09ann result == result ifTrue: [ result runs = result total ifTrue: assertBlock ]].\x0a\x09runner run",
- messageSends: ["collect:", "selector:", "class", "on:", "timeout:", "result", "async:", "assert:equals:", "selectorSetOf:", "errors", "new", "failures", "asSet", "finished", "on:do:", "ifTrue:", "=", "total", "runs", "==", "announcer", "run"],
- referencedClasses: ["TestSuiteRunner", "Set", "ResultAnnouncement"]
- }),
- smalltalk.SUnitAsyncTest);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "testTwoAsyncPassesWithFinishedOnlyOneIsRun",
- category: 'tests',
- fn: function (){
- var self=this;
- var x;
- return smalltalk.withContext(function($ctx1) {
- self["@flag"]="bad";
- self._timeout_((10));
- x=(0);
- self["@flag"]=_st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._finished();
- self["@flag"]="ok";
- self["@flag"];
- x=_st(x).__plus((1));
- x;
- return self._assert_equals_(x,(1));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((0));
- self["@flag"]=_st(self._async_((function(){
- return smalltalk.withContext(function($ctx2) {
- self._finished();
- self["@flag"]="ok";
- self["@flag"];
- x=_st(x).__plus((1));
- x;
- return self._assert_equals_(x,(1));
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})))._valueWithTimeout_((0));
- return self}, function($ctx1) {$ctx1.fill(self,"testTwoAsyncPassesWithFinishedOnlyOneIsRun",{x:x},smalltalk.SUnitAsyncTest)})},
- args: [],
- source: "testTwoAsyncPassesWithFinishedOnlyOneIsRun\x0a\x09| x |\x0a\x09flag := 'bad'.\x0a\x09self timeout: 10.\x0a\x09x := 0.\x0a\x09flag := (self async: [ self finished. flag := 'ok'. x := x+1. self assert: x equals: 1 ]) valueWithTimeout: 0.\x0a\x09flag := (self async: [ self finished. flag := 'ok'. x := x+1. self assert: x equals: 1 ]) valueWithTimeout: 0.",
- messageSends: ["timeout:", "valueWithTimeout:", "async:", "finished", "+", "assert:equals:"],
- referencedClasses: []
- }),
- smalltalk.SUnitAsyncTest);
- });
|