Compiler-Tests.deploy.js 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. smalltalk.addPackage('Compiler-Tests', {});
  2. smalltalk.addClass('ImporterTest', smalltalk.TestCase, [], 'Compiler-Tests');
  3. smalltalk.addMethod(
  4. unescape('_chunkString'),
  5. smalltalk.method({
  6. selector: unescape('chunkString'),
  7. fn: function (){
  8. var self=this;
  9. return unescape("%21Object%20methodsFor%3A%20%27importer%20test%20method%27%21%0A%0AimporterTestMethod%0A%0A%09%5E%27success%27%0A%21%20%21%0A");
  10. return self;}
  11. }),
  12. smalltalk.ImporterTest);
  13. smalltalk.addMethod(
  14. unescape('_testImporterBug'),
  15. smalltalk.method({
  16. selector: unescape('testImporterBug'),
  17. fn: function (){
  18. var self=this;
  19. smalltalk.send(smalltalk.send((smalltalk.Importer || Importer), "_new", []), "_import_", [smalltalk.send(smalltalk.send(self, "_chunkString", []), "_readStream", [])]);
  20. (function($rec){smalltalk.send($rec, "_cr", []);return smalltalk.send($rec, "_show_", [unescape("testImporterBug%20%5B1%5D")]);})((smalltalk.Transcript || Transcript));
  21. smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((smalltalk.Object || Object), "_methodDictionary", []), "_includesKey_", ["importerTestMethod"])]);
  22. (function($rec){smalltalk.send($rec, "_cr", []);return smalltalk.send($rec, "_show_", [unescape("testImporterBug%20%5B2%5D")]);})((smalltalk.Transcript || Transcript));
  23. smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Object || Object), "_new", []), "_importerTestMethod", []), "__eq", ["success"])]);
  24. (function($rec){smalltalk.send($rec, "_cr", []);return smalltalk.send($rec, "_show_", [unescape("testImporterBug%20%5B3%5D")]);})((smalltalk.Transcript || Transcript));
  25. return self;}
  26. }),
  27. smalltalk.ImporterTest);
  28. smalltalk.addMethod(
  29. unescape('_setUp'),
  30. smalltalk.method({
  31. selector: unescape('setUp'),
  32. fn: function (){
  33. var self=this;
  34. smalltalk.send(self, "_setUp", [], smalltalk.TestCase);
  35. smalltalk.send(self, "_cleanUp", []);
  36. return self;}
  37. }),
  38. smalltalk.ImporterTest);
  39. smalltalk.addMethod(
  40. unescape('_tearDown'),
  41. smalltalk.method({
  42. selector: unescape('tearDown'),
  43. fn: function (){
  44. var self=this;
  45. smalltalk.send(self, "_tearDown", [], smalltalk.TestCase);
  46. smalltalk.send(self, "_cleanUp", []);
  47. return self;}
  48. }),
  49. smalltalk.ImporterTest);
  50. smalltalk.addMethod(
  51. unescape('_cleanUp'),
  52. smalltalk.method({
  53. selector: unescape('cleanUp'),
  54. fn: function (){
  55. var self=this;
  56. ((($receiver = smalltalk.send(smalltalk.send((smalltalk.Object || Object), "_methodDictionary", []), "_includesKey_", [smalltalk.symbolFor("importerTestMethod")])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send((smalltalk.Object || Object), "_removeCompiledMethod_", [smalltalk.send((smalltalk.Object || Object), "_methodAt_", [smalltalk.symbolFor("importerTestMethod")])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send((smalltalk.Object || Object), "_removeCompiledMethod_", [smalltalk.send((smalltalk.Object || Object), "_methodAt_", [smalltalk.symbolFor("importerTestMethod")])]);})]));
  57. return self;}
  58. }),
  59. smalltalk.ImporterTest);