1
0

Test.js 4.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. smalltalk.addPackage('Test');
  2. smalltalk.addClass('NodeTestRunner', smalltalk.Object, [], 'Test');
  3. smalltalk.addMethod(
  4. "_initialize",
  5. smalltalk.method({
  6. selector: "initialize",
  7. category: 'not yet classified',
  8. fn: function (){
  9. var self=this;
  10. return smalltalk.withContext(function($ctx1) { _st(self)._runTestSuite();
  11. return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.NodeTestRunner.klass)})},
  12. args: [],
  13. source: "initialize\x0a\x09self runTestSuite",
  14. messageSends: ["runTestSuite"],
  15. referencedClasses: []
  16. }),
  17. smalltalk.NodeTestRunner.klass);
  18. smalltalk.addMethod(
  19. "_runTestSuite",
  20. smalltalk.method({
  21. selector: "runTestSuite",
  22. category: 'not yet classified',
  23. fn: function (){
  24. var self=this;
  25. var suite,worker;
  26. return smalltalk.withContext(function($ctx1) { var $1,$2,$3;
  27. suite=_st((smalltalk.OrderedCollection || OrderedCollection))._new();
  28. _st(_st(_st((smalltalk.TestCase || TestCase))._allSubclasses())._select_((function(each){
  29. return smalltalk.withContext(function($ctx2) { return _st(_st(each)._isAbstract())._not();
  30. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._do_((function(each){
  31. return smalltalk.withContext(function($ctx2) { return _st(suite)._addAll_(_st(each)._buildSuite());
  32. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  33. worker=_st((smalltalk.TestSuiteRunner || TestSuiteRunner))._on_(suite);
  34. _st(_st(worker)._announcer())._on_do_((smalltalk.ResultAnnouncement || ResultAnnouncement),(function(ann){
  35. var result;
  36. return smalltalk.withContext(function($ctx2) { result=_st(ann)._result();
  37. result;
  38. $1=_st(_st(result)._runs()).__eq(_st(result)._total());
  39. if(smalltalk.assert($1)){
  40. _st(console)._log_(_st(_st(_st(_st(_st(_st(_st(result)._runs())._asString()).__comma(" tests run, ")).__comma(_st(_st(_st(result)._failures())._size())._asString())).__comma(" failures, ")).__comma(_st(_st(_st(result)._errors())._size())._asString())).__comma(" errors."));
  41. $2=_st(_st(result)._failures())._isEmpty();
  42. if(! smalltalk.assert($2)){
  43. _st(self)._throw_(_st(_st(_st(_st(_st(_st(_st(result)._failures())._first())._class())._name()).__comma(" >> ")).__comma(_st(_st(_st(result)._failures())._first())._selector())).__comma(" is failing!"));
  44. };
  45. $3=_st(_st(result)._errors())._isEmpty();
  46. if(! smalltalk.assert($3)){
  47. return _st(self)._throw_(_st(_st(_st(_st(_st(_st(_st(result)._errors())._first())._class())._name()).__comma(" >> ")).__comma(_st(_st(_st(result)._errors())._first())._selector())).__comma(" has errors!"));
  48. };
  49. };
  50. }, function($ctx2) {$ctx2.fillBlock({ann:ann,result:result},$ctx1)})}));
  51. _st(worker)._run();
  52. return self}, function($ctx1) {$ctx1.fill(self,"runTestSuite",{suite:suite,worker:worker},smalltalk.NodeTestRunner.klass)})},
  53. args: [],
  54. source: "runTestSuite\x0a\x09| suite worker |\x0a\x0a\x09suite := OrderedCollection new.\x0a (TestCase allSubclasses select: [ :each | each isAbstract not ])\x0a\x09do: [ :each | suite addAll: each buildSuite ].\x0a\x0a\x09worker := TestSuiteRunner on: suite.\x0a\x09worker announcer on: ResultAnnouncement do:\x0a\x09[ :ann | | result |\x0a \x09result := ann result.\x0a result runs = result total ifTrue: [\x0a\x09 console log: result runs asString, ' tests run, ', result failures size asString, ' failures, ', result errors size asString, ' errors.'.\x0a\x0a result failures isEmpty ifFalse: [\x0a self throw: result failures first class name, ' >> ', result failures first selector, ' is failing!' ].\x0a result errors isEmpty ifFalse: [\x0a self throw: result errors first class name, ' >> ', result errors first selector, ' has errors!' ].\x0a ]].\x0a worker run",
  55. messageSends: ["new", "do:", "addAll:", "buildSuite", "select:", "not", "isAbstract", "allSubclasses", "on:", "on:do:", "result", "ifTrue:", "log:", ",", "asString", "size", "errors", "failures", "runs", "ifFalse:", "throw:", "selector", "first", "name", "class", "isEmpty", "=", "total", "announcer", "run"],
  56. referencedClasses: ["OrderedCollection", "TestCase", "TestSuiteRunner", "ResultAnnouncement"]
  57. }),
  58. smalltalk.NodeTestRunner.klass);