12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862 |
- define(["amber/boot", "require", "amber/core/Kernel-Tests", "amber/core/SUnit"], function($boot,requirejs){"use strict";
- var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
- var $pkg = $core.addPackage("Compiler-Tests");
- $pkg.innerEval = function (expr) { return eval(expr); };
- $pkg.transport = {"type":"amd","amdNamespace":"amber/core"};
- $core.addClass("ASTMethodRunningTest", $globals.TestCase, ["receiver", "arguments"], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "arguments",
- protocol: "accessing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "arguments\x0a\x09^ arguments",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: []
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- return $self.arguments;
- }; }),
- $globals.ASTMethodRunningTest);
- $core.addMethod(
- $core.method({
- selector: "receiver",
- protocol: "accessing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "receiver\x0a\x09^ receiver",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: []
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- return $self.receiver;
- }; }),
- $globals.ASTMethodRunningTest);
- $core.addMethod(
- $core.method({
- selector: "setUp",
- protocol: "initialization",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "setUp\x0a\x09arguments := #().\x0a\x09receiver := DoIt new",
- referencedClasses: ["DoIt"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.arguments=[];
- $self.receiver=$recv($globals.DoIt)._new();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"setUp",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTMethodRunningTest);
- $core.addMethod(
- $core.method({
- selector: "should:class:receiver:return:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass", "anObject", "aResult"],
- source: "should: aString class: aClass receiver: anObject return: aResult\x0a\x09receiver := anObject.\x0a\x09self while: aString inClass: aClass should: [ :runBlock |\x0a\x09\x09self assert: runBlock value equals: aResult ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["while:inClass:should:", "assert:equals:", "value"]
- }, function ($methodClass){ return function (aString,aClass,anObject,aResult){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=anObject;
- $self._while_inClass_should_(aString,aClass,(function(runBlock){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $self._assert_equals_($recv(runBlock)._value(),aResult);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({runBlock:runBlock},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"should:class:receiver:return:",{aString:aString,aClass:aClass,anObject:anObject,aResult:aResult})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTMethodRunningTest);
- $core.addMethod(
- $core.method({
- selector: "should:receiver:raise:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "anObject", "anErrorClass"],
- source: "should: aString receiver: anObject raise: anErrorClass\x0a\x09receiver := anObject.\x0a\x09self while: aString should: [ :runBlock |\x0a\x09\x09self should: runBlock raise: anErrorClass ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["while:should:", "should:raise:"]
- }, function ($methodClass){ return function (aString,anObject,anErrorClass){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=anObject;
- $self._while_should_(aString,(function(runBlock){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $self._should_raise_(runBlock,anErrorClass);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({runBlock:runBlock},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"should:receiver:raise:",{aString:aString,anObject:anObject,anErrorClass:anErrorClass})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTMethodRunningTest);
- $core.addMethod(
- $core.method({
- selector: "should:receiver:return:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "anObject", "aResult"],
- source: "should: aString receiver: anObject return: aResult\x0a\x09receiver := anObject.\x0a\x09self should: aString return: aResult",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (aString,anObject,aResult){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=anObject;
- $self._should_return_(aString,aResult);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"should:receiver:return:",{aString:aString,anObject:anObject,aResult:aResult})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTMethodRunningTest);
- $core.addMethod(
- $core.method({
- selector: "should:return:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "anObject"],
- source: "should: aString return: anObject\x0a\x09self while: aString should: [ :runBlock |\x0a\x09\x09self assert: runBlock value equals: anObject ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["while:should:", "assert:equals:", "value"]
- }, function ($methodClass){ return function (aString,anObject){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._while_should_(aString,(function(runBlock){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $self._assert_equals_($recv(runBlock)._value(),anObject);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({runBlock:runBlock},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"should:return:",{aString:aString,anObject:anObject})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTMethodRunningTest);
- $core.addClass("AbstractCompilerTest", $globals.ASTMethodRunningTest, [], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "testAfterInliningNonLocalBlockReturnIndexSend",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testAfterInliningNonLocalBlockReturnIndexSend\x0a\x09self should: 'foo [ ^ true ifTrue: [ self class ] ] value. self class' return: DoIt.",
- referencedClasses: ["DoIt"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo [ ^ true ifTrue: [ self class ] ] value. self class",$globals.DoIt);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testAfterInliningNonLocalBlockReturnIndexSend",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testAfterInliningNonLocalBlockReturnSuperSend",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testAfterInliningNonLocalBlockReturnSuperSend\x0a\x09self should: 'foo [ ^ true ifTrue: [ super class ] ] value' return: DoIt.",
- referencedClasses: ["DoIt"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo [ ^ true ifTrue: [ super class ] ] value",$globals.DoIt);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testAfterInliningNonLocalBlockReturnSuperSend",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testAssignment",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testAssignment\x0a\x09self should: 'foo | a | a := true ifTrue: [ 1 ]. ^ a' return: 1.\x0a\x09self should: 'foo | a | a := false ifTrue: [ 1 ]. ^ a' return: nil.\x0a\x0a\x09self should: 'foo | a | ^ a := true ifTrue: [ 1 ]' return: 1",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo | a | a := true ifTrue: [ 1 ]. ^ a",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo | a | a := false ifTrue: [ 1 ]. ^ a",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo | a | ^ a := true ifTrue: [ 1 ]",(1));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testAssignment",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testBackslashSelectors",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testBackslashSelectors\x0a\x09\x0a\x09self should: '\x5c arg ^ 4' return: 4.\x0a\x09self should: '\x5c\x5c arg ^ 42' return: 42",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("\x5c arg ^ 4",(4))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("\x5c\x5c arg ^ 42",(42));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testBackslashSelectors",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testBlockReturn",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testBlockReturn\x0a\x09self should: 'foo ^ #(1 2 3) collect: [ :each | true ifTrue: [ each + 1 ] ]' return: #(2 3 4).\x0a\x09self should: 'foo ^ #(1 2 3) collect: [ :each | false ifFalse: [ each + 1 ] ]' return: #(2 3 4).\x0a\x09self should: 'foo ^ #(1 2 3) collect: [ :each | each odd ifTrue: [ each + 1 ] ifFalse: [ each - 1 ] ]' return: #(2 1 4).",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ #(1 2 3) collect: [ :each | true ifTrue: [ each + 1 ] ]",[(2), (3), (4)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ #(1 2 3) collect: [ :each | false ifFalse: [ each + 1 ] ]",[(2), (3), (4)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ #(1 2 3) collect: [ :each | each odd ifTrue: [ each + 1 ] ifFalse: [ each - 1 ] ]",[(2), (1), (4)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testBlockReturn",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testCascades",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testCascades\x0a\x09\x0a\x09self should: 'foo ^ Array new add: 3; add: 4; yourself' return: #(3 4)",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo ^ Array new add: 3; add: 4; yourself",[(3), (4)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testCascades",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testCascadesInDynamicArray",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testCascadesInDynamicArray\x0a\x09self should: 'foo | x | x := 1. ^ {x. [x:=2] value; in: [x]}' return: #(1 2)",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo | x | x := 1. ^ {x. [x:=2] value; in: [x]}",[(1), (2)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testCascadesInDynamicArray",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testCascadesInDynamicDictioary",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testCascadesInDynamicDictioary\x0a\x09self should: 'foo | x | x := 1. ^ #{''one'' -> x. ''two'' -> ([x:=2] value; in: [x])}' return: #{'one' -> 1. 'two' -> 2}",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo | x | x := 1. ^ #{'one' -> x. 'two' -> ([x:=2] value; in: [x])}",$globals.HashedCollection._newFromPairs_(["one",(1),"two",(2)]));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testCascadesInDynamicDictioary",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testCascadesInSend",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testCascadesInSend\x0a\x09self should: 'foo | x | x := 1. ^ Array with: x with: ([x:=2] value; in: [x])' return: #(1 2)",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo | x | x := 1. ^ Array with: x with: ([x:=2] value; in: [x])",[(1), (2)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testCascadesInSend",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testCascadesWithInlining",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testCascadesWithInlining\x0a\x09\x0a\x09self should: 'foo ^ true class; ifTrue: [ 1 ] ifFalse: [ 2 ]' return: 1.\x0a\x09self should: 'foo ^ false class; ifTrue: [ 1 ] ifFalse: [ 2 ]' return: 2",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ true class; ifTrue: [ 1 ] ifFalse: [ 2 ]",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ false class; ifTrue: [ 1 ] ifFalse: [ 2 ]",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testCascadesWithInlining",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testDynamicArrayElementsOrdered",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDynamicArrayElementsOrdered\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ { x. x := 2 }\x0a' return: #(1 2).\x0a\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ { x. true ifTrue: [ x := 2 ] }\x0a' return: #(1 2).",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ { x. x := 2 }\x0a",[(1), (2)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ { x. true ifTrue: [ x := 2 ] }\x0a",[(1), (2)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDynamicArrayElementsOrdered",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testDynamicDictionaryElementsOrdered",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDynamicDictionaryElementsOrdered\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := ''foo''.\x0a\x09^ #{ x->1. ''bar''->(true ifTrue: [ 2 ]) }\x0a' return: #{'foo'->1. 'bar'->2}.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo\x0a\x09| x |\x0a\x09x := 'foo'.\x0a\x09^ #{ x->1. 'bar'->(true ifTrue: [ 2 ]) }\x0a",$globals.HashedCollection._newFromPairs_(["foo",(1),"bar",(2)]));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDynamicDictionaryElementsOrdered",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testDynamicDictionaryWithMoreArrows",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDynamicDictionaryWithMoreArrows\x0a\x09self should: 'foo ^ #{1->2->3}' return: (HashedCollection with: 1->2->3)",
- referencedClasses: ["HashedCollection"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:", "with:", "->"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo ^ #{1->2->3}",$recv($globals.HashedCollection)._with_([$recv((1).__minus_gt((2))).__minus_gt((3))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=1
- //>>excludeEnd("ctx");
- ][0]));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDynamicDictionaryWithMoreArrows",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testGlobalVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testGlobalVar\x0a\x09self should: 'foo ^ eval class' return: BlockClosure.\x0a\x09self should: 'foo ^ Math cos: 0' return: 1.\x0a\x09self should: 'foo ^ NonExistingVar' return: nil",
- referencedClasses: ["BlockClosure"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ eval class",$globals.BlockClosure)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ Math cos: 0",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ NonExistingVar",nil);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testGlobalVar",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testInnerTemporalDependentElementsOrdered",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testInnerTemporalDependentElementsOrdered\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := Array.\x0a\x09^ x with: ''foo''->x with: ''bar''->(x := 2)\x0a' return: {'foo'->Array. 'bar'->2}.\x0a\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := Array.\x0a\x09^ x with: ''foo''->x with: ''bar''->(true ifTrue: [ x := 2 ])\x0a' return: {'foo'->Array. 'bar'->2}.\x0a\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ Array with: ''foo''->x with: ''bar''->(true ifTrue: [ x := 2 ])\x0a' return: {'foo'->1. 'bar'->2}.\x0a\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ { ''foo''->x. ''bar''->(true ifTrue: [ x := 2 ]) }\x0a' return: {'foo'->1. 'bar'->2}.\x0a\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ #{ ''foo''->x. ''bar''->(true ifTrue: [ x := 2 ]) }\x0a' return: #{'foo'->1. 'bar'->2}.",
- referencedClasses: ["Array"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:", "->"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo\x0a\x09| x |\x0a\x09x := Array.\x0a\x09^ x with: 'foo'->x with: 'bar'->(x := 2)\x0a",[["foo".__minus_gt($globals.Array)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=1
- //>>excludeEnd("ctx");
- ][0],["bar".__minus_gt((2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=2
- //>>excludeEnd("ctx");
- ][0]])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo\x0a\x09| x |\x0a\x09x := Array.\x0a\x09^ x with: 'foo'->x with: 'bar'->(true ifTrue: [ x := 2 ])\x0a",[["foo".__minus_gt($globals.Array)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=3
- //>>excludeEnd("ctx");
- ][0],["bar".__minus_gt((2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=4
- //>>excludeEnd("ctx");
- ][0]])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ Array with: 'foo'->x with: 'bar'->(true ifTrue: [ x := 2 ])\x0a",[["foo".__minus_gt((1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=5
- //>>excludeEnd("ctx");
- ][0],["bar".__minus_gt((2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=6
- //>>excludeEnd("ctx");
- ][0]])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ { 'foo'->x. 'bar'->(true ifTrue: [ x := 2 ]) }\x0a",[["foo".__minus_gt((1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["->"]=7
- //>>excludeEnd("ctx");
- ][0],"bar".__minus_gt((2))])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=4
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ #{ 'foo'->x. 'bar'->(true ifTrue: [ x := 2 ]) }\x0a",$globals.HashedCollection._newFromPairs_(["foo",(1),"bar",(2)]));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testInnerTemporalDependentElementsOrdered",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testLexicalScope",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testLexicalScope\x0a\x09self should: 'foo | a | a := 1. [ a := 2 ] value. ^ a' return: 2",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo | a | a := 1. [ a := 2 ] value. ^ a",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testLexicalScope",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testLiterals",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testLiterals\x0a\x09self should: 'foo ^ 1' return: 1.\x0a\x09self should: 'foo ^ ''hello''' return: 'hello'.\x0a\x09self should: 'foo ^ #(1 2 3 4)' return: #(1 2 3 4).\x0a\x09self should: 'foo ^ {1. [:x | x ] value: 2. 3. [4] value}' return: #(1 2 3 4).\x0a\x09self should: 'foo ^ true' return: true.\x0a\x09self should: 'foo ^ false' return: false.\x0a\x09self should: 'foo ^ #{1->2. 3->4}' return: #{1->2. 3->4}.\x0a\x09self should: 'foo ^ #hello' return: #hello.\x0a\x09self should: 'foo ^ $h' return: 'h'.\x0a\x09self should: 'foo ^ -123.456' return: -123.456.\x0a\x09self should: 'foo ^ -2.5e4' return: -25000.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ 1",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ 'hello'","hello")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ #(1 2 3 4)",[(1), (2), (3), (4)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ {1. [:x | x ] value: 2. 3. [4] value}",[(1), (2), (3), (4)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=4
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ true",true)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=5
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ false",false)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=6
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ #{1->2. 3->4}",$globals.HashedCollection._newFromPairs_([(1),(2),(3),(4)]))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=7
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ #hello","hello")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=8
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ $h","h")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=9
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ -123.456",(-123.456))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=10
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ -2.5e4",(-25000));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testLiterals",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testLocalReturn",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testLocalReturn\x0a\x09self should: 'foo ^ 1' return: 1.\x0a\x09self should: 'foo ^ 1 + 1' return: 2.\x0a\x09self should: 'foo ' return: receiver.\x0a\x09self should: 'foo self asString' return: receiver.\x0a\x09self should: 'foo | a b | a := 1. b := 2. ^ a + b' return: 3",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ 1",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ 1 + 1",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ",$self.receiver)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo self asString",$self.receiver)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=4
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo | a b | a := 1. b := 2. ^ a + b",(3));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testLocalReturn",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testMessageSends",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMessageSends\x0a\x09self should: 'foo ^ 1 asString' return: '1'.\x0a\x0a\x09self should: 'foo ^ 1 + 1' return: 2.\x0a\x09self should: 'foo ^ 1 + 2 * 3' return: 9.\x0a\x0a\x09self should: 'foo ^ 1 to: 3' return: #(1 2 3).\x0a\x09self should: 'foo ^ 1 to: 5 by: 2' return: #(1 3 5)",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ 1 asString","1")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ 1 + 1",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ 1 + 2 * 3",(9))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ 1 to: 3",[(1), (2), (3)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=4
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ 1 to: 5 by: 2",[(1), (3), (5)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMessageSends",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testMultipleSequences",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMultipleSequences\x0a\x09self should: 'foo | a b c | a := 2. b := 3. c := a + b. ^ c * 6' return: 30",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo | a b c | a := 2. b := 3. c := a + b. ^ c * 6",(30));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMultipleSequences",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testMutableLiterals",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMutableLiterals\x0a\x09\x22Mutable literals must be aliased in cascades.\x0a\x09See https://lolg.it/amber/amber/issues/428\x22\x0a\x09\x0a\x09self \x0a\x09\x09should: 'foo ^ #( 1 2 ) at: 1 put: 3; yourself' \x0a\x09\x09return: #(3 2)",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo ^ #( 1 2 ) at: 1 put: 3; yourself",[(3), (2)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMutableLiterals",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testNestedIfTrue",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNestedIfTrue\x0a\x09self should: 'foo ^ true ifTrue: [ false ifFalse: [ 1 ] ]' return: 1.\x0a\x09self should: 'foo ^ true ifTrue: [ false ifTrue: [ 1 ] ]' return: nil.\x0a\x0a\x09self should: 'foo true ifTrue: [ false ifFalse: [ ^ 1 ] ]' return: 1.\x0a\x09self should: 'foo true ifTrue: [ false ifTrue: [ ^ 1 ] ]' return: receiver.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ true ifTrue: [ false ifFalse: [ 1 ] ]",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ true ifTrue: [ false ifTrue: [ 1 ] ]",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo true ifTrue: [ false ifFalse: [ ^ 1 ] ]",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo true ifTrue: [ false ifTrue: [ ^ 1 ] ]",$self.receiver);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNestedIfTrue",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testNestedSends",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNestedSends\x0a\x09self should: 'foo ^ (Point x: (Point x: 2 y: 3) y: 4) asString' return: (Point x: (2@3) y: 4) asString",
- referencedClasses: ["Point"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:", "asString", "x:y:", "@"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo ^ (Point x: (Point x: 2 y: 3) y: 4) asString",$recv($recv($globals.Point)._x_y_((2).__at((3)),(4)))._asString());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNestedSends",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testNilPerform",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNilPerform\x0a\x09self should: 'foo ^ nil perform: #yourself' return: nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo ^ nil perform: #yourself",nil);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNilPerform",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testNonLocalReturn",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNonLocalReturn\x0a\x09self should: 'foo [ ^ 1 ] value' return: 1.\x0a\x09self should: 'foo [ ^ 1 + 1 ] value' return: 2.\x0a\x09self should: 'foo | a b | a := 1. b := 2. [ ^ a + b ] value. self halt' return: 3.\x0a\x09self should: 'foo [ :x | ^ x + x ] value: 4. ^ 2' return: 8",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo [ ^ 1 ] value",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo [ ^ 1 + 1 ] value",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo | a b | a := 1. b := 2. [ ^ a + b ] value. self halt",(3))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo [ :x | ^ x + x ] value: 4. ^ 2",(8));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNonLocalReturn",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testPascalCaseGlobal",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testPascalCaseGlobal\x0a\x09self should: 'foo ^Object' return: (Smalltalk globals at: 'Object').\x0a\x09self should: 'foo ^NonExistent' return: nil",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:", "at:", "globals"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^Object",$recv($recv($globals.Smalltalk)._globals())._at_("Object"))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^NonExistent",nil);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testPascalCaseGlobal",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testPragmaJSStatement",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testPragmaJSStatement\x0a\x09self should: 'foo < inlineJS: ''return 2+3'' >' return: 5",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo < inlineJS: 'return 2+3' >",(5));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testPragmaJSStatement",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testReceiverEvaluatedOnceInSpecials",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testReceiverEvaluatedOnceInSpecials\x0a\x09self should: 'foo |x| x := 1. ^ {[ x := x+1 ] value ifNil: []. x}' return: {2. 2}.\x0a\x09self should: 'foo |xs| xs := {nil. nil}. ^ {[ xs removeLast ] value ifNotNil: []. xs}' return: {nil. {nil}}.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo |x| x := 1. ^ {[ x := x+1 ] value ifNil: []. x}",[(2),(2)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo |xs| xs := {nil. nil}. ^ {[ xs removeLast ] value ifNotNil: []. xs}",[nil,[nil]]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testReceiverEvaluatedOnceInSpecials",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testRegression1242",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testRegression1242\x0a\x09self should: '\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := nil ifNil: [].\x0a\x09\x09\x09^ x\x0a\x09' return: nil.\x0a\x09\x0a\x09self should: '\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := 1 ifNotNil: [].\x0a\x09\x09\x09^ x\x0a\x09' return: nil.\x0a\x09\x0a\x09self should: '\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := false ifFalse: [].\x0a\x09\x09\x09^ x\x0a\x09' return: nil.\x0a\x09\x0a\x09self should: '\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := true ifTrue: [].\x0a\x09\x09\x09^ x\x0a\x09' return: nil.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := nil ifNil: [].\x0a\x09\x09\x09^ x\x0a\x09",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := 1 ifNotNil: [].\x0a\x09\x09\x09^ x\x0a\x09",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := false ifFalse: [].\x0a\x09\x09\x09^ x\x0a\x09",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("\x0a\x09\x09foo\x0a\x09\x09\x09|x|\x0a\x09\x09\x09x := 2.\x0a\x09\x09\x09x := true ifTrue: [].\x0a\x09\x09\x09^ x\x0a\x09",nil);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testRegression1242",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testRegression1242ForReturn",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testRegression1242ForReturn\x0a\x09self should: 'foo [ ^ nil ifNil: [] ] value' return: nil.\x0a\x09self should: 'foo [ ^ 1 ifNotNil: [] ] value' return: nil.\x0a\x09self should: 'foo [ ^ false ifFalse: [] ] value' return: nil.\x0a\x09self should: 'foo [ ^ true ifTrue: [] ] value' return: nil.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo [ ^ nil ifNil: [] ] value",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo [ ^ 1 ifNotNil: [] ] value",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo [ ^ false ifFalse: [] ] value",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo [ ^ true ifTrue: [] ] value",nil);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testRegression1242ForReturn",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testRegression1244",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testRegression1244\x0a\x09self should: 'foo [ ^ true ifTrue: [1] ifFalse: [2] ] value' return: 1",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo [ ^ true ifTrue: [1] ifFalse: [2] ] value",(1));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testRegression1244",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testRootSuperSend",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testRootSuperSend\x0a\x09self \x0a\x09\x09should: 'foo ^ super class' \x0a\x09\x09receiver: ProtoObject new\x0a\x09\x09raise: MessageNotUnderstood",
- referencedClasses: ["ProtoObject", "MessageNotUnderstood"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:receiver:raise:", "new"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_receiver_raise_("foo ^ super class",$recv($globals.ProtoObject)._new(),$globals.MessageNotUnderstood);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testRootSuperSend",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testSendReceiverAndArgumentsOrdered",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testSendReceiverAndArgumentsOrdered\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ Array with: x with: (true ifTrue: [ x := 2 ])\x0a' return: #(1 2).\x0a\x0a\x09self should: 'foo\x0a\x09| x |\x0a\x09x := Array.\x0a\x09^ x with: x with: (true ifTrue: [ x := 2 ])\x0a' return: {Array. 2}.",
- referencedClasses: ["Array"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo\x0a\x09| x |\x0a\x09x := 1.\x0a\x09^ Array with: x with: (true ifTrue: [ x := 2 ])\x0a",[(1), (2)])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo\x0a\x09| x |\x0a\x09x := Array.\x0a\x09^ x with: x with: (true ifTrue: [ x := 2 ])\x0a",[$globals.Array,(2)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testSendReceiverAndArgumentsOrdered",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testSuperSend",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testSuperSend\x0a\x09self \x0a\x09\x09should: 'foo ^ super isBoolean' \x0a\x09\x09receiver: true\x0a\x09\x09return: false",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:receiver:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_receiver_return_("foo ^ super isBoolean",true,false);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testSuperSend",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testSuperSend2",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testSuperSend2\x0a\x09self \x0a\x09\x09should: 'foo ^ super isNil'\x0a\x09\x09receiver: nil\x0a\x09\x09return: false",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:receiver:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_receiver_return_("foo ^ super isNil",nil,false);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testSuperSend2",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testSuperSend3",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testSuperSend3\x0a\x09self \x0a\x09\x09should: 'doo ^ super isNil'\x0a\x09\x09class: Object\x0a\x09\x09receiver: nil\x0a\x09\x09return: false",
- referencedClasses: ["Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:class:receiver:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_class_receiver_return_("doo ^ super isNil",$globals.Object,nil,false);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testSuperSend3",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testSuperSend4",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testSuperSend4\x0a\x09self \x0a\x09\x09should: 'foo ^ super asJavaScriptObject'\x0a\x09\x09receiver: 'me'\x0a\x09\x09return: #('m' 'e')",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:receiver:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_receiver_return_("foo ^ super asJavaScriptObject","me",["m", "e"]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testSuperSend4",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testSuperSend5",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testSuperSend5\x0a\x09self \x0a\x09\x09should: 'foo [super addLast: 4] on: Error do: [ self add: 5 ]. ^ self'\x0a\x09\x09class: SequenceableCollection\x0a\x09\x09receiver: #(1 2 3)\x0a\x09\x09return: #(1 2 3 5)",
- referencedClasses: ["SequenceableCollection"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:class:receiver:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_class_receiver_return_("foo [super addLast: 4] on: Error do: [ self add: 5 ]. ^ self",$globals.SequenceableCollection,[(1), (2), (3)],[(1), (2), (3), (5)]);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testSuperSend5",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testSuperSend6",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testSuperSend6\x0a\x09self \x0a\x09\x09should: 'foo ^ super ifTrue: [ true ] ifFalse: [ false ]' \x0a\x09\x09receiver: true\x0a\x09\x09raise: Error",
- referencedClasses: ["Error"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:receiver:raise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_receiver_raise_("foo ^ super ifTrue: [ true ] ifFalse: [ false ]",true,$globals.Error);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testSuperSend6",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testTempVariables",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testTempVariables\x0a\x09self should: 'foo | a | ^ a' return: nil.\x0a\x09self should: 'foo | AVariable | ^ AVariable' return: nil.\x0a\x09self should: 'foo | a b c | ^ c' return: nil.\x0a\x09self should: 'foo | a | [ | d | ^ d ] value' return: nil.\x0a\x09\x0a\x09self should: 'foo | a | a:= 1. ^ a' return: 1.\x0a\x09self should: 'foo | AVariable | AVariable := 1. ^ AVariable' return: 1.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo | a | ^ a",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo | AVariable | ^ AVariable",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo | a b c | ^ c",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo | a | [ | d | ^ d ] value",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=4
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo | a | a:= 1. ^ a",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=5
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo | AVariable | AVariable := 1. ^ AVariable",(1));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testTempVariables",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testThisContext",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testThisContext\x0a\x09self should: 'foo ^ [ thisContext ] value outerContext == thisContext' return: true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._should_return_("foo ^ [ thisContext ] value outerContext == thisContext",true);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testThisContext",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testUnknownPragma",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testUnknownPragma\x0a\x09self should: 'foo < fooBar: ''return 2+3'' > | x | ^ x := 6' return: 6.\x0a\x09self should: 'foo | x | < fooBar: ''return 2+3'' > ^ x := 6' return: 6",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo < fooBar: 'return 2+3' > | x | ^ x := 6",(6))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo | x | < fooBar: 'return 2+3' > ^ x := 6",(6));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testUnknownPragma",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifFalse",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifFalse\x0a\x09self should: 'foo true ifFalse: [ ^ 1 ]' return: receiver.\x0a\x09self should: 'foo false ifFalse: [ ^ 2 ]' return: 2.\x0a\x09\x0a\x09self should: 'foo ^ true ifFalse: [ 1 ]' return: nil.\x0a\x09self should: 'foo ^ false ifFalse: [ 2 ]' return: 2.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo true ifFalse: [ ^ 1 ]",$self.receiver)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo false ifFalse: [ ^ 2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ true ifFalse: [ 1 ]",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ false ifFalse: [ 2 ]",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifFalse",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifFalseIfTrue",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifFalseIfTrue\x0a\x09self should: 'foo true ifFalse: [ ^ 1 ] ifTrue: [ ^ 2 ]' return: 2.\x0a\x09self should: 'foo false ifFalse: [ ^ 2 ] ifTrue: [ ^1 ]' return: 2.\x0a\x09\x0a\x09self should: 'foo ^ true ifFalse: [ 1 ] ifTrue: [ 2 ]' return: 2.\x0a\x09self should: 'foo ^ false ifFalse: [ 2 ] ifTrue: [ 1 ]' return: 2.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo true ifFalse: [ ^ 1 ] ifTrue: [ ^ 2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo false ifFalse: [ ^ 2 ] ifTrue: [ ^1 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ true ifFalse: [ 1 ] ifTrue: [ 2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ false ifFalse: [ 2 ] ifTrue: [ 1 ]",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifFalseIfTrue",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifNil",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifNil\x0a\x09self should: 'foo ^ 1 ifNil: [ 2 ]' return: 1.\x0a\x09self should: 'foo ^ nil ifNil: [ 2 ]' return: 2.\x0a\x0a\x09self should: 'foo 1 ifNil: [ ^ 2 ]' return: receiver.\x0a\x09self should: 'foo nil ifNil: [ ^ 2 ]' return: 2.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ 1 ifNil: [ 2 ]",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ nil ifNil: [ 2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo 1 ifNil: [ ^ 2 ]",$self.receiver)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo nil ifNil: [ ^ 2 ]",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifNil",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifNilIfNotNil",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifNilIfNotNil\x0a\x09self should: 'foo ^ 1 ifNil: [ 2 ] ifNotNil: [ 3 ]' return: 3.\x0a\x09self should: 'foo ^ nil ifNil: [ 2 ] ifNotNil: [ 3 ]' return: 2.\x0a\x0a\x09self should: 'foo 1 ifNil: [ ^ 2 ] ifNotNil: [ ^3 ]' return: 3.\x0a\x09self should: 'foo nil ifNil: [ ^ 2 ] ifNotNil: [ ^3 ]' return: 2.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ 1 ifNil: [ 2 ] ifNotNil: [ 3 ]",(3))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ nil ifNil: [ 2 ] ifNotNil: [ 3 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo 1 ifNil: [ ^ 2 ] ifNotNil: [ ^3 ]",(3))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo nil ifNil: [ ^ 2 ] ifNotNil: [ ^3 ]",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifNilIfNotNil",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifNotNil",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifNotNil\x0a\x09self should: 'foo ^ 1 ifNotNil: [ 2 ]' return: 2.\x0a\x09self should: 'foo ^ nil ifNotNil: [ 2 ]' return: nil.\x0a\x0a\x09self should: 'foo 1 ifNotNil: [ ^ 2 ]' return: 2.\x0a\x09self should: 'foo nil ifNotNil: [ ^ 2 ]' return: receiver.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ 1 ifNotNil: [ 2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ nil ifNotNil: [ 2 ]",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo 1 ifNotNil: [ ^ 2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo nil ifNotNil: [ ^ 2 ]",$self.receiver);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifNotNil",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifNotNilWithArgument",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifNotNilWithArgument\x0a\x09self should: 'foo ^ 1 ifNotNil: [ :val | val + 2 ]' return: 3.\x0a\x09self should: 'foo ^ nil ifNotNil: [ :val | val + 2 ]' return: nil.\x0a\x09\x0a\x09self should: 'foo ^ 1 ifNil: [ 5 ] ifNotNil: [ :val | val + 2 ]' return: 3.\x0a\x09self should: 'foo ^ nil ifNil: [ 5 ] ifNotNil: [ :val | val + 2 ]' return: 5.\x0a\x09\x0a\x09self should: 'foo ^ 1 ifNotNil: [ :val | val + 2 ] ifNil: [ 5 ]' return: 3.\x0a\x09self should: 'foo ^ nil ifNotNil: [ :val | val + 2 ] ifNil: [ 5 ]' return: 5",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo ^ 1 ifNotNil: [ :val | val + 2 ]",(3))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ nil ifNotNil: [ :val | val + 2 ]",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ 1 ifNil: [ 5 ] ifNotNil: [ :val | val + 2 ]",(3))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ nil ifNil: [ 5 ] ifNotNil: [ :val | val + 2 ]",(5))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=4
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ 1 ifNotNil: [ :val | val + 2 ] ifNil: [ 5 ]",(3))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=5
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ nil ifNotNil: [ :val | val + 2 ] ifNil: [ 5 ]",(5));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifNotNilWithArgument",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifTrue",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifTrue\x0a\x09self should: 'foo false ifTrue: [ ^ 1 ]' return: receiver.\x0a\x09self should: 'foo true ifTrue: [ ^ 2 ]' return: 2.\x0a\x09\x0a\x09self should: 'foo ^ false ifTrue: [ 1 ]' return: nil.\x0a\x09self should: 'foo ^ true ifTrue: [ 2 ]' return: 2.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo false ifTrue: [ ^ 1 ]",$self.receiver)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo true ifTrue: [ ^ 2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ false ifTrue: [ 1 ]",nil)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ true ifTrue: [ 2 ]",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifTrue",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "testifTrueIfFalse",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testifTrueIfFalse\x0a\x09self should: 'foo false ifTrue: [ ^ 1 ] ifFalse: [ ^2 ]' return: 2.\x0a\x09self should: 'foo true ifTrue: [ ^ 1 ] ifFalse: [ ^ 2 ]' return: 1.\x0a\x09\x0a\x09self should: 'foo ^ false ifTrue: [ 2 ] ifFalse: [ 1 ]' return: 1.\x0a\x09self should: 'foo ^ true ifTrue: [ 2 ] ifFalse: [ 1 ]' return: 2.",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._should_return_("foo false ifTrue: [ ^ 1 ] ifFalse: [ ^2 ]",(2))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo true ifTrue: [ ^ 1 ] ifFalse: [ ^ 2 ]",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_return_("foo ^ false ifTrue: [ 2 ] ifFalse: [ 1 ]",(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["should:return:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._should_return_("foo ^ true ifTrue: [ 2 ] ifFalse: [ 1 ]",(2));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testifTrueIfFalse",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest);
- $core.addMethod(
- $core.method({
- selector: "isAbstract",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isAbstract\x0a\x09^ self name = AbstractCompilerTest name",
- referencedClasses: ["AbstractCompilerTest"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["=", "name"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv([$self._name()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["name"]=1
- //>>excludeEnd("ctx");
- ][0]).__eq($recv($globals.AbstractCompilerTest)._name());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isAbstract",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCompilerTest.a$cls);
- $core.addClass("ASTDebuggerTest", $globals.AbstractCompilerTest, [], "Compiler-Tests");
- $core.addClass("ASTInterpreterTest", $globals.AbstractCompilerTest, [], "Compiler-Tests");
- $core.addClass("CodeGeneratorTest", $globals.AbstractCompilerTest, [], "Compiler-Tests");
- $core.addClass("InliningCodeGeneratorTest", $globals.AbstractCompilerTest, [], "Compiler-Tests");
- $core.addClass("AbstractJavaScriptGatewayTest", $globals.ASTMethodRunningTest, ["theClass"], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "jsConstructor",
- protocol: "running",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "jsConstructor\x0a\x09<inlineJS: '\x0a\x09\x09var ctr = function () {};\x0a\x09\x09ctr.prototype.foo = function (a,b) {return a+\x22,\x22+b};\x0a\x09\x09return ctr;\x0a\x09'>",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [["inlineJS:", ["\x0a\x09\x09var ctr = function () {};\x0a\x09\x09ctr.prototype.foo = function (a,b) {return a+\x22,\x22+b};\x0a\x09\x09return ctr;\x0a\x09"]]],
- messageSends: []
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var ctr = function () {};
- ctr.prototype.foo = function (a,b) {return a+","+b};
- return ctr;
- ;
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"jsConstructor",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicSuperDifferentNames",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicSuperDifferentNames\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09receiver := ObjectMock2 new foo: 'should be shadowed'; yourself.\x0a\x09arguments := #(4 true).\x0a\x09self\x0a\x09\x09should: 'bar: anObject baz: anotherObject\x0a\x09\x09\x09<jsOverride: #foo args: #(anObject anotherObject)>\x0a\x09\x09\x09^ super bar: anObject baz: anotherObject'\x0a\x09\x09return: '4,true'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "foo:", "new", "yourself", "should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self.receiver=$recv($1)._yourself();
- $self.arguments=[(4), true];
- $self._should_return_("bar: anObject baz: anotherObject\x0a\x09\x09\x09<jsOverride: #foo args: #(anObject anotherObject)>\x0a\x09\x09\x09^ super bar: anObject baz: anotherObject","4,true");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicSuperDifferentNames",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicSuperDifferentNamesNested",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicSuperDifferentNamesNested\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09receiver := ObjectMock2 new foo: 'should be shadowed'; yourself.\x0a\x09arguments := #(4 true).\x0a\x09self\x0a\x09\x09should: 'bar: anObject baz: anotherObject\x0a\x09\x09\x09<jsOverride: #foo args: #(anObject anotherObject)>\x0a\x09\x09\x09^ [ super bar: anObject baz: anotherObject ] value'\x0a\x09\x09return: '4,true'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "foo:", "new", "yourself", "should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self.receiver=$recv($1)._yourself();
- $self.arguments=[(4), true];
- $self._should_return_("bar: anObject baz: anotherObject\x0a\x09\x09\x09<jsOverride: #foo args: #(anObject anotherObject)>\x0a\x09\x09\x09^ [ super bar: anObject baz: anotherObject ] value","4,true");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicSuperDifferentNamesNested",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicSuperDifferentNamesPermutated",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicSuperDifferentNamesPermutated\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09receiver := ObjectMock2 new foo: 'should be shadowed'; yourself.\x0a\x09arguments := #(4 true).\x0a\x09self\x0a\x09\x09should: 'bar: anObject baz: anotherObject\x0a\x09\x09\x09<jsOverride: #foo args: #(anotherObject anObject)>\x0a\x09\x09\x09^ super bar: anObject baz: anotherObject'\x0a\x09\x09return: 'true,4'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "foo:", "new", "yourself", "should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self.receiver=$recv($1)._yourself();
- $self.arguments=[(4), true];
- $self._should_return_("bar: anObject baz: anotherObject\x0a\x09\x09\x09<jsOverride: #foo args: #(anotherObject anObject)>\x0a\x09\x09\x09^ super bar: anObject baz: anotherObject","true,4");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicSuperDifferentNamesPermutated",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testMonadicSuperDifferentNames",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMonadicSuperDifferentNames\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09receiver := ObjectMock2 new foo: 'should be shadowed'; yourself.\x0a\x09arguments := #(4).\x0a\x09self\x0a\x09\x09should: 'bar: anObject <jsOverride: #foo args: #(anObject)> ^ super bar: anObject'\x0a\x09\x09return: '4,undefined'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "foo:", "new", "yourself", "should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self.receiver=$recv($1)._yourself();
- $self.arguments=[(4)];
- $self._should_return_("bar: anObject <jsOverride: #foo args: #(anObject)> ^ super bar: anObject","4,undefined");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMonadicSuperDifferentNames",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testNiladicSuper",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNiladicSuper\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09self\x0a\x09\x09should: 'foo <jsOverride: #foo> ^ super foo'\x0a\x09\x09receiver: (ObjectMock2 new foo: 'should be shadowed'; yourself)\x0a\x09\x09return: 'undefined,undefined'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "should:receiver:return:", "foo:", "new", "yourself"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self._should_receiver_return_("foo <jsOverride: #foo> ^ super foo",$recv($1)._yourself(),"undefined,undefined");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNiladicSuper",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testNiladicSuperDifferentNames",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNiladicSuperDifferentNames\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09self\x0a\x09\x09should: 'bar <jsOverride: #foo> ^ super bar'\x0a\x09\x09receiver: (ObjectMock2 new foo: 'should be shadowed'; yourself)\x0a\x09\x09return: 'undefined,undefined'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "should:receiver:return:", "foo:", "new", "yourself"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self._should_receiver_return_("bar <jsOverride: #foo> ^ super bar",$recv($1)._yourself(),"undefined,undefined");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNiladicSuperDifferentNames",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testNiladicSuperNested",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNiladicSuperNested\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09self\x0a\x09\x09should: 'foo <jsOverride: #foo> ^ [ super foo ] value'\x0a\x09\x09receiver: (ObjectMock2 new foo: 'should be shadowed'; yourself)\x0a\x09\x09return: 'undefined,undefined'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "should:receiver:return:", "foo:", "new", "yourself"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self._should_receiver_return_("foo <jsOverride: #foo> ^ [ super foo ] value",$recv($1)._yourself(),"undefined,undefined");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNiladicSuperNested",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "testTriadicSuperDifferentNamesPermutated",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testTriadicSuperDifferentNamesPermutated\x0a\x09theClass := ObjectMock subclass: #ObjectMock2 slots: #() package: 'Compiler-Tests'.\x0a\x09theClass beJavaScriptSubclassOf: self jsConstructor.\x0a\x09receiver := ObjectMock2 new foo: 'should be shadowed'; yourself.\x0a\x09arguments := #(4 true 'hello').\x0a\x09self\x0a\x09\x09should: 'bar: anObject baz: anotherObject moo: yao\x0a\x09\x09\x09<jsOverride: #foo args: #(yao anObject anotherObject)>\x0a\x09\x09\x09^ super bar: anObject baz: anotherObject moo: yao'\x0a\x09\x09return: 'hello,4'",
- referencedClasses: ["ObjectMock", "ObjectMock2"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclass:slots:package:", "beJavaScriptSubclassOf:", "jsConstructor", "foo:", "new", "yourself", "should:return:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $self.theClass=$recv($globals.ObjectMock)._subclass_slots_package_("ObjectMock2",[],"Compiler-Tests");
- $recv($self.theClass)._beJavaScriptSubclassOf_($self._jsConstructor());
- $1=$recv($globals.ObjectMock2)._new();
- $recv($1)._foo_("should be shadowed");
- $self.receiver=$recv($1)._yourself();
- $self.arguments=[(4), true, "hello"];
- $self._should_return_("bar: anObject baz: anotherObject moo: yao\x0a\x09\x09\x09<jsOverride: #foo args: #(yao anObject anotherObject)>\x0a\x09\x09\x09^ super bar: anObject baz: anotherObject moo: yao","hello,4");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testTriadicSuperDifferentNamesPermutated",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "theClass",
- protocol: "accessing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "theClass\x0a\x09^ theClass",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: []
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- return $self.theClass;
- }; }),
- $globals.AbstractJavaScriptGatewayTest);
- $core.addMethod(
- $core.method({
- selector: "isAbstract",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isAbstract\x0a\x09^ self name = AbstractJavaScriptGatewayTest name",
- referencedClasses: ["AbstractJavaScriptGatewayTest"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["=", "name"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv([$self._name()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["name"]=1
- //>>excludeEnd("ctx");
- ][0]).__eq($recv($globals.AbstractJavaScriptGatewayTest)._name());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isAbstract",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractJavaScriptGatewayTest.a$cls);
- $core.addClass("DebuggedJSGTest", $globals.AbstractJavaScriptGatewayTest, [], "Compiler-Tests");
- $core.addClass("InlinedJSGTest", $globals.AbstractJavaScriptGatewayTest, [], "Compiler-Tests");
- $core.addClass("InterpretedJSGTest", $globals.AbstractJavaScriptGatewayTest, [], "Compiler-Tests");
- $core.addClass("PlainJSGTest", $globals.AbstractJavaScriptGatewayTest, [], "Compiler-Tests");
- $core.addClass("ASTPCNodeVisitorTest", $globals.TestCase, [], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "astPCNodeVisitor",
- protocol: "factory",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "astPCNodeVisitor\x0a\x09^ ASTPCNodeVisitor new\x0a\x09\x09index: 0;\x0a\x09\x09yourself",
- referencedClasses: ["ASTPCNodeVisitor"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["index:", "new", "yourself"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($globals.ASTPCNodeVisitor)._new();
- $recv($1)._index_((0));
- return $recv($1)._yourself();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"astPCNodeVisitor",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addMethod(
- $core.method({
- selector: "astPCNodeVisitorForSelector:",
- protocol: "factory",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString"],
- source: "astPCNodeVisitorForSelector: aString\x0a\x09^ ASTPCNodeVisitor new\x0a\x09\x09selector: aString;\x0a\x09\x09index: 0;\x0a\x09\x09yourself",
- referencedClasses: ["ASTPCNodeVisitor"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["selector:", "new", "index:", "yourself"]
- }, function ($methodClass){ return function (aString){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($globals.ASTPCNodeVisitor)._new();
- $recv($1)._selector_(aString);
- $recv($1)._index_((0));
- return $recv($1)._yourself();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"astPCNodeVisitorForSelector:",{aString:aString})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addMethod(
- $core.method({
- selector: "newTeachableVisitor",
- protocol: "factory",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "newTeachableVisitor\x0a\x09| result |\x0a\x09result := Teachable new\x0a\x09\x09whenSend: #visit: evaluate: [ :one | one acceptDagVisitor: result ];\x0a\x09\x09acceptSend: #visitDagNode:.\x0a\x09^ result",
- referencedClasses: ["Teachable"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["whenSend:evaluate:", "new", "acceptDagVisitor:", "acceptSend:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var result;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($globals.Teachable)._new();
- $recv($1)._whenSend_evaluate_("visit:",(function(one){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(one)._acceptDagVisitor_(result);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({one:one},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- result=$recv($1)._acceptSend_("visitDagNode:");
- return result;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"newTeachableVisitor",{result:result})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addMethod(
- $core.method({
- selector: "testJSStatementNode",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testJSStatementNode\x0a\x09| ast result |\x0a\x09\x0a\x09ast := self parse: 'foo <inlineJS: ''consolee.log(1)''>' forClass: Object.\x0a\x09result := self astPCNodeVisitor visit: ast; currentNode.\x0a\x09self\x0a\x09\x09assert: ((self newTeachableVisitor whenSend: #visitJSStatementNode: return: 'JS'; yourself) visit: result)\x0a\x09\x09equals: 'JS'",
- referencedClasses: ["Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:forClass:", "visit:", "astPCNodeVisitor", "currentNode", "assert:equals:", "whenSend:return:", "newTeachableVisitor", "yourself"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var ast,result;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- ast=$self._parse_forClass_("foo <inlineJS: 'consolee.log(1)'>",$globals.Object);
- $1=$self._astPCNodeVisitor();
- [$recv($1)._visit_(ast)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["visit:"]=1
- //>>excludeEnd("ctx");
- ][0];
- result=$recv($1)._currentNode();
- $2=$self._newTeachableVisitor();
- $recv($2)._whenSend_return_("visitJSStatementNode:","JS");
- $self._assert_equals_($recv($recv($2)._yourself())._visit_(result),"JS");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testJSStatementNode",{ast:ast,result:result})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addMethod(
- $core.method({
- selector: "testMessageSend",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMessageSend\x0a\x09| ast |\x0a\x09\x0a\x09ast := self parse: 'foo self asString yourself. ^ self asBoolean' forClass: Object.\x0a\x09self assert: ((self astPCNodeVisitorForSelector: 'yourself')\x0a\x09\x09visit: ast;\x0a\x09\x09currentNode) selector equals: 'yourself'",
- referencedClasses: ["Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:forClass:", "assert:equals:", "selector", "visit:", "astPCNodeVisitorForSelector:", "currentNode"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- ast=$self._parse_forClass_("foo self asString yourself. ^ self asBoolean",$globals.Object);
- $1=$self._astPCNodeVisitorForSelector_("yourself");
- $recv($1)._visit_(ast);
- $self._assert_equals_($recv($recv($1)._currentNode())._selector(),"yourself");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMessageSend",{ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addMethod(
- $core.method({
- selector: "testMessageSendWithBlocks",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMessageSendWithBlocks\x0a\x09| ast |\x0a\x09\x0a\x09ast := self parse: 'foo true ifTrue: [ [ self asString yourself ] value. ]. ^ self asBoolean' forClass: Object.\x0a\x09self assert: ((self astPCNodeVisitorForSelector: 'yourself')\x0a\x09\x09visit: ast;\x0a\x09\x09currentNode) selector equals: 'yourself'",
- referencedClasses: ["Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:forClass:", "assert:equals:", "selector", "visit:", "astPCNodeVisitorForSelector:", "currentNode"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- ast=$self._parse_forClass_("foo true ifTrue: [ [ self asString yourself ] value. ]. ^ self asBoolean",$globals.Object);
- $1=$self._astPCNodeVisitorForSelector_("yourself");
- $recv($1)._visit_(ast);
- $self._assert_equals_($recv($recv($1)._currentNode())._selector(),"yourself");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMessageSendWithBlocks",{ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addMethod(
- $core.method({
- selector: "testMessageSendWithInlining",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMessageSendWithInlining\x0a\x09| ast |\x0a\x09\x0a\x09ast := self parse: 'foo true ifTrue: [ self asString yourself ]. ^ self asBoolean' forClass: Object.\x0a\x09self assert: ((self astPCNodeVisitorForSelector: 'yourself')\x0a\x09\x09visit: ast;\x0a\x09\x09currentNode) selector equals: 'yourself'.\x0a\x09\x09\x0a\x09ast := self parse: 'foo true ifTrue: [ self asString yourself ]. ^ self asBoolean' forClass: Object.\x0a\x09self assert: ((self astPCNodeVisitorForSelector: 'asBoolean')\x0a\x09\x09visit: ast;\x0a\x09\x09currentNode) selector equals: 'asBoolean'",
- referencedClasses: ["Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:forClass:", "assert:equals:", "selector", "visit:", "astPCNodeVisitorForSelector:", "currentNode"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- ast=[$self._parse_forClass_("foo true ifTrue: [ self asString yourself ]. ^ self asBoolean",$globals.Object)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["parse:forClass:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $1=[$self._astPCNodeVisitorForSelector_("yourself")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["astPCNodeVisitorForSelector:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$recv($1)._visit_(ast)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["visit:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_([$recv([$recv($1)._currentNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["currentNode"]=1
- //>>excludeEnd("ctx");
- ][0])._selector()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["selector"]=1
- //>>excludeEnd("ctx");
- ][0],"yourself")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- ast=$self._parse_forClass_("foo true ifTrue: [ self asString yourself ]. ^ self asBoolean",$globals.Object);
- $2=$self._astPCNodeVisitorForSelector_("asBoolean");
- $recv($2)._visit_(ast);
- $self._assert_equals_($recv($recv($2)._currentNode())._selector(),"asBoolean");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMessageSendWithInlining",{ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addMethod(
- $core.method({
- selector: "testNoMessageSend",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNoMessageSend\x0a\x09| ast |\x0a\x09\x0a\x09ast := self parse: 'foo ^ self' forClass: Object.\x0a\x09self assert: (self astPCNodeVisitor\x0a\x09\x09visit: ast;\x0a\x09\x09currentNode) isNil",
- referencedClasses: ["Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:forClass:", "assert:", "isNil", "visit:", "astPCNodeVisitor", "currentNode"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- ast=$self._parse_forClass_("foo ^ self",$globals.Object);
- $1=$self._astPCNodeVisitor();
- $recv($1)._visit_(ast);
- $self._assert_($recv($recv($1)._currentNode())._isNil());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNoMessageSend",{ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPCNodeVisitorTest);
- $core.addClass("ASTPositionTest", $globals.TestCase, [], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "testNodeAtPosition",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNodeAtPosition\x0a\x09| node |\x0a\x09\x0a\x09node := self parse: 'yourself\x0a\x09^ self' forClass: Object.\x0a\x09\x0a\x09self assert: (node navigationNodeAt: 2@4 ifAbsent: [ nil ]) source equals: 'self'.\x0a\x09\x0a\x09node := self parse: 'foo\x0a\x09true ifTrue: [ 1 ]' forClass: Object.\x0a\x09\x0a\x09self assert: (node navigationNodeAt: 2@7 ifAbsent: [ nil ]) selector equals: 'ifTrue:'.\x0a\x09\x0a\x09node := self parse: 'foo\x0a\x09self foo; bar; baz' forClass: Object.\x0a\x09\x0a\x09self assert: (node navigationNodeAt: 2@8 ifAbsent: [ nil ]) selector equals: 'foo'",
- referencedClasses: ["Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:forClass:", "assert:equals:", "source", "navigationNodeAt:ifAbsent:", "@", "selector"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var node;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- node=[$self._parse_forClass_("yourself\x0a\x09^ self",$globals.Object)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["parse:forClass:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv([$recv(node)._navigationNodeAt_ifAbsent_([(2).__at((4))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["@"]=1
- //>>excludeEnd("ctx");
- ][0],(function(){
- return nil;
- }))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["navigationNodeAt:ifAbsent:"]=1
- //>>excludeEnd("ctx");
- ][0])._source(),"self")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- node=[$self._parse_forClass_("foo\x0a\x09true ifTrue: [ 1 ]",$globals.Object)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["parse:forClass:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_([$recv([$recv(node)._navigationNodeAt_ifAbsent_([(2).__at((7))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["@"]=2
- //>>excludeEnd("ctx");
- ][0],(function(){
- return nil;
- }))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["navigationNodeAt:ifAbsent:"]=2
- //>>excludeEnd("ctx");
- ][0])._selector()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["selector"]=1
- //>>excludeEnd("ctx");
- ][0],"ifTrue:")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:equals:"]=2
- //>>excludeEnd("ctx");
- ][0];
- node=$self._parse_forClass_("foo\x0a\x09self foo; bar; baz",$globals.Object);
- $self._assert_equals_($recv($recv(node)._navigationNodeAt_ifAbsent_((2).__at((8)),(function(){
- return nil;
- })))._selector(),"foo");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNodeAtPosition",{node:node})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ASTPositionTest);
- $core.addClass("AbstractCodeGeneratorInstallTest", $globals.TestCase, ["receiver"], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "receiver",
- protocol: "accessing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "receiver\x0a\x09^ receiver",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: []
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- return $self.receiver;
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "shouldntInstall:andRaise:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "anErrorClass"],
- source: "shouldntInstall: aString andRaise: anErrorClass\x0a\x09| method |\x0a\x0a\x09[ self\x0a\x09\x09should: [ method := self install: aString forClass: receiver class ]\x0a\x09\x09raise: anErrorClass ]\x0a\x09ensure: [ method ifNotNil: [ receiver class removeCompiledMethod: method ] ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["ensure:", "should:raise:", "install:forClass:", "class", "ifNotNil:", "removeCompiledMethod:"]
- }, function ($methodClass){ return function (aString,anErrorClass){
- var self=this,$self=this;
- var method;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $recv((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- method=$self._install_forClass_(aString,[$recv($self.receiver)._class()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx3.sendIdx["class"]=1
- //>>excludeEnd("ctx");
- ][0]);
- return method;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }),anErrorClass);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }))._ensure_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- $1=method;
- if($1 == null || $1.a$nil){
- return $1;
- } else {
- return $recv($recv($self.receiver)._class())._removeCompiledMethod_(method);
- }
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"shouldntInstall:andRaise:",{aString:aString,anErrorClass:anErrorClass,method:method})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicJSOverrideArgMismatch",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicJSOverrideArgMismatch\x0a\x09receiver := ObjectMock new.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: aNumber foo: anotherNumber\x0a\x09\x09<jsOverride: #mux args: #(anInteger anotherNumber)>\x0a\x09\x09^ (foo := foo * aNumber + anotherNumber)'\x0a\x09\x09andRaise: CompilerError.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: aNumber foo: anotherNumber\x0a\x09\x09<jsOverride: #mux args: #(aNumber anotherInteger)>\x0a\x09\x09^ (foo := foo * aNumber + anotherNumber)'\x0a\x09\x09andRaise: CompilerError.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: aNumber foo: anotherNumber\x0a\x09\x09<jsOverride: #mux args: #(anotherNumber anInteger)>\x0a\x09\x09^ (foo := foo * aNumber + anotherNumber)'\x0a\x09\x09andRaise: CompilerError",
- referencedClasses: ["ObjectMock", "CompilerError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- [$self._shouldntInstall_andRaise_("quux: aNumber foo: anotherNumber\x0a\x09\x09<jsOverride: #mux args: #(anInteger anotherNumber)>\x0a\x09\x09^ (foo := foo * aNumber + anotherNumber)",$globals.CompilerError)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["shouldntInstall:andRaise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._shouldntInstall_andRaise_("quux: aNumber foo: anotherNumber\x0a\x09\x09<jsOverride: #mux args: #(aNumber anotherInteger)>\x0a\x09\x09^ (foo := foo * aNumber + anotherNumber)",$globals.CompilerError)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["shouldntInstall:andRaise:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._shouldntInstall_andRaise_("quux: aNumber foo: anotherNumber\x0a\x09\x09<jsOverride: #mux args: #(anotherNumber anInteger)>\x0a\x09\x09^ (foo := foo * aNumber + anotherNumber)",$globals.CompilerError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicJSOverrideArgMismatch",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicJSOverrideDifferentNames",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicJSOverrideDifferentNames\x0a\x09receiver := ObjectMock new.\x0a\x09receiver foo: 4.\x0a\x09self while: 'quux: anInteger foo: anotherInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anotherInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger)' should: [\x0a\x09\x09self should: [ receiver mux ] raise: MessageNotUnderstood.\x0a\x09\x09self should: [ receiver mux: 2 and: -1 ] raise: MessageNotUnderstood.\x0a\x09\x09self assert: (receiver basicPerform: #mux withArguments: #(2 -2)) equals: 6.\x0a\x09\x09self assert: (receiver quux: 1 foo: 4) equals: 10.\x0a\x09\x09self should: [ receiver basicPerform: #quux ] raise: Error.\x0a\x09\x09self assert: receiver foo equals: 10 ]",
- referencedClasses: ["ObjectMock", "MessageNotUnderstood", "Error"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "foo:", "while:should:", "should:raise:", "mux", "mux:and:", "assert:equals:", "basicPerform:withArguments:", "quux:foo:", "basicPerform:", "foo"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $recv($self.receiver)._foo_((4));
- $self._while_should_("quux: anInteger foo: anotherInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anotherInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger)",(function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux_and_((2),(-1));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._basicPerform_withArguments_("mux",[(2), (-2)]),(6))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._quux_foo_((1),(4)),(10))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._basicPerform_("quux");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
- //>>excludeEnd("ctx");
- }),$globals.Error);
- return $self._assert_equals_($recv($self.receiver)._foo(),(10));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicJSOverrideDifferentNames",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicJSOverrideDifferentNamesPermutated",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicJSOverrideDifferentNamesPermutated\x0a\x09receiver := ObjectMock new.\x0a\x09receiver foo: 4.\x0a\x09self while: 'quux: anInteger foo: anotherInteger\x0a\x09\x09<jsOverride: #mux args: #(anotherInteger anInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger)' should: [\x0a\x09\x09self should: [ receiver mux ] raise: MessageNotUnderstood.\x0a\x09\x09self should: [ receiver mux: 2 and: -1 ] raise: MessageNotUnderstood.\x0a\x09\x09self assert: (receiver basicPerform: #mux withArguments: #(-2 2)) equals: 6.\x0a\x09\x09self assert: (receiver quux: 1 foo: 4) equals: 10.\x0a\x09\x09self should: [ receiver basicPerform: #quux ] raise: Error.\x0a\x09\x09self assert: receiver foo equals: 10 ]",
- referencedClasses: ["ObjectMock", "MessageNotUnderstood", "Error"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "foo:", "while:should:", "should:raise:", "mux", "mux:and:", "assert:equals:", "basicPerform:withArguments:", "quux:foo:", "basicPerform:", "foo"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $recv($self.receiver)._foo_((4));
- $self._while_should_("quux: anInteger foo: anotherInteger\x0a\x09\x09<jsOverride: #mux args: #(anotherInteger anInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger)",(function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux_and_((2),(-1));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._basicPerform_withArguments_("mux",[(-2), (2)]),(6))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._quux_foo_((1),(4)),(10))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._basicPerform_("quux");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
- //>>excludeEnd("ctx");
- }),$globals.Error);
- return $self._assert_equals_($recv($self.receiver)._foo(),(10));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicJSOverrideDifferentNamesPermutated",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicJSOverrideInOneArg",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicJSOverrideInOneArg\x0a\x09receiver := ObjectMock new.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: anInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anotherInteger)>\x0a\x09\x09^ (foo := foo + anInteger)'\x0a\x09\x09andRaise: CompilerError.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: anInteger\x0a\x09\x09<jsOverride: #mux args: #(anotherInteger anInteger)>\x0a\x09\x09^ (foo := foo + anInteger)'\x0a\x09\x09andRaise: CompilerError",
- referencedClasses: ["ObjectMock", "CompilerError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- [$self._shouldntInstall_andRaise_("quux: anInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anotherInteger)>\x0a\x09\x09^ (foo := foo + anInteger)",$globals.CompilerError)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["shouldntInstall:andRaise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._shouldntInstall_andRaise_("quux: anInteger\x0a\x09\x09<jsOverride: #mux args: #(anotherInteger anInteger)>\x0a\x09\x09^ (foo := foo + anInteger)",$globals.CompilerError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicJSOverrideInOneArg",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicJSOverrideInUnary",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicJSOverrideInUnary\x0a\x09receiver := ObjectMock new.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux <jsOverride: #mux args: #(anInteger anotherInteger)> ^ (foo := foo + 3)'\x0a\x09\x09andRaise: CompilerError",
- referencedClasses: ["ObjectMock", "CompilerError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $self._shouldntInstall_andRaise_("quux <jsOverride: #mux args: #(anInteger anotherInteger)> ^ (foo := foo + 3)",$globals.CompilerError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicJSOverrideInUnary",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testDyadicJSOverrideRepeatedArgs",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testDyadicJSOverrideRepeatedArgs\x0a\x09receiver := ObjectMock new.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: anInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anInteger)>\x0a\x09\x09^ (foo := foo + anInteger)'\x0a\x09\x09andRaise: CompilerError.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: anInteger foo: anotherInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger)'\x0a\x09\x09andRaise: CompilerError",
- referencedClasses: ["ObjectMock", "CompilerError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- [$self._shouldntInstall_andRaise_("quux: anInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anInteger)>\x0a\x09\x09^ (foo := foo + anInteger)",$globals.CompilerError)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["shouldntInstall:andRaise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._shouldntInstall_andRaise_("quux: anInteger foo: anotherInteger\x0a\x09\x09<jsOverride: #mux args: #(anInteger anInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger)",$globals.CompilerError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testDyadicJSOverrideRepeatedArgs",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testInvalidAssignment",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testInvalidAssignment\x0a\x09self shouldntInstall: 'foo:a a:=1' andRaise: InvalidAssignmentError.\x0a\x09self shouldntInstall: 'foo false:=1' andRaise: InvalidAssignmentError.\x0a\x09self shouldntInstall: 'foo console:=1' andRaise: InvalidAssignmentError.\x0a\x09self shouldntInstall: 'foo Number:=1' andRaise: InvalidAssignmentError",
- referencedClasses: ["InvalidAssignmentError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [$self._shouldntInstall_andRaise_("foo:a a:=1",$globals.InvalidAssignmentError)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["shouldntInstall:andRaise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._shouldntInstall_andRaise_("foo false:=1",$globals.InvalidAssignmentError)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["shouldntInstall:andRaise:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._shouldntInstall_andRaise_("foo console:=1",$globals.InvalidAssignmentError)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["shouldntInstall:andRaise:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._shouldntInstall_andRaise_("foo Number:=1",$globals.InvalidAssignmentError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testInvalidAssignment",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testMistypedPragmaJSStatement",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMistypedPragmaJSStatement\x0a\x09self shouldntInstall: 'foo < inlineJS: ''return ''foo'''' >' andRaise: ParseError",
- referencedClasses: ["ParseError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._shouldntInstall_andRaise_("foo < inlineJS: 'return 'foo'' >",$globals.ParseError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMistypedPragmaJSStatement",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testMonadicJSOverrideArgMismatch",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMonadicJSOverrideArgMismatch\x0a\x09receiver := ObjectMock new.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: aNumber <jsOverride: #mux args: #(anInteger)> ^ (foo := foo + aNumber)'\x0a\x09\x09andRaise: CompilerError",
- referencedClasses: ["ObjectMock", "CompilerError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $self._shouldntInstall_andRaise_("quux: aNumber <jsOverride: #mux args: #(anInteger)> ^ (foo := foo + aNumber)",$globals.CompilerError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMonadicJSOverrideArgMismatch",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testMonadicJSOverrideDifferentNames",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMonadicJSOverrideDifferentNames\x0a\x09receiver := ObjectMock new.\x0a\x09receiver foo: 4.\x0a\x09self while: 'quux: anInteger <jsOverride: #mux args: #(anInteger)> ^ (foo := foo + anInteger)' should: [\x0a\x09\x09self should: [ receiver mux ] raise: MessageNotUnderstood.\x0a\x09\x09self should: [ receiver mux: 2 ] raise: MessageNotUnderstood.\x0a\x09\x09self assert: (receiver basicPerform: #mux withArguments: #(2)) equals: 6.\x0a\x09\x09self assert: (receiver quux: 4) equals: 10.\x0a\x09\x09self should: [ receiver basicPerform: #quux ] raise: Error.\x0a\x09\x09self assert: receiver foo equals: 10 ]",
- referencedClasses: ["ObjectMock", "MessageNotUnderstood", "Error"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "foo:", "while:should:", "should:raise:", "mux", "mux:", "assert:equals:", "basicPerform:withArguments:", "quux:", "basicPerform:", "foo"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $recv($self.receiver)._foo_((4));
- $self._while_should_("quux: anInteger <jsOverride: #mux args: #(anInteger)> ^ (foo := foo + anInteger)",(function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux_((2));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._basicPerform_withArguments_("mux",[(2)]),(6))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._quux_((4)),(10))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._basicPerform_("quux");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
- //>>excludeEnd("ctx");
- }),$globals.Error);
- return $self._assert_equals_($recv($self.receiver)._foo(),(10));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMonadicJSOverrideDifferentNames",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testMonadicJSOverrideInUnary",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testMonadicJSOverrideInUnary\x0a\x09receiver := ObjectMock new.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux <jsOverride: #mux args: #(anInteger)> ^ (foo := foo + 3)'\x0a\x09\x09andRaise: CompilerError",
- referencedClasses: ["ObjectMock", "CompilerError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $self._shouldntInstall_andRaise_("quux <jsOverride: #mux args: #(anInteger)> ^ (foo := foo + 3)",$globals.CompilerError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testMonadicJSOverrideInUnary",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testNiladicJSOverride",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNiladicJSOverride\x0a\x09receiver := ObjectMock new.\x0a\x09receiver foo: 4.\x0a\x09self while: 'baz <jsOverride: #baz> ^ (foo := foo + 3)' should: [\x0a\x09\x09self assert: receiver baz equals: 7.\x0a\x09\x09self assert: (receiver basicPerform: #baz) equals: 10.\x0a\x09\x09self assert: receiver baz equals: 13.\x0a\x09\x09self assert: receiver foo equals: 13 ]",
- referencedClasses: ["ObjectMock"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "foo:", "while:should:", "assert:equals:", "baz", "basicPerform:", "foo"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $recv($self.receiver)._foo_((4));
- $self._while_should_("baz <jsOverride: #baz> ^ (foo := foo + 3)",(function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- [$self._assert_equals_([$recv($self.receiver)._baz()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["baz"]=1
- //>>excludeEnd("ctx");
- ][0],(7))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._basicPerform_("baz"),(10))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._baz(),(13))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=3
- //>>excludeEnd("ctx");
- ][0];
- return $self._assert_equals_($recv($self.receiver)._foo(),(13));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNiladicJSOverride",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testNiladicJSOverrideDifferentNames",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNiladicJSOverrideDifferentNames\x0a\x09receiver := ObjectMock new.\x0a\x09receiver foo: 4.\x0a\x09self while: 'quux <jsOverride: #mux> ^ (foo := foo + 3)' should: [\x0a\x09\x09self should: [ receiver mux ] raise: MessageNotUnderstood.\x0a\x09\x09self assert: (receiver basicPerform: #mux) equals: 7.\x0a\x09\x09self assert: receiver quux equals: 10.\x0a\x09\x09self should: [ receiver basicPerform: #quux ] raise: Error.\x0a\x09\x09self assert: receiver foo equals: 10 ]",
- referencedClasses: ["ObjectMock", "MessageNotUnderstood", "Error"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "foo:", "while:should:", "should:raise:", "mux", "assert:equals:", "basicPerform:", "quux", "foo"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $recv($self.receiver)._foo_((4));
- $self._while_should_("quux <jsOverride: #mux> ^ (foo := foo + 3)",(function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_([$recv($self.receiver)._basicPerform_("mux")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["basicPerform:"]=1
- //>>excludeEnd("ctx");
- ][0],(7))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._quux(),(10))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._basicPerform_("quux");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
- //>>excludeEnd("ctx");
- }),$globals.Error);
- return $self._assert_equals_($recv($self.receiver)._foo(),(10));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNiladicJSOverrideDifferentNames",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testNiladicJSOverrideInOneArg",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNiladicJSOverrideInOneArg\x0a\x09receiver := ObjectMock new.\x0a\x09self\x0a\x09\x09shouldntInstall: 'quux: anInteger <jsOverride: #mux> ^ (foo := foo + anInteger)'\x0a\x09\x09andRaise: CompilerError",
- referencedClasses: ["ObjectMock", "CompilerError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $self._shouldntInstall_andRaise_("quux: anInteger <jsOverride: #mux> ^ (foo := foo + anInteger)",$globals.CompilerError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNiladicJSOverrideInOneArg",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testPragmaInBlock",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testPragmaInBlock\x0a\x09self shouldntInstall: 'foo ^ [ < fooBar > 4 ] value' andRaise: ParseError",
- referencedClasses: ["ParseError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["shouldntInstall:andRaise:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._shouldntInstall_andRaise_("foo ^ [ < fooBar > 4 ] value",$globals.ParseError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testPragmaInBlock",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "testTriadicJSOverrideDifferentNamesPermutated",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testTriadicJSOverrideDifferentNamesPermutated\x0a\x09receiver := ObjectMock new.\x0a\x09receiver foo: 4.\x0a\x09self while: 'quux: anInteger foo: anotherInteger bar: yaInt\x0a\x09\x09<jsOverride: #mux args: #(yaInt anInteger anotherInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger - yaInt)' should: [\x0a\x09\x09self should: [ receiver mux ] raise: MessageNotUnderstood.\x0a\x09\x09self should: [ receiver mux: 2 and: -1 and: 0 ] raise: MessageNotUnderstood.\x0a\x09\x09self assert: (receiver basicPerform: #mux withArguments: #(5 2 3)) equals: 6.\x0a\x09\x09self assert: (receiver quux: 1 foo: 4 bar: 20) equals: -10.\x0a\x09\x09self should: [ receiver basicPerform: #quux ] raise: Error.\x0a\x09\x09self assert: receiver foo equals: -10 ]",
- referencedClasses: ["ObjectMock", "MessageNotUnderstood", "Error"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["new", "foo:", "while:should:", "should:raise:", "mux", "mux:and:and:", "assert:equals:", "basicPerform:withArguments:", "quux:foo:bar:", "basicPerform:", "foo"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.receiver=$recv($globals.ObjectMock)._new();
- $recv($self.receiver)._foo_((4));
- $self._while_should_("quux: anInteger foo: anotherInteger bar: yaInt\x0a\x09\x09<jsOverride: #mux args: #(yaInt anInteger anotherInteger)>\x0a\x09\x09^ (foo := foo * anInteger + anotherInteger - yaInt)",(function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._mux_and_and_((2),(-1),(0));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
- //>>excludeEnd("ctx");
- }),$globals.MessageNotUnderstood)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["should:raise:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._basicPerform_withArguments_("mux",[(5), (2), (3)]),(6))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_($recv($self.receiver)._quux_foo_bar_((1),(4),(20)),(-10))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["assert:equals:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self.receiver)._basicPerform_("quux");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
- //>>excludeEnd("ctx");
- }),$globals.Error);
- return $self._assert_equals_($recv($self.receiver)._foo(),(-10));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testTriadicJSOverrideDifferentNamesPermutated",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest);
- $core.addMethod(
- $core.method({
- selector: "isAbstract",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isAbstract\x0a\x09^ self name = AbstractCodeGeneratorInstallTest name",
- referencedClasses: ["AbstractCodeGeneratorInstallTest"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["=", "name"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv([$self._name()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["name"]=1
- //>>excludeEnd("ctx");
- ][0]).__eq($recv($globals.AbstractCodeGeneratorInstallTest)._name());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isAbstract",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AbstractCodeGeneratorInstallTest.a$cls);
- $core.addClass("CodeGeneratorInstallTest", $globals.AbstractCodeGeneratorInstallTest, [], "Compiler-Tests");
- $core.addClass("InliningCodeGeneratorInstallTest", $globals.AbstractCodeGeneratorInstallTest, [], "Compiler-Tests");
- $core.addClass("ScopeVarTest", $globals.TestCase, [], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "testClassRefVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testClassRefVar\x0a\x09| node binding |\x0a\x09node := VariableNode new\x0a\x09\x09identifier: 'Object';\x0a\x09\x09yourself.\x0a\x09SemanticAnalyzer new \x0a\x09\x09pushScope: MethodLexicalScope new;\x0a\x09\x09visit: node.\x0a\x09binding := node binding.\x0a\x09self deny: binding isAssignable.\x0a\x09self deny: binding isIdempotent.\x0a\x09self assert: (binding alias includesSubString: 'Object').\x0a\x09self assert: (binding alias ~= 'Object')",
- referencedClasses: ["VariableNode", "SemanticAnalyzer", "MethodLexicalScope"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["identifier:", "new", "yourself", "pushScope:", "visit:", "binding", "deny:", "isAssignable", "isIdempotent", "assert:", "includesSubString:", "alias", "~="]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var node,binding;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- $1=[$recv($globals.VariableNode)._new()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["new"]=1
- //>>excludeEnd("ctx");
- ][0];
- $recv($1)._identifier_("Object");
- node=$recv($1)._yourself();
- $2=[$recv($globals.SemanticAnalyzer)._new()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["new"]=2
- //>>excludeEnd("ctx");
- ][0];
- $recv($2)._pushScope_($recv($globals.MethodLexicalScope)._new());
- $recv($2)._visit_(node);
- binding=$recv(node)._binding();
- [$self._deny_($recv(binding)._isAssignable())
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["deny:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._deny_($recv(binding)._isIdempotent());
- [$self._assert_($recv([$recv(binding)._alias()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["alias"]=1
- //>>excludeEnd("ctx");
- ][0])._includesSubString_("Object"))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._assert_($recv($recv(binding)._alias()).__tild_eq("Object"));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testClassRefVar",{node:node,binding:binding})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ScopeVarTest);
- $core.addMethod(
- $core.method({
- selector: "testExternallyKnownVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testExternallyKnownVar\x0a\x09| node binding |\x0a\x09node := VariableNode new\x0a\x09\x09identifier: 'console';\x0a\x09\x09yourself.\x0a\x09SemanticAnalyzer new \x0a\x09\x09pushScope: MethodLexicalScope new;\x0a\x09\x09visit: node.\x0a\x09binding := node binding.\x0a\x09self deny: binding isAssignable.\x0a\x09self deny: binding isIdempotent.\x0a\x09self assert: binding alias equals: 'console'",
- referencedClasses: ["VariableNode", "SemanticAnalyzer", "MethodLexicalScope"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["identifier:", "new", "yourself", "pushScope:", "visit:", "binding", "deny:", "isAssignable", "isIdempotent", "assert:equals:", "alias"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var node,binding;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- $1=[$recv($globals.VariableNode)._new()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["new"]=1
- //>>excludeEnd("ctx");
- ][0];
- $recv($1)._identifier_("console");
- node=$recv($1)._yourself();
- $2=[$recv($globals.SemanticAnalyzer)._new()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["new"]=2
- //>>excludeEnd("ctx");
- ][0];
- $recv($2)._pushScope_($recv($globals.MethodLexicalScope)._new());
- $recv($2)._visit_(node);
- binding=$recv(node)._binding();
- [$self._deny_($recv(binding)._isAssignable())
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["deny:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._deny_($recv(binding)._isIdempotent());
- $self._assert_equals_($recv(binding)._alias(),"console");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testExternallyKnownVar",{node:node,binding:binding})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ScopeVarTest);
- $core.addMethod(
- $core.method({
- selector: "testExternallyUnknownVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testExternallyUnknownVar\x0a\x09| node |\x0a\x09node := VariableNode new\x0a\x09\x09identifier: 'bzzz';\x0a\x09\x09yourself.\x0a\x09self \x0a\x09\x09should: [\x0a\x09\x09\x09SemanticAnalyzer new \x0a\x09\x09\x09pushScope: MethodLexicalScope new;\x0a\x09\x09\x09visit: node ]\x0a\x09\x09raise: UnknownVariableError",
- referencedClasses: ["VariableNode", "SemanticAnalyzer", "MethodLexicalScope", "UnknownVariableError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["identifier:", "new", "yourself", "should:raise:", "pushScope:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var node;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- $1=[$recv($globals.VariableNode)._new()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["new"]=1
- //>>excludeEnd("ctx");
- ][0];
- $recv($1)._identifier_("bzzz");
- node=$recv($1)._yourself();
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- $2=[$recv($globals.SemanticAnalyzer)._new()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["new"]=2
- //>>excludeEnd("ctx");
- ][0];
- $recv($2)._pushScope_($recv($globals.MethodLexicalScope)._new());
- return $recv($2)._visit_(node);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),$globals.UnknownVariableError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testExternallyUnknownVar",{node:node})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ScopeVarTest);
- $core.addMethod(
- $core.method({
- selector: "testInstanceVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testInstanceVar\x0a\x09| binding |\x0a\x09binding := MethodLexicalScope new\x0a\x09\x09addIVar: 'bzzz';\x0a\x09\x09bindingFor: 'bzzz'.\x0a\x09self assert: binding isAssignable.\x0a\x09self deny: binding isIdempotent.\x0a\x09self assert: (binding alias includesSubString: 'bzzz').\x0a\x09self assert: (binding alias ~= 'bzzz')",
- referencedClasses: ["MethodLexicalScope"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["addIVar:", "new", "bindingFor:", "assert:", "isAssignable", "deny:", "isIdempotent", "includesSubString:", "alias", "~="]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var binding;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($globals.MethodLexicalScope)._new();
- $recv($1)._addIVar_("bzzz");
- binding=$recv($1)._bindingFor_("bzzz");
- [$self._assert_($recv(binding)._isAssignable())
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._deny_($recv(binding)._isIdempotent());
- [$self._assert_($recv([$recv(binding)._alias()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["alias"]=1
- //>>excludeEnd("ctx");
- ][0])._includesSubString_("bzzz"))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:"]=2
- //>>excludeEnd("ctx");
- ][0];
- $self._assert_($recv($recv(binding)._alias()).__tild_eq("bzzz"));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testInstanceVar",{binding:binding})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ScopeVarTest);
- $core.addMethod(
- $core.method({
- selector: "testPseudoVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testPseudoVar\x0a\x09#('self' 'super' 'true' 'false' 'nil' 'thisContext') do: [ :each |\x0a\x09\x09| binding |\x0a\x09\x09binding := MethodLexicalScope new bindingFor: each.\x0a\x09\x09self deny: binding isAssignable.\x0a\x09\x09self assert: binding isIdempotent ]",
- referencedClasses: ["MethodLexicalScope"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["do:", "bindingFor:", "new", "deny:", "isAssignable", "assert:", "isIdempotent"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- ["self", "super", "true", "false", "nil", "thisContext"]._do_((function(each){
- var binding;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- binding=$recv($recv($globals.MethodLexicalScope)._new())._bindingFor_(each);
- $self._deny_($recv(binding)._isAssignable());
- return $self._assert_($recv(binding)._isIdempotent());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({each:each,binding:binding},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testPseudoVar",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ScopeVarTest);
- $core.addMethod(
- $core.method({
- selector: "testTempVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testTempVar\x0a\x09| binding |\x0a\x09binding := MethodLexicalScope new\x0a\x09\x09addTemp: 'bzzz';\x0a\x09\x09bindingFor: 'bzzz'.\x0a\x09self assert: binding isAssignable.\x0a\x09self deny: binding isIdempotent.\x0a\x09self assert: binding alias equals: 'bzzz'",
- referencedClasses: ["MethodLexicalScope"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["addTemp:", "new", "bindingFor:", "assert:", "isAssignable", "deny:", "isIdempotent", "assert:equals:", "alias"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var binding;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($globals.MethodLexicalScope)._new();
- $recv($1)._addTemp_("bzzz");
- binding=$recv($1)._bindingFor_("bzzz");
- $self._assert_($recv(binding)._isAssignable());
- $self._deny_($recv(binding)._isIdempotent());
- $self._assert_equals_($recv(binding)._alias(),"bzzz");
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testTempVar",{binding:binding})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ScopeVarTest);
- $core.addMethod(
- $core.method({
- selector: "testUnknownVar",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testUnknownVar\x0a\x09self assert: (MethodLexicalScope new bindingFor: 'bzzz') isNil",
- referencedClasses: ["MethodLexicalScope"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["assert:", "isNil", "bindingFor:", "new"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._assert_($recv($recv($recv($globals.MethodLexicalScope)._new())._bindingFor_("bzzz"))._isNil());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testUnknownVar",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.ScopeVarTest);
- $core.addClass("SemanticAnalyzerTest", $globals.TestCase, ["analyzer"], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "setUp",
- protocol: "running",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "setUp\x0a\x09analyzer := SemanticAnalyzer on: Object",
- referencedClasses: ["SemanticAnalyzer", "Object"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["on:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self.analyzer=$recv($globals.SemanticAnalyzer)._on_($globals.Object);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"setUp",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testAssignment",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testAssignment\x0a\x09| src ast |\x0a\x0a\x09src := 'foo self := 1'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09self should: [analyzer visit: ast] raise: InvalidAssignmentError",
- referencedClasses: ["Smalltalk", "InvalidAssignmentError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "should:raise:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo self := 1";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv($self.analyzer)._visit_(ast);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),$globals.InvalidAssignmentError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testAssignment",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testNonLocalReturn",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNonLocalReturn\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a | a + 1. ^ a'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast.\x0a\x0a\x09self deny: ast scope hasNonLocalReturn",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:", "deny:", "hasNonLocalReturn", "scope"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. ^ a";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- $self._deny_($recv($recv(ast)._scope())._hasNonLocalReturn());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNonLocalReturn",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testNonLocalReturn2",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testNonLocalReturn2\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a | a + 1. [ [ ^ a] ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast.\x0a\x0a\x09self assert: ast scope hasNonLocalReturn",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:", "assert:", "hasNonLocalReturn", "scope"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ [ ^ a] ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- $self._assert_($recv($recv(ast)._scope())._hasNonLocalReturn());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testNonLocalReturn2",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testScope",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testScope\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a | a + 1. [ | b | b := a ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast.\x0a\x0a\x09self deny: ast sequenceNode dagChildren last scope == ast scope.",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:", "deny:", "==", "scope", "last", "dagChildren", "sequenceNode"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ | b | b := a ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- $self._deny_($recv([$recv($recv($recv($recv(ast)._sequenceNode())._dagChildren())._last())._scope()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["scope"]=1
- //>>excludeEnd("ctx");
- ][0]).__eq_eq($recv(ast)._scope()));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testScope",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testScope2",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testScope2\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a | a + 1. [ [ | b | b := a ] ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast.\x0a\x0a\x09self deny: ast sequenceNode dagChildren last sequenceNode dagChildren first scope == ast scope.",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:", "deny:", "==", "scope", "first", "dagChildren", "sequenceNode", "last"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ [ | b | b := a ] ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- $self._deny_($recv([$recv($recv([$recv([$recv($recv($recv($recv(ast)._sequenceNode())._dagChildren())._last())._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=1
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=1
- //>>excludeEnd("ctx");
- ][0])._first())._scope()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["scope"]=1
- //>>excludeEnd("ctx");
- ][0]).__eq_eq($recv(ast)._scope()));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testScope2",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testScopeLevel",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testScopeLevel\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a | a + 1. [ [ | b | b := a ] ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast.\x0a\x0a\x09self assert: ast scope scopeLevel equals: 1.\x0a\x09self assert: ast sequenceNode dagChildren last sequenceNode dagChildren first scope scopeLevel equals: 3",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:", "assert:equals:", "scopeLevel", "scope", "first", "dagChildren", "sequenceNode", "last"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ [ | b | b := a ] ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- [$self._assert_equals_([$recv([$recv(ast)._scope()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["scope"]=1
- //>>excludeEnd("ctx");
- ][0])._scopeLevel()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["scopeLevel"]=1
- //>>excludeEnd("ctx");
- ][0],(1))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- $self._assert_equals_($recv($recv($recv([$recv([$recv($recv($recv($recv(ast)._sequenceNode())._dagChildren())._last())._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=1
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=1
- //>>excludeEnd("ctx");
- ][0])._first())._scope())._scopeLevel(),(3));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testScopeLevel",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testUnknownVariables",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testUnknownVariables\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a | b + a'.\x0a\x09ast := Smalltalk parse: src.\x0a\x0a\x09self should: [ analyzer visit: ast ] raise: UnknownVariableError",
- referencedClasses: ["Smalltalk", "UnknownVariableError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "should:raise:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | b + a";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv($self.analyzer)._visit_(ast);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),$globals.UnknownVariableError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testUnknownVariables",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testUnknownVariablesWithScope",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testUnknownVariablesWithScope\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a b | [ c + 1. [ a + 1. d + 1 ]]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09\x0a\x09self should: [ analyzer visit: ast ] raise: UnknownVariableError",
- referencedClasses: ["Smalltalk", "UnknownVariableError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "should:raise:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a b | [ c + 1. [ a + 1. d + 1 ]]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv($self.analyzer)._visit_(ast);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),$globals.UnknownVariableError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testUnknownVariablesWithScope",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testVariableShadowing",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testVariableShadowing\x0a\x09| src ast |\x0a\x09src := 'foo | a | a + 1'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testVariableShadowing",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testVariableShadowing2",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testVariableShadowing2\x0a\x09| src ast |\x0a\x09src := 'foo | a | a + 1. [ | a | a := 2 ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09self should: [analyzer visit: ast] raise: ShadowingVariableError",
- referencedClasses: ["Smalltalk", "ShadowingVariableError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "should:raise:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ | a | a := 2 ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv($self.analyzer)._visit_(ast);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),$globals.ShadowingVariableError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testVariableShadowing2",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testVariableShadowing3",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testVariableShadowing3\x0a\x09| src ast |\x0a\x09src := 'foo | a | a + 1. [ | b | b := 2 ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ | b | b := 2 ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testVariableShadowing3",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testVariableShadowing4",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testVariableShadowing4\x0a\x09| src ast |\x0a\x09src := 'foo | a | a + 1. [ [ [ | b | b := 2 ] ] ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ [ [ | b | b := 2 ] ] ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testVariableShadowing4",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testVariableShadowing5",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testVariableShadowing5\x0a\x09| src ast |\x0a\x09src := 'foo | a | a + 1. [ [ [ | a | a := 2 ] ] ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09self should: [analyzer visit: ast] raise: ShadowingVariableError",
- referencedClasses: ["Smalltalk", "ShadowingVariableError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "should:raise:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ [ [ | a | a := 2 ] ] ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $self._should_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv($self.analyzer)._visit_(ast);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),$globals.ShadowingVariableError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testVariableShadowing5",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testVariablesLookup",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testVariablesLookup\x0a\x09| src ast |\x0a\x0a\x09src := 'foo | a | a + 1. [ | b | b := a ]'.\x0a\x09ast := Smalltalk parse: src.\x0a\x09analyzer visit: ast.\x0a\x0a\x09\x22Binding for `a` in the message send\x22\x0a\x09self assert: ast sequenceNode dagChildren first receiver binding isAssignable.\x0a\x09self assert: ast sequenceNode dagChildren first receiver binding alias equals: 'a'.\x0a\x09self assert: ast sequenceNode dagChildren first receiver binding scope == ast scope.\x0a\x0a\x09\x22Binding for `b`\x22\x0a\x09self assert: ast sequenceNode dagChildren last sequenceNode dagChildren first left binding isAssignable.\x0a\x09self assert: ast sequenceNode dagChildren last sequenceNode dagChildren first left binding alias equals: 'b'.\x0a\x09self assert: ast sequenceNode dagChildren last sequenceNode dagChildren first left binding scope == ast sequenceNode dagChildren last scope.",
- referencedClasses: ["Smalltalk"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "visit:", "assert:", "isAssignable", "binding", "receiver", "first", "dagChildren", "sequenceNode", "assert:equals:", "alias", "==", "scope", "left", "last"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | a + 1. [ | b | b := a ]";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $recv($self.analyzer)._visit_(ast);
- [$self._assert_([$recv([$recv([$recv([$recv([$recv([$recv(ast)._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=1
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=1
- //>>excludeEnd("ctx");
- ][0])._first()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["first"]=1
- //>>excludeEnd("ctx");
- ][0])._receiver()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["receiver"]=1
- //>>excludeEnd("ctx");
- ][0])._binding()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["binding"]=1
- //>>excludeEnd("ctx");
- ][0])._isAssignable()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["isAssignable"]=1
- //>>excludeEnd("ctx");
- ][0])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_equals_([$recv([$recv([$recv([$recv([$recv([$recv(ast)._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=2
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=2
- //>>excludeEnd("ctx");
- ][0])._first()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["first"]=2
- //>>excludeEnd("ctx");
- ][0])._receiver()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["receiver"]=2
- //>>excludeEnd("ctx");
- ][0])._binding()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["binding"]=2
- //>>excludeEnd("ctx");
- ][0])._alias()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["alias"]=1
- //>>excludeEnd("ctx");
- ][0],"a")
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:equals:"]=1
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_([$recv([$recv([$recv($recv([$recv([$recv([$recv(ast)._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=3
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=3
- //>>excludeEnd("ctx");
- ][0])._first()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["first"]=3
- //>>excludeEnd("ctx");
- ][0])._receiver())._binding()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["binding"]=3
- //>>excludeEnd("ctx");
- ][0])._scope()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["scope"]=1
- //>>excludeEnd("ctx");
- ][0]).__eq_eq([$recv(ast)._scope()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["scope"]=2
- //>>excludeEnd("ctx");
- ][0])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["=="]=1
- //>>excludeEnd("ctx");
- ][0])
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:"]=2
- //>>excludeEnd("ctx");
- ][0];
- [$self._assert_($recv([$recv([$recv([$recv([$recv([$recv([$recv([$recv([$recv(ast)._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=5
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=5
- //>>excludeEnd("ctx");
- ][0])._last()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["last"]=1
- //>>excludeEnd("ctx");
- ][0])._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=4
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=4
- //>>excludeEnd("ctx");
- ][0])._first()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["first"]=4
- //>>excludeEnd("ctx");
- ][0])._left()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["left"]=1
- //>>excludeEnd("ctx");
- ][0])._binding()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["binding"]=4
- //>>excludeEnd("ctx");
- ][0])._isAssignable())
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["assert:"]=3
- //>>excludeEnd("ctx");
- ][0];
- $self._assert_equals_($recv([$recv([$recv([$recv([$recv([$recv([$recv([$recv([$recv(ast)._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=7
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=7
- //>>excludeEnd("ctx");
- ][0])._last()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["last"]=2
- //>>excludeEnd("ctx");
- ][0])._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=6
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=6
- //>>excludeEnd("ctx");
- ][0])._first()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["first"]=5
- //>>excludeEnd("ctx");
- ][0])._left()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["left"]=2
- //>>excludeEnd("ctx");
- ][0])._binding()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["binding"]=5
- //>>excludeEnd("ctx");
- ][0])._alias(),"b");
- $self._assert_($recv([$recv($recv($recv($recv([$recv([$recv([$recv([$recv([$recv(ast)._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=9
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=9
- //>>excludeEnd("ctx");
- ][0])._last()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["last"]=3
- //>>excludeEnd("ctx");
- ][0])._sequenceNode()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["sequenceNode"]=8
- //>>excludeEnd("ctx");
- ][0])._dagChildren()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["dagChildren"]=8
- //>>excludeEnd("ctx");
- ][0])._first())._left())._binding())._scope()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["scope"]=3
- //>>excludeEnd("ctx");
- ][0]).__eq_eq($recv($recv($recv($recv(ast)._sequenceNode())._dagChildren())._last())._scope()));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testVariablesLookup",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.SemanticAnalyzerTest);
- $core.addClass("AISemanticAnalyzerTest", $globals.SemanticAnalyzerTest, [], "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "setUp",
- protocol: "running",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "setUp\x0a\x09analyzer := (AISemanticAnalyzer on: Object)\x0a\x09\x09context: (AIContext new\x0a\x09\x09\x09defineLocal: 'local';\x0a\x09\x09\x09localAt: 'local' put: 3;\x0a\x09\x09\x09yourself);\x0a\x09\x09yourself",
- referencedClasses: ["AISemanticAnalyzer", "Object", "AIContext"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["context:", "on:", "defineLocal:", "new", "localAt:put:", "yourself"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- $1=$recv($globals.AISemanticAnalyzer)._on_($globals.Object);
- $2=$recv($globals.AIContext)._new();
- $recv($2)._defineLocal_("local");
- $recv($2)._localAt_put_("local",(3));
- $recv($1)._context_([$recv($2)._yourself()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["yourself"]=1
- //>>excludeEnd("ctx");
- ][0]);
- $self.analyzer=$recv($1)._yourself();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"setUp",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AISemanticAnalyzerTest);
- $core.addMethod(
- $core.method({
- selector: "testContextVariables",
- protocol: "tests",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "testContextVariables\x0a\x09| src ast |\x0a\x09\x0a\x09src := 'foo | a | local + a'.\x0a\x09ast := Smalltalk parse: src.\x0a\x0a\x09self shouldnt: [ analyzer visit: ast ] raise: UnknownVariableError",
- referencedClasses: ["Smalltalk", "UnknownVariableError"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:", "shouldnt:raise:", "visit:"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- var src,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- src="foo | a | local + a";
- ast=$recv($globals.Smalltalk)._parse_(src);
- $self._shouldnt_raise_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv($self.analyzer)._visit_(ast);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),$globals.UnknownVariableError);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"testContextVariables",{src:src,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.AISemanticAnalyzerTest);
- $core.addTrait("TASTCompilingTest", "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "codeGeneratorClass",
- protocol: "accessing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "codeGeneratorClass\x0a\x09self subclassResponsibility",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["subclassResponsibility"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._subclassResponsibility();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"codeGeneratorClass",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TASTCompilingTest);
- $core.addMethod(
- $core.method({
- selector: "compiler",
- protocol: "factory",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "compiler\x0a\x09^ Compiler new\x0a\x09\x09codeGeneratorClass: self codeGeneratorClass;\x0a\x09\x09yourself",
- referencedClasses: ["Compiler"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["codeGeneratorClass:", "new", "codeGeneratorClass", "yourself"]
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($globals.Compiler)._new();
- $recv($1)._codeGeneratorClass_($self._codeGeneratorClass());
- return $recv($1)._yourself();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"compiler",{})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TASTCompilingTest);
- $core.addMethod(
- $core.method({
- selector: "install:forClass:",
- protocol: "compiling",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass"],
- source: "install: aString forClass: aClass\x0a\x09^ self compiler\x0a\x09\x09install: aString\x0a\x09\x09forClass: aClass\x0a\x09\x09protocol: 'tests'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["install:forClass:protocol:", "compiler"]
- }, function ($methodClass){ return function (aString,aClass){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($self._compiler())._install_forClass_protocol_(aString,aClass,"tests");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"install:forClass:",{aString:aString,aClass:aClass})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TASTCompilingTest);
- $core.addMethod(
- $core.method({
- selector: "while:inClass:should:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass", "aBlock"],
- source: "while: aString inClass: aClass should: aBlock\x0a\x09| method |\x0a\x0a\x09[\x0a\x09\x09method := self install: aString forClass: aClass.\x0a\x09\x09aBlock value: method ]\x0a\x09ensure: [ method ifNotNil: [ aClass removeCompiledMethod: method ] ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["ensure:", "install:forClass:", "value:", "ifNotNil:", "removeCompiledMethod:"]
- }, function ($methodClass){ return function (aString,aClass,aBlock){
- var self=this,$self=this;
- var method;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $recv((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- method=$self._install_forClass_(aString,aClass);
- return $recv(aBlock)._value_(method);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }))._ensure_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- $1=method;
- if($1 == null || $1.a$nil){
- return $1;
- } else {
- return $recv(aClass)._removeCompiledMethod_(method);
- }
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"while:inClass:should:",{aString:aString,aClass:aClass,aBlock:aBlock,method:method})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TASTCompilingTest);
- $core.addMethod(
- $core.method({
- selector: "while:should:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aBlock"],
- source: "while: aString should: aBlock\x0a\x09self while: aString inClass: self receiver class should: aBlock",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["while:inClass:should:", "class", "receiver"]
- }, function ($methodClass){ return function (aString,aBlock){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $self._while_inClass_should_(aString,$recv($self._receiver())._class(),aBlock);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"while:should:",{aString:aString,aBlock:aBlock})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TASTCompilingTest);
- $core.addTrait("TASTParsingTest", "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "parse:forClass:",
- protocol: "parsing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass"],
- source: "parse: aString forClass: aClass\x0a\x09^ Compiler new\x0a\x09\x09ast: aString\x0a\x09\x09forClass: aClass\x0a\x09\x09protocol: 'test'",
- referencedClasses: ["Compiler"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["ast:forClass:protocol:", "new"]
- }, function ($methodClass){ return function (aString,aClass){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv($globals.Compiler)._new())._ast_forClass_protocol_(aString,aClass,"test");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"parse:forClass:",{aString:aString,aClass:aClass})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TASTParsingTest);
- $core.addTrait("TCTDebugged", "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "interpret:forClass:receiver:withArguments:",
- protocol: "private",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass", "anObject", "aDictionary"],
- source: "interpret: aString forClass: aClass receiver: anObject withArguments: aDictionary\x0a\x09\x22The food is a methodNode. Interpret the sequenceNode only\x22\x0a\x09\x0a\x09| ctx |\x0a\x09\x0a\x09ctx := self prepareContextFor: aString class: aClass receiver: anObject withArguments: aDictionary.\x0a\x09\x0a\x09^ (ASTDebugger context: ctx) proceed; result",
- referencedClasses: ["ASTDebugger"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["prepareContextFor:class:receiver:withArguments:", "proceed", "context:", "result"]
- }, function ($methodClass){ return function (aString,aClass,anObject,aDictionary){
- var self=this,$self=this;
- var ctx;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- ctx=$self._prepareContextFor_class_receiver_withArguments_(aString,aClass,anObject,aDictionary);
- $1=$recv($globals.ASTDebugger)._context_(ctx);
- $recv($1)._proceed();
- return $recv($1)._result();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"interpret:forClass:receiver:withArguments:",{aString:aString,aClass:aClass,anObject:anObject,aDictionary:aDictionary,ctx:ctx})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TCTDebugged);
- $core.addTrait("TCTExecuted", "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "while:inClass:should:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass", "aBlock"],
- source: "while: aString inClass: aClass should: aBlock\x0a\x09super\x0a\x09\x09while: aString\x0a\x09\x09inClass: aClass\x0a\x09\x09should: [ :method | aBlock value: [\x0a\x09\x09\x09self receiver perform: method selector withArguments: self arguments ] ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["while:inClass:should:", "value:", "perform:withArguments:", "receiver", "selector", "arguments"]
- }, function ($methodClass){ return function (aString,aClass,aBlock){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [(
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- $ctx1.supercall = true,
- //>>excludeEnd("ctx");
- ($methodClass.superclass||$boot.nilAsClass).fn.prototype._while_inClass_should_.call($self,aString,aClass,(function(method){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(aBlock)._value_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $recv($self._receiver())._perform_withArguments_($recv(method)._selector(),$self._arguments());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({method:method},$ctx1,1)});
- //>>excludeEnd("ctx");
- })))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.supercall = false
- //>>excludeEnd("ctx");
- ][0];
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"while:inClass:should:",{aString:aString,aClass:aClass,aBlock:aBlock})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TCTExecuted);
- $core.addTrait("TCTInlined", "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "codeGeneratorClass",
- protocol: "accessing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "codeGeneratorClass\x0a\x09^ InliningCodeGenerator",
- referencedClasses: ["InliningCodeGenerator"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: []
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- return $globals.InliningCodeGenerator;
- }; }),
- $globals.TCTInlined);
- $core.addTrait("TCTInterpreted", "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "interpret:forClass:receiver:withArguments:",
- protocol: "private",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass", "anObject", "aDictionary"],
- source: "interpret: aString forClass: aClass receiver: anObject withArguments: aDictionary\x0a\x09\x22The food is a methodNode. Interpret the sequenceNode only\x22\x0a\x09\x0a\x09| ctx |\x0a\x09\x0a\x09ctx := self prepareContextFor: aString class: aClass receiver: anObject withArguments: aDictionary.\x0a\x09\x0a\x09^ ctx interpreter proceed; result",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["prepareContextFor:class:receiver:withArguments:", "proceed", "interpreter", "result"]
- }, function ($methodClass){ return function (aString,aClass,anObject,aDictionary){
- var self=this,$self=this;
- var ctx;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- ctx=$self._prepareContextFor_class_receiver_withArguments_(aString,aClass,anObject,aDictionary);
- $1=$recv(ctx)._interpreter();
- $recv($1)._proceed();
- return $recv($1)._result();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"interpret:forClass:receiver:withArguments:",{aString:aString,aClass:aClass,anObject:anObject,aDictionary:aDictionary,ctx:ctx})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TCTInterpreted);
- $core.addMethod(
- $core.method({
- selector: "prepareContextFor:class:receiver:withArguments:",
- protocol: "private",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass", "anObject", "anArray"],
- source: "prepareContextFor: aString class: aClass receiver: anObject withArguments: anArray\x0a\x09\x22The food is a methodNode. Interpret the sequenceNode only\x22\x0a\x09\x0a\x09| ctx ast |\x0a\x09\x0a\x09ast := self parse: aString forClass: aClass.\x0a\x09\x0a\x09ctx := AIContext new\x0a\x09\x09receiver: anObject;\x0a\x09\x09selector: ast selector;\x0a\x09\x09interpreter: ASTInterpreter new;\x0a\x09\x09yourself.\x0a\x09\x09\x0a\x09\x22Define locals for the context\x22\x0a\x09ast sequenceNode ifNotNil: [ :sequence |\x0a\x09\x09sequence temps do: [ :each |\x0a\x09\x09\x09ctx defineLocal: each ] ].\x0a\x0a\x09ast arguments with: anArray do: [ :key :value |\x0a\x09\x09ctx defineLocal: key; localAt: key put: value ].\x0a\x09\x0a\x09ctx interpreter\x0a\x09\x09context: ctx;\x0a\x09\x09node: ast;\x0a\x09\x09enterNode.\x0a\x09\x0a\x09^ctx",
- referencedClasses: ["AIContext", "ASTInterpreter"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["parse:forClass:", "receiver:", "new", "selector:", "selector", "interpreter:", "yourself", "ifNotNil:", "sequenceNode", "do:", "temps", "defineLocal:", "with:do:", "arguments", "localAt:put:", "context:", "interpreter", "node:", "enterNode"]
- }, function ($methodClass){ return function (aString,aClass,anObject,anArray){
- var self=this,$self=this;
- var ctx,ast;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2,$3,$4;
- ast=$self._parse_forClass_(aString,aClass);
- $1=[$recv($globals.AIContext)._new()
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.sendIdx["new"]=1
- //>>excludeEnd("ctx");
- ][0];
- $recv($1)._receiver_(anObject);
- $recv($1)._selector_($recv(ast)._selector());
- $recv($1)._interpreter_($recv($globals.ASTInterpreter)._new());
- ctx=$recv($1)._yourself();
- $2=$recv(ast)._sequenceNode();
- if($2 == null || $2.a$nil){
- $2;
- } else {
- var sequence;
- sequence=$2;
- $recv($recv(sequence)._temps())._do_((function(each){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return [$recv(ctx)._defineLocal_(each)
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx2.sendIdx["defineLocal:"]=1
- //>>excludeEnd("ctx");
- ][0];
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
- //>>excludeEnd("ctx");
- }));
- }
- $recv($recv(ast)._arguments())._with_do_(anArray,(function(key,value){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- $3=ctx;
- $recv($3)._defineLocal_(key);
- return $recv($3)._localAt_put_(key,value);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1,3)});
- //>>excludeEnd("ctx");
- }));
- $4=$recv(ctx)._interpreter();
- $recv($4)._context_(ctx);
- $recv($4)._node_(ast);
- $recv($4)._enterNode();
- return ctx;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"prepareContextFor:class:receiver:withArguments:",{aString:aString,aClass:aClass,anObject:anObject,anArray:anArray,ctx:ctx,ast:ast})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TCTInterpreted);
- $core.addMethod(
- $core.method({
- selector: "while:inClass:should:",
- protocol: "testing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString", "aClass", "aBlock"],
- source: "while: aString inClass: aClass should: aBlock\x0a\x09super\x0a\x09\x09while: aString\x0a\x09\x09inClass: aClass\x0a\x09\x09should: [ aBlock value: [\x0a\x09\x09\x09self\x0a\x09\x09\x09\x09interpret: aString\x0a\x09\x09\x09\x09forClass: aClass\x0a\x09\x09\x09\x09receiver: self receiver\x0a\x09\x09\x09\x09withArguments: self arguments ] ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: ["while:inClass:should:", "value:", "interpret:forClass:receiver:withArguments:", "receiver", "arguments"]
- }, function ($methodClass){ return function (aString,aClass,aBlock){
- var self=this,$self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- [(
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- $ctx1.supercall = true,
- //>>excludeEnd("ctx");
- ($methodClass.superclass||$boot.nilAsClass).fn.prototype._while_inClass_should_.call($self,aString,aClass,(function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(aBlock)._value_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx3) {
- //>>excludeEnd("ctx");
- return $self._interpret_forClass_receiver_withArguments_(aString,aClass,$self._receiver(),$self._arguments());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
- //>>excludeEnd("ctx");
- }));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- })))
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- ,$ctx1.supercall = false
- //>>excludeEnd("ctx");
- ][0];
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"while:inClass:should:",{aString:aString,aClass:aClass,aBlock:aBlock})});
- //>>excludeEnd("ctx");
- }; }),
- $globals.TCTInterpreted);
- $core.addTrait("TCTNonInlined", "Compiler-Tests");
- $core.addMethod(
- $core.method({
- selector: "codeGeneratorClass",
- protocol: "accessing",
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "codeGeneratorClass\x0a\x09^ CodeGenerator",
- referencedClasses: ["CodeGenerator"],
- //>>excludeEnd("ide");
- pragmas: [],
- messageSends: []
- }, function ($methodClass){ return function (){
- var self=this,$self=this;
- return $globals.CodeGenerator;
- }; }),
- $globals.TCTNonInlined);
- $core.setTraitComposition([{trait: $globals.TASTParsingTest}], $globals.TASTCompilingTest);
- $core.setTraitComposition([{trait: $globals.TCTInterpreted}], $globals.TCTDebugged);
- $core.setTraitComposition([{trait: $globals.TASTCompilingTest}], $globals.ASTMethodRunningTest);
- $core.setTraitComposition([{trait: $globals.TCTNonInlined}, {trait: $globals.TCTDebugged}], $globals.ASTDebuggerTest);
- $core.setTraitComposition([{trait: $globals.TCTNonInlined}, {trait: $globals.TCTInterpreted}], $globals.ASTInterpreterTest);
- $core.setTraitComposition([{trait: $globals.TCTNonInlined}, {trait: $globals.TCTExecuted}], $globals.CodeGeneratorTest);
- $core.setTraitComposition([{trait: $globals.TCTInlined}, {trait: $globals.TCTExecuted}], $globals.InliningCodeGeneratorTest);
- $core.setTraitComposition([{trait: $globals.TClassBuildingTest}], $globals.AbstractJavaScriptGatewayTest);
- $core.setTraitComposition([{trait: $globals.TCTNonInlined}, {trait: $globals.TCTDebugged}], $globals.DebuggedJSGTest);
- $core.setTraitComposition([{trait: $globals.TCTInlined}, {trait: $globals.TCTExecuted}], $globals.InlinedJSGTest);
- $core.setTraitComposition([{trait: $globals.TCTNonInlined}, {trait: $globals.TCTInterpreted}], $globals.InterpretedJSGTest);
- $core.setTraitComposition([{trait: $globals.TCTNonInlined}, {trait: $globals.TCTExecuted}], $globals.PlainJSGTest);
- $core.setTraitComposition([{trait: $globals.TASTParsingTest}], $globals.ASTPCNodeVisitorTest);
- $core.setTraitComposition([{trait: $globals.TASTParsingTest}], $globals.ASTPositionTest);
- $core.setTraitComposition([{trait: $globals.TASTCompilingTest}], $globals.AbstractCodeGeneratorInstallTest);
- $core.setTraitComposition([{trait: $globals.TCTNonInlined}], $globals.CodeGeneratorInstallTest);
- $core.setTraitComposition([{trait: $globals.TCTInlined}], $globals.InliningCodeGeneratorInstallTest);
- });
|