12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522 |
- smalltalk.addPackage('Kernel-Tests', {});
- smalltalk.addClass('BlockClosureTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testCompiledSource",
- smalltalk.method({
- selector: "testCompiledSource",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((function(){
- return smalltalk.send((1),"__plus",[(1)]);
- }),"_compiledSource",[]),"_includesSubString_",["function"])]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testEnsure",
- smalltalk.method({
- selector: "testEnsure",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send((function(){
- return smalltalk.send((smalltalk.Error || Error),"_new",[]);
- }),"_ensure_",[(function(){
- return true;
- })])]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testNumArgs",
- smalltalk.method({
- selector: "testNumArgs",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(){
- }),"_numArgs",[]),(0)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a,b){
- }),"_numArgs",[]),(2)]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testOnDo",
- smalltalk.method({
- selector: "testOnDo",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send((function(){
- return smalltalk.send(smalltalk.send((smalltalk.Error || Error),"_new",[]),"_signal",[]);
- }),"_on_do_",[(smalltalk.Error || Error),(function(ex){
- return true;
- })])]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testValue",
- smalltalk.method({
- selector: "testValue",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(){
- return smalltalk.send((1),"__plus",[(1)]);
- }),"_value",[]),(2)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(x){
- return smalltalk.send(x,"__plus",[(1)]);
- }),"_value_",[(2)]),(3)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(x,y){
- return smalltalk.send(x,"__star",[y]);
- }),"_value_value_",[(2),(4)]),(8)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a,b,c){
- return (1);
- }),"_value",[]),(1)]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testValueWithPossibleArguments",
- smalltalk.method({
- selector: "testValueWithPossibleArguments",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(){
- return (1);
- }),"_valueWithPossibleArguments_",[[(3), (4)]]),(1)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a){
- return smalltalk.send(a,"__plus",[(4)]);
- }),"_valueWithPossibleArguments_",[[(3), (4)]]),(7)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((function(a,b){
- return smalltalk.send(a,"__plus",[b]);
- }),"_valueWithPossibleArguments_",[[(3), (4), (5)]]),(7)]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testWhileFalse",
- smalltalk.method({
- selector: "testWhileFalse",
- fn: function (){
- var self=this;
- var i;
- i=(0);
- smalltalk.send((function(){
- return smalltalk.send(i,"__gt",[(5)]);
- }),"_whileFalse_",[(function(){
- i=smalltalk.send(i,"__plus",[(1)]);
- return i;
- })]);
- smalltalk.send(self,"_assert_equals_",[i,(6)]);
- i=(0);
- smalltalk.send((function(){
- i=smalltalk.send(i,"__plus",[(1)]);
- i;
- return smalltalk.send(i,"__gt",[(5)]);
- }),"_whileFalse",[]);
- smalltalk.send(self,"_assert_equals_",[i,(6)]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testWhileTrue",
- smalltalk.method({
- selector: "testWhileTrue",
- fn: function (){
- var self=this;
- var i;
- i=(0);
- smalltalk.send((function(){
- return smalltalk.send(i,"__lt",[(5)]);
- }),"_whileTrue_",[(function(){
- i=smalltalk.send(i,"__plus",[(1)]);
- return i;
- })]);
- smalltalk.send(self,"_assert_equals_",[i,(5)]);
- i=(0);
- smalltalk.send((function(){
- i=smalltalk.send(i,"__plus",[(1)]);
- i;
- return smalltalk.send(i,"__lt",[(5)]);
- }),"_whileTrue",[]);
- smalltalk.send(self,"_assert_equals_",[i,(5)]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addClass('BooleanTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testEquality",
- smalltalk.method({
- selector: "testEquality",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq",[false])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[(0)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("","__eq",[false])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[""])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"__eq",[true])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[true])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(true,"__eq",[false])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(false,"__eq",[false])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq",[true])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq",[smalltalk.send(true,"_yourself",[])])]);
- return self}
- }),
- smalltalk.BooleanTest);
- smalltalk.addMethod(
- "_testIdentity",
- smalltalk.method({
- selector: "testIdentity",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq_eq",[false])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq_eq",[(0)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("","__eq_eq",[false])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq_eq",[""])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"__eq_eq",[true])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq_eq",[true])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(true,"__eq_eq",[false])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(false,"__eq_eq",[false])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq_eq",[true])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(true,"_yourself",[]),"__eq_eq",[smalltalk.send(true,"_yourself",[])])]);
- return self}
- }),
- smalltalk.BooleanTest);
- smalltalk.addMethod(
- "_testIfTrueIfFalse",
- smalltalk.method({
- selector: "testIfTrueIfFalse",
- fn: function (){
- var self=this;
- var $1,$2,$3,$4,$5,$6,$7,$8;
- if(smalltalk.assert(true)){
- $1="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($1,"__eq",["alternative block"])]);
- if(! smalltalk.assert(true)){
- $2="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($2,"__eq",[nil])]);
- if(smalltalk.assert(false)){
- $3="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($3,"__eq",[nil])]);
- if(! smalltalk.assert(false)){
- $4="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($4,"__eq",["alternative block"])]);
- if(smalltalk.assert(false)){
- $5="alternative block";
- } else {
- $5="alternative block2";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($5,"__eq",["alternative block2"])]);
- if(smalltalk.assert(false)){
- $6="alternative block2";
- } else {
- $6="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($6,"__eq",["alternative block"])]);
- if(smalltalk.assert(true)){
- $7="alternative block";
- } else {
- $7="alternative block2";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($7,"__eq",["alternative block"])]);
- if(smalltalk.assert(true)){
- $8="alternative block2";
- } else {
- $8="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($8,"__eq",["alternative block2"])]);
- return self}
- }),
- smalltalk.BooleanTest);
- smalltalk.addMethod(
- "_testLogic",
- smalltalk.method({
- selector: "testLogic",
- fn: function (){
- var self=this;
- var $1,$2,$3,$4;
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_&",[true])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(true,"_&",[false])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"_&",[true])]);
- $1=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_&",[false])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_|",[true])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_|",[false])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(false,"_|",[true])]);
- $2=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_|",[false])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_&",[smalltalk.send((1),"__gt",[(0)])])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_&",[false])]);
- $3=smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_&",[smalltalk.send((1),"__gt",[(2)])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(false,"_|",[smalltalk.send((1),"__gt",[(0)])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_|",[false])]);
- $4=smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_|",[smalltalk.send((1),"__gt",[(2)])])]);
- return self}
- }),
- smalltalk.BooleanTest);
- smalltalk.addMethod(
- "_testLogicKeywords",
- smalltalk.method({
- selector: "testLogicKeywords",
- fn: function (){
- var self=this;
- var $1,$2,$3,$4;
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_and_",[(function(){
- return true;
- })])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(true,"_and_",[(function(){
- return false;
- })])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"_and_",[(function(){
- return true;
- })])]);
- $1=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_and_",[(function(){
- return false;
- })])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_or_",[(function(){
- return true;
- })])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_or_",[(function(){
- return false;
- })])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(false,"_or_",[(function(){
- return true;
- })])]);
- $2=smalltalk.send(self,"_deny_",[smalltalk.send(false,"_or_",[(function(){
- return false;
- })])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(true,"_and_",[(function(){
- return smalltalk.send((1),"__gt",[(0)]);
- })])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_and_",[(function(){
- return false;
- })])]);
- $3=smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_and_",[(function(){
- return smalltalk.send((1),"__gt",[(2)]);
- })])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(false,"_or_",[(function(){
- return smalltalk.send((1),"__gt",[(0)]);
- })])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_or_",[(function(){
- return false;
- })])]);
- $4=smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__gt",[(0)]),"_or_",[(function(){
- return smalltalk.send((1),"__gt",[(2)]);
- })])]);
- return self}
- }),
- smalltalk.BooleanTest);
- smalltalk.addClass('ClassBuilderTest', smalltalk.TestCase, ['builder', 'theClass'], 'Kernel-Tests');
- smalltalk.addMethod(
- "_setUp",
- smalltalk.method({
- selector: "setUp",
- fn: function (){
- var self=this;
- self["@builder"]=smalltalk.send((smalltalk.ClassBuilder || ClassBuilder),"_new",[]);
- return self}
- }),
- smalltalk.ClassBuilderTest);
- smalltalk.addMethod(
- "_tearDown",
- smalltalk.method({
- selector: "tearDown",
- fn: function (){
- var self=this;
- if(($receiver = self["@theClass"]) == nil || $receiver == undefined){
- self["@theClass"];
- } else {
- smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]),"_removeClass_",[self["@theClass"]]);
- self["@theClass"]=nil;
- self["@theClass"];
- };
- return self}
- }),
- smalltalk.ClassBuilderTest);
- smalltalk.addMethod(
- "_testClassCopy",
- smalltalk.method({
- selector: "testClassCopy",
- fn: function (){
- var self=this;
- self["@theClass"]=smalltalk.send(self["@builder"],"_copyClass_named_",[(smalltalk.ObjectMock || ObjectMock),"ObjectMock2"]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(self["@theClass"],"_superclass",[]),"__eq_eq",[smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_superclass",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(self["@theClass"],"_instanceVariableNames",[]),"__eq_eq",[smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_instanceVariableNames",[])])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(self["@theClass"],"_name",[]),"ObjectMock2"]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(self["@theClass"],"_package",[]),"__eq_eq",[smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_package",[])])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self["@theClass"],"_methodDictionary",[]),"_keys",[]),smalltalk.send(smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_methodDictionary",[]),"_keys",[])]);
- return self}
- }),
- smalltalk.ClassBuilderTest);
- smalltalk.addMethod(
- "_testInstanceVariableNames",
- smalltalk.method({
- selector: "testInstanceVariableNames",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(self["@builder"],"_instanceVariableNamesFor_",[" hello world "]),["hello", "world"]]);
- return self}
- }),
- smalltalk.ClassBuilderTest);
- smalltalk.addClass('CollectionTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_assertSameContents_as_",
- smalltalk.method({
- selector: "assertSameContents:as:",
- fn: function (aCollection,anotherCollection){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(aCollection,"_size",[]),"__eq",[smalltalk.send(anotherCollection,"_size",[])])]);
- smalltalk.send(aCollection,"_do_",[(function(each){
- return smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(aCollection,"_occurrencesOf_",[each]),"__eq",[smalltalk.send(anotherCollection,"_occurrencesOf_",[each])])]);
- })]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_collection",
- smalltalk.method({
- selector: "collection",
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_withAll_",[smalltalk.send(self,"_defaultValues",[])]);
- return $1;
- }
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_collectionClass",
- smalltalk.method({
- selector: "collectionClass",
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.send(smalltalk.send(self,"_class",[]),"_collectionClass",[]);
- return $1;
- }
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_collectionWithDuplicates",
- smalltalk.method({
- selector: "collectionWithDuplicates",
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_withAll_",[["a", "b", "c", (1), (2), (1), "a"]]);
- return $1;
- }
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_defaultValues",
- smalltalk.method({
- selector: "defaultValues",
- fn: function (){
- var self=this;
- return [(1), (2), (3), (-4)];
- }
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_isCollectionReadOnly",
- smalltalk.method({
- selector: "isCollectionReadOnly",
- fn: function (){
- var self=this;
- return false;
- }
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testAsArray",
- smalltalk.method({
- selector: "testAsArray",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(self,"_collection",[]),smalltalk.send(smalltalk.send(self,"_collection",[]),"_asArray",[])]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testAsOrderedCollection",
- smalltalk.method({
- selector: "testAsOrderedCollection",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(self,"_collection",[]),smalltalk.send(smalltalk.send(self,"_collection",[]),"_asOrderedCollection",[])]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testAsSet",
- smalltalk.method({
- selector: "testAsSet",
- fn: function (){
- var self=this;
- var c;
- var set;
- c=smalltalk.send(self,"_collectionWithDuplicates",[]);
- set=smalltalk.send(c,"_asSet",[]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(set,"_size",[]),"__eq",[(5)])]);
- smalltalk.send(c,"_do_",[(function(each){
- return smalltalk.send(self,"_assert_",[smalltalk.send(set,"_includes_",[each])]);
- })]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testCollect",
- smalltalk.method({
- selector: "testCollect",
- fn: function (){
- var self=this;
- var newCollection;
- newCollection=[(1), (2), (3), (4)];
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_collect_",[(function(each){
- return smalltalk.send(each,"_abs",[]);
- })]),newCollection]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testDetect",
- smalltalk.method({
- selector: "testDetect",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
- return smalltalk.send(each,"__lt",[(0)]);
- })]),"__eq",[(-4)])]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
- return smalltalk.send(each,"__eq",[(6)]);
- })]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testDo",
- smalltalk.method({
- selector: "testDo",
- fn: function (){
- var self=this;
- var newCollection;
- newCollection=smalltalk.send((smalltalk.OrderedCollection || OrderedCollection),"_new",[]);
- smalltalk.send(smalltalk.send(self,"_collection",[]),"_do_",[(function(each){
- return smalltalk.send(newCollection,"_add_",[each]);
- })]);
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(self,"_collection",[]),newCollection]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testIsEmpty",
- smalltalk.method({
- selector: "testIsEmpty",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_new",[]),"_isEmpty",[])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_isEmpty",[])]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testSelect",
- smalltalk.method({
- selector: "testSelect",
- fn: function (){
- var self=this;
- var newCollection;
- newCollection=[(2), (-4)];
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_select_",[(function(each){
- return smalltalk.send(each,"_even",[]);
- })]),newCollection]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_testSize",
- smalltalk.method({
- selector: "testSize",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_new",[]),"_size",[]),"__eq",[(0)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_size",[]),"__eq",[(4)])]);
- return self}
- }),
- smalltalk.CollectionTest);
- smalltalk.addMethod(
- "_collectionClass",
- smalltalk.method({
- selector: "collectionClass",
- fn: function (){
- var self=this;
- return nil;
- }
- }),
- smalltalk.CollectionTest.klass);
- smalltalk.addMethod(
- "_isAbstract",
- smalltalk.method({
- selector: "isAbstract",
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.send(smalltalk.send(self,"_collectionClass",[]),"_isNil",[]);
- return $1;
- }
- }),
- smalltalk.CollectionTest.klass);
- smalltalk.addClass('HashedCollectionTest', smalltalk.CollectionTest, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_collection",
- smalltalk.method({
- selector: "collection",
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.HashedCollection._fromPairs_([smalltalk.send("a","__minus_gt",[(1)]),smalltalk.send("b","__minus_gt",[(2)]),smalltalk.send("c","__minus_gt",[(3)]),smalltalk.send("d","__minus_gt",[(-4)])]);
- return $1;
- }
- }),
- smalltalk.HashedCollectionTest);
- smalltalk.addMethod(
- "_collectionWithDuplicates",
- smalltalk.method({
- selector: "collectionWithDuplicates",
- fn: function (){
- var self=this;
- var $1;
- $1=smalltalk.HashedCollection._fromPairs_([smalltalk.send("a","__minus_gt",[(1)]),smalltalk.send("b","__minus_gt",[(2)]),smalltalk.send("c","__minus_gt",[(3)]),smalltalk.send("d","__minus_gt",[(-4)]),smalltalk.send("e","__minus_gt",[(1)]),smalltalk.send("f","__minus_gt",[(2)]),smalltalk.send("g","__minus_gt",[(10)])]);
- return $1;
- }
- }),
- smalltalk.HashedCollectionTest);
- smalltalk.addMethod(
- "_collectionClass",
- smalltalk.method({
- selector: "collectionClass",
- fn: function (){
- var self=this;
- return (smalltalk.HashedCollection || HashedCollection);
- }
- }),
- smalltalk.HashedCollectionTest.klass);
- smalltalk.addClass('DictionaryTest', smalltalk.HashedCollectionTest, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_collection",
- smalltalk.method({
- selector: "collection",
- fn: function (){
- var self=this;
- var $2,$3,$1;
- $2=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($2,"_at_put_",[(1),(1)]);
- smalltalk.send($2,"_at_put_",["a",(2)]);
- smalltalk.send($2,"_at_put_",[true,(3)]);
- smalltalk.send($2,"_at_put_",[(4),(-4)]);
- $3=smalltalk.send($2,"_yourself",[]);
- $1=$3;
- return $1;
- }
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_collectionWithDuplicates",
- smalltalk.method({
- selector: "collectionWithDuplicates",
- fn: function (){
- var self=this;
- var $2,$3,$1;
- $2=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($2,"_at_put_",[(1),(1)]);
- smalltalk.send($2,"_at_put_",["a",(2)]);
- smalltalk.send($2,"_at_put_",[true,(3)]);
- smalltalk.send($2,"_at_put_",[(4),(-4)]);
- smalltalk.send($2,"_at_put_",["b",(1)]);
- smalltalk.send($2,"_at_put_",[(3),(3)]);
- smalltalk.send($2,"_at_put_",[false,(12)]);
- $3=smalltalk.send($2,"_yourself",[]);
- $1=$3;
- return $1;
- }
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testAccessing",
- smalltalk.method({
- selector: "testAccessing",
- fn: function (){
- var self=this;
- var d;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_put_",["hello","world"]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_",["hello"]),"__eq",["world"])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_ifAbsent_",["hello",(function(){
- return nil;
- })]),"__eq",["world"])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(d,"_at_ifAbsent_",["foo",(function(){
- return nil;
- })]),"__eq",["world"])]);
- smalltalk.send(d,"_at_put_",[(1),(2)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_",[(1)]),"__eq",[(2)])]);
- smalltalk.send(d,"_at_put_",[smalltalk.send((1),"__at",[(3)]),(3)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_at_",[smalltalk.send((1),"__at",[(3)])]),"__eq",[(3)])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testDynamicDictionaries",
- smalltalk.method({
- selector: "testDynamicDictionaries",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.HashedCollection._fromPairs_([smalltalk.send("hello","__minus_gt",[(1)])]),"_asDictionary",[]),"__eq",[smalltalk.send((smalltalk.Dictionary || Dictionary),"_with_",[smalltalk.send("hello","__minus_gt",[(1)])])])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testEquality",
- smalltalk.method({
- selector: "testEquality",
- fn: function (){
- var self=this;
- var $1,$2,$3,$4,$5,$6,$7,$8,$9,$10;
- var d1;
- var d2;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]),"__eq",[smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[])])]);
- $1=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($1,"_at_put_",[(1),(2)]);
- $2=smalltalk.send($1,"_yourself",[]);
- d1=$2;
- $3=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($3,"_at_put_",[(1),(2)]);
- $4=smalltalk.send($3,"_yourself",[]);
- d2=$4;
- smalltalk.send(self,"_assert_",[smalltalk.send(d1,"__eq",[d2])]);
- $5=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($5,"_at_put_",[(1),(3)]);
- $6=smalltalk.send($5,"_yourself",[]);
- d2=$6;
- smalltalk.send(self,"_deny_",[smalltalk.send(d1,"__eq",[d2])]);
- $7=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($7,"_at_put_",[(2),(2)]);
- $8=smalltalk.send($7,"_yourself",[]);
- d2=$8;
- smalltalk.send(self,"_deny_",[smalltalk.send(d1,"__eq",[d2])]);
- $9=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($9,"_at_put_",[(1),(2)]);
- smalltalk.send($9,"_at_put_",[(3),(4)]);
- $10=smalltalk.send($9,"_yourself",[]);
- d2=$10;
- smalltalk.send(self,"_deny_",[smalltalk.send(d1,"__eq",[d2])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testIfAbsent",
- smalltalk.method({
- selector: "testIfAbsent",
- fn: function (){
- var self=this;
- var d;
- var visited;
- visited=false;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_ifAbsent_",["hello",(function(){
- visited=true;
- return visited;
- })]);
- smalltalk.send(self,"_assert_",[visited]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testIfPresent",
- smalltalk.method({
- selector: "testIfPresent",
- fn: function (){
- var self=this;
- var d;
- var visited;
- var absent;
- visited=false;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_put_",["hello","world"]);
- smalltalk.send(d,"_at_ifPresent_",["hello",(function(value){
- visited=value;
- return visited;
- })]);
- smalltalk.send(self,"_assert_",[smalltalk.send(visited,"__eq",["world"])]);
- absent=smalltalk.send(d,"_at_ifPresent_",["bye",(function(value){
- visited=value;
- return visited;
- })]);
- smalltalk.send(self,"_assert_",[smalltalk.send(absent,"_isNil",[])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testIfPresentIfAbsent",
- smalltalk.method({
- selector: "testIfPresentIfAbsent",
- fn: function (){
- var self=this;
- var d;
- var visited;
- visited=false;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_put_",["hello","world"]);
- smalltalk.send(d,"_at_ifPresent_ifAbsent_",["hello",(function(value){
- visited=value;
- return visited;
- }),(function(){
- visited=true;
- return visited;
- })]);
- smalltalk.send(self,"_assert_",[smalltalk.send(visited,"__eq",["world"])]);
- smalltalk.send(d,"_at_ifPresent_ifAbsent_",["buy",(function(value){
- visited=value;
- return visited;
- }),(function(){
- visited=true;
- return visited;
- })]);
- smalltalk.send(self,"_assert_",[visited]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testKeys",
- smalltalk.method({
- selector: "testKeys",
- fn: function (){
- var self=this;
- var d;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_put_",[(1),(2)]);
- smalltalk.send(d,"_at_put_",[(2),(3)]);
- smalltalk.send(d,"_at_put_",[(3),(4)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_keys",[]),"__eq",[[(1), (2), (3)]])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testPrintString",
- smalltalk.method({
- selector: "testPrintString",
- fn: function (){
- var self=this;
- var $1,$2;
- $1=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send($1,"_at_put_",["firstname","James"]);
- smalltalk.send($1,"_at_put_",["lastname","Bond"]);
- $2=smalltalk.send($1,"_printString",[]);
- smalltalk.send(self,"_assert_equals_",["a Dictionary('firstname'->'James' , 'lastname'->'Bond')",$2]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testRemoveKey",
- smalltalk.method({
- selector: "testRemoveKey",
- fn: function (){
- var self=this;
- var d;
- var key;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_put_",[(1),(2)]);
- smalltalk.send(d,"_at_put_",[(2),(3)]);
- smalltalk.send(d,"_at_put_",[(3),(4)]);
- key=(2);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_keys",[]),"__eq",[[(1), (2), (3)]])]);
- smalltalk.send(d,"_removeKey_",[key]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_keys",[]),"__eq",[[(1), (3)]])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_values",[]),"__eq",[[(2), (4)]])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(d,"_includesKey_",[(2)])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testRemoveKeyIfAbsent",
- smalltalk.method({
- selector: "testRemoveKeyIfAbsent",
- fn: function (){
- var self=this;
- var d;
- var key;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_put_",[(1),(2)]);
- smalltalk.send(d,"_at_put_",[(2),(3)]);
- smalltalk.send(d,"_at_put_",[(3),(4)]);
- key=(2);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_removeKey_",[key]),"__eq",[(3)])]);
- key=(3);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_removeKey_ifAbsent_",[key,(function(){
- return (42);
- })]),"__eq",[(4)])]);
- key="why";
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_removeKey_ifAbsent_",[key,(function(){
- return (42);
- })]),"__eq",[(42)])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testSize",
- smalltalk.method({
- selector: "testSize",
- fn: function (){
- var self=this;
- var d;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_size",[]),"__eq",[(0)])]);
- smalltalk.send(d,"_at_put_",[(1),(2)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_size",[]),"__eq",[(1)])]);
- smalltalk.send(d,"_at_put_",[(2),(3)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_size",[]),"__eq",[(2)])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_testValues",
- smalltalk.method({
- selector: "testValues",
- fn: function (){
- var self=this;
- var d;
- d=smalltalk.send((smalltalk.Dictionary || Dictionary),"_new",[]);
- smalltalk.send(d,"_at_put_",[(1),(2)]);
- smalltalk.send(d,"_at_put_",[(2),(3)]);
- smalltalk.send(d,"_at_put_",[(3),(4)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(d,"_values",[]),"__eq",[[(2), (3), (4)]])]);
- return self}
- }),
- smalltalk.DictionaryTest);
- smalltalk.addMethod(
- "_collectionClass",
- smalltalk.method({
- selector: "collectionClass",
- fn: function (){
- var self=this;
- return (smalltalk.Dictionary || Dictionary);
- }
- }),
- smalltalk.DictionaryTest.klass);
- smalltalk.addClass('SequenceableCollectionTest', smalltalk.CollectionTest, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testAt",
- smalltalk.method({
- selector: "testAt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_at_",[(4)]),"__eq",[(-4)])]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send(self,"_collection",[]),"_at_",[(5)]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.SequenceableCollectionTest);
- smalltalk.addMethod(
- "_testAtIfAbsent",
- smalltalk.method({
- selector: "testAtIfAbsent",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_at_ifAbsent_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_size",[]),"__plus",[(1)]),(function(){
- return "none";
- })]),"__eq",["none"])]);
- return self}
- }),
- smalltalk.SequenceableCollectionTest);
- smalltalk.addClass('ArrayTest', smalltalk.SequenceableCollectionTest, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testAtIfAbsent",
- smalltalk.method({
- selector: "testAtIfAbsent",
- fn: function (){
- var self=this;
- var array;
- array=["hello", "world"];
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_",[(1)]),"hello"]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_",[(2)]),"world"]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(2),(function(){
- return "not found";
- })]),"world"]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(0),(function(){
- return "not found";
- })]),"not found"]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(-10),(function(){
- return "not found";
- })]),"not found"]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(array,"_at_ifAbsent_",[(3),(function(){
- return "not found";
- })]),"not found"]);
- return self}
- }),
- smalltalk.ArrayTest);
- smalltalk.addMethod(
- "_testFirstN",
- smalltalk.method({
- selector: "testFirstN",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[[(1),(2),(3)],smalltalk.send([(1),(2),(3),(4),(5)],"_first_",[(3)])]);
- return self}
- }),
- smalltalk.ArrayTest);
- smalltalk.addMethod(
- "_testIfEmpty",
- smalltalk.method({
- selector: "testIfEmpty",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["zork",smalltalk.send("","_ifEmpty_",[(function(){
- return "zork";
- })])]);
- return self}
- }),
- smalltalk.ArrayTest);
- smalltalk.addMethod(
- "_testPrintString",
- smalltalk.method({
- selector: "testPrintString",
- fn: function (){
- var self=this;
- var $1,$2;
- var array;
- array=smalltalk.send((smalltalk.Array || Array),"_new",[]);
- smalltalk.send(self,"_assert_equals_",["a Array ()",smalltalk.send(array,"_printString",[])]);
- smalltalk.send(array,"_add_",[(1)]);
- $1=smalltalk.send(array,"_add_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Array (1 3)",smalltalk.send(array,"_printString",[])]);
- smalltalk.send(array,"_add_",["foo"]);
- smalltalk.send(self,"_assert_equals_",["a Array (1 3 'foo')",smalltalk.send(array,"_printString",[])]);
- smalltalk.send(array,"_remove_",[(1)]);
- $2=smalltalk.send(array,"_remove_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Array ('foo')",smalltalk.send(array,"_printString",[])]);
- smalltalk.send(array,"_addLast_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Array ('foo' 3)",smalltalk.send(array,"_printString",[])]);
- smalltalk.send(array,"_addLast_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Array ('foo' 3 3)",smalltalk.send(array,"_printString",[])]);
- return self}
- }),
- smalltalk.ArrayTest);
- smalltalk.addMethod(
- "_collectionClass",
- smalltalk.method({
- selector: "collectionClass",
- fn: function (){
- var self=this;
- return (smalltalk.Array || Array);
- }
- }),
- smalltalk.ArrayTest.klass);
- smalltalk.addClass('StringTest', smalltalk.SequenceableCollectionTest, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_collection",
- smalltalk.method({
- selector: "collection",
- fn: function (){
- var self=this;
- return "hello";
- }
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_collectionWithDuplicates",
- smalltalk.method({
- selector: "collectionWithDuplicates",
- fn: function (){
- var self=this;
- return "abbaerte";
- }
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testAddRemove",
- smalltalk.method({
- selector: "testAddRemove",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send("hello","_add_",["a"]);
- }),(smalltalk.Error || Error)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send("hello","_remove_",["h"]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testAsArray",
- smalltalk.method({
- selector: "testAsArray",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_asArray",[]),"__eq",[["h", "e", "l", "l", "o"]])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testAt",
- smalltalk.method({
- selector: "testAt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_at_",[(1)]),"__eq",["h"])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_at_",[(5)]),"__eq",["o"])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_at_ifAbsent_",[(6),(function(){
- return nil;
- })]),"__eq",[nil])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testAtPut",
- smalltalk.method({
- selector: "testAtPut",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send("hello","_at_put_",[(1),"a"]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testCollect",
- smalltalk.method({
- selector: "testCollect",
- fn: function (){
- var self=this;
- var newCollection;
- newCollection="hheelllloo";
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_collect_",[(function(each){
- return smalltalk.send(each,"__comma",[each]);
- })]),newCollection]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testCopyWithoutAll",
- smalltalk.method({
- selector: "testCopyWithoutAll",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["hello world",smalltalk.send("*hello* *world*","_copyWithoutAll_",["*"])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testDetect",
- smalltalk.method({
- selector: "testDetect",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
- return smalltalk.send(each,"__eq",["h"]);
- })]),"__eq",["h"])]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
- return smalltalk.send(each,"__eq",[(6)]);
- })]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testEquality",
- smalltalk.method({
- selector: "testEquality",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq",["hello"])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("hello","__eq",["world"])]);
- smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq",[smalltalk.send("hello","_yourself",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_yourself",[]),"__eq",["hello"])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("","__eq",[(0)])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testIdentity",
- smalltalk.method({
- selector: "testIdentity",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq_eq",["hello"])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("hello","__eq_eq",["world"])]);
- smalltalk.send(self,"_assert_",[smalltalk.send("hello","__eq_eq",[smalltalk.send("hello","_yourself",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("hello","_yourself",[]),"__eq_eq",["hello"])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("","__eq_eq",[(0)])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testIncludesSubString",
- smalltalk.method({
- selector: "testIncludesSubString",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send("amber","_includesSubString_",["ber"])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("amber","_includesSubString_",["zork"])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testJoin",
- smalltalk.method({
- selector: "testJoin",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["hello,world",smalltalk.send(",","_join_",[["hello", "world"]])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testSelect",
- smalltalk.method({
- selector: "testSelect",
- fn: function (){
- var self=this;
- var newCollection;
- newCollection="o";
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_select_",[(function(each){
- return smalltalk.send(each,"__eq",["o"]);
- })]),newCollection]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testSize",
- smalltalk.method({
- selector: "testSize",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send("smalltalk","_size",[]),(9)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send("","_size",[]),(0)]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_testStreamContents",
- smalltalk.method({
- selector: "testStreamContents",
- fn: function (){
- var self=this;
- var $1;
- smalltalk.send(self,"_assert_equals_",["hello world",smalltalk.send((smalltalk.String || String),"_streamContents_",[(function(aStream){
- smalltalk.send(aStream,"_nextPutAll_",["hello"]);
- smalltalk.send(aStream,"_space",[]);
- $1=smalltalk.send(aStream,"_nextPutAll_",["world"]);
- return $1;
- })])]);
- return self}
- }),
- smalltalk.StringTest);
- smalltalk.addMethod(
- "_collectionClass",
- smalltalk.method({
- selector: "collectionClass",
- fn: function (){
- var self=this;
- return (smalltalk.String || String);
- }
- }),
- smalltalk.StringTest.klass);
- smalltalk.addClass('SymbolTest', smalltalk.SequenceableCollectionTest, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_collection",
- smalltalk.method({
- selector: "collection",
- fn: function (){
- var self=this;
- return smalltalk.symbolFor("hello");
- }
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_collectionWithDuplicates",
- smalltalk.method({
- selector: "collectionWithDuplicates",
- fn: function (){
- var self=this;
- return smalltalk.symbolFor("phhaaarorra");
- }
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testAsString",
- smalltalk.method({
- selector: "testAsString",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.symbolFor("hello"),"_asString",[]),"hello"]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testAsSymbol",
- smalltalk.method({
- selector: "testAsSymbol",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq_eq",[smalltalk.send(smalltalk.symbolFor("hello"),"_asSymbol",[])])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testAt",
- smalltalk.method({
- selector: "testAt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_at_",[(1)]),"__eq",["h"])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_at_",[(5)]),"__eq",["o"])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_at_ifAbsent_",[(6),(function(){
- return nil;
- })]),"__eq",[nil])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testAtPut",
- smalltalk.method({
- selector: "testAtPut",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send("hello","_at_put_",[(1),"a"]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testCollect",
- smalltalk.method({
- selector: "testCollect",
- fn: function (){
- var self=this;
- var newCollection;
- newCollection=smalltalk.symbolFor("hheelllloo");
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_collect_",[(function(each){
- return smalltalk.send(each,"__comma",[each]);
- })]),newCollection]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testComparing",
- smalltalk.method({
- selector: "testComparing",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt",[smalltalk.symbolFor("aa")])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt",[smalltalk.symbolFor("ba")])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__lt",[smalltalk.symbolFor("ba")])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("bb"),"__lt",[smalltalk.symbolFor("ba")])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt_eq",[smalltalk.symbolFor("aa")])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("ab"),"__gt_eq",[smalltalk.symbolFor("ba")])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("ab"),"__lt_eq",[smalltalk.symbolFor("ba")])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("bb"),"__lt_eq",[smalltalk.symbolFor("ba")])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testCopying",
- smalltalk.method({
- selector: "testCopying",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_copy",[]),"__eq_eq",[smalltalk.symbolFor("hello")])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_deepCopy",[]),"__eq_eq",[smalltalk.symbolFor("hello")])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testDetect",
- smalltalk.method({
- selector: "testDetect",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
- return smalltalk.send(each,"__eq",["h"]);
- })]),"__eq",["h"])]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send(self,"_collection",[]),"_detect_",[(function(each){
- return smalltalk.send(each,"__eq",["z"]);
- })]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testEquality",
- smalltalk.method({
- selector: "testEquality",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.symbolFor("hello")])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.symbolFor("world")])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[]),"__eq",[smalltalk.symbolFor("hello")])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",["hello"])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("hello","__eq",[smalltalk.symbolFor("hello")])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testIdentity",
- smalltalk.method({
- selector: "testIdentity",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq_eq",[smalltalk.symbolFor("hello")])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq_eq",[smalltalk.symbolFor("world")])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"__eq",[smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_yourself",[]),"__eq",[smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"),"_asString",[]),"_asSymbol",[])])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testIsEmpty",
- smalltalk.method({
- selector: "testIsEmpty",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_isEmpty",[])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("","_asSymbol",[]),"_isEmpty",[])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testIsSymbolIsString",
- smalltalk.method({
- selector: "testIsSymbolIsString",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.symbolFor("hello"),"_isSymbol",[])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("hello","_isSymbol",[])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.symbolFor("hello"),"_isString",[])]);
- smalltalk.send(self,"_assert_",[smalltalk.send("hello","_isString",[])]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testSelect",
- smalltalk.method({
- selector: "testSelect",
- fn: function (){
- var self=this;
- var newCollection;
- newCollection="o";
- smalltalk.send(self,"_assertSameContents_as_",[smalltalk.send(smalltalk.send(self,"_collection",[]),"_select_",[(function(each){
- return smalltalk.send(each,"__eq",["o"]);
- })]),newCollection]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_testSize",
- smalltalk.method({
- selector: "testSize",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.symbolFor("a"),"_size",[]),(1)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.symbolFor("aaaaa"),"_size",[]),(5)]);
- return self}
- }),
- smalltalk.SymbolTest);
- smalltalk.addMethod(
- "_collectionClass",
- smalltalk.method({
- selector: "collectionClass",
- fn: function (){
- var self=this;
- return (smalltalk.Symbol || Symbol);
- }
- }),
- smalltalk.SymbolTest.klass);
- smalltalk.addClass('JSObjectProxyTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_jsObject",
- smalltalk.method({
- selector: "jsObject",
- fn: function (){
- var self=this;
- return jsObject = {a: 1, b: function() {return 2;}, c: function(object) {return object;}};
- ;
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testDNU",
- smalltalk.method({
- selector: "testDNU",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_foo",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testMessageSend",
- smalltalk.method({
- selector: "testMessageSend",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_a",[]),(1)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_b",[]),(2)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_c_",[(3)]),(3)]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testMethodWithArguments",
- smalltalk.method({
- selector: "testMethodWithArguments",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send("body","_asJQuery",[]),"_hasClass_",["amber"])]);
- smalltalk.send(smalltalk.send("body","_asJQuery",[]),"_addClass_",["amber"]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send("body","_asJQuery",[]),"_hasClass_",["amber"])]);
- smalltalk.send(smalltalk.send("body","_asJQuery",[]),"_removeClass_",["amber"]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send("body","_asJQuery",[]),"_hasClass_",["amber"])]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testPrinting",
- smalltalk.method({
- selector: "testPrinting",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_printString",[]),"__eq",["[object Object]"])]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testPropertyThatReturnsEmptyString",
- smalltalk.method({
- selector: "testPropertyThatReturnsEmptyString",
- fn: function (){
- var self=this;
- document.location.hash = '';
- ;
- smalltalk.send(self,"_assert_equals_",["",smalltalk.send(smalltalk.send(document,"_location",[]),"_hash",[])]);
- smalltalk.send(smalltalk.send(document,"_location",[]),"_hash_",["test"]);
- smalltalk.send(self,"_assert_equals_",["#test",smalltalk.send(smalltalk.send(document,"_location",[]),"_hash",[])]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testYourself",
- smalltalk.method({
- selector: "testYourself",
- fn: function (){
- var self=this;
- var $1,$2;
- var body;
- $1=smalltalk.send("body","_asJQuery",[]);
- smalltalk.send($1,"_addClass_",["amber"]);
- $2=smalltalk.send($1,"_yourself",[]);
- body=$2;
- smalltalk.send(self,"_assert_",[smalltalk.send(body,"_hasClass_",["amber"])]);
- smalltalk.send(body,"_removeClass_",["amber"]);
- smalltalk.send(self,"_deny_",[smalltalk.send(body,"_hasClass_",["amber"])]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addClass('NumberTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testAbs",
- smalltalk.method({
- selector: "testAbs",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((4),"_abs",[]),"__eq",[(4)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((-4),"_abs",[]),"__eq",[(4)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testArithmetic",
- smalltalk.method({
- selector: "testArithmetic",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1.5),"__plus",[(1)]),"__eq",[(2.5)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((2),"__minus",[(1)]),"__eq",[(1)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((-2),"__minus",[(1)]),"__eq",[(-3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((12),"__slash",[(2)]),"__eq",[(6)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"__star",[(4)]),"__eq",[(12)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send((1),"__plus",[(2)]),"__star",[(3)]),"__eq",[(9)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"__plus",[smalltalk.send((2),"__star",[(3)])]),"__eq",[(7)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testComparison",
- smalltalk.method({
- selector: "testComparison",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send((3),"__gt",[(2)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((2),"__lt",[(3)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send((3),"__lt",[(2)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send((2),"__gt",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((3),"__gt_eq",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((3.1),"__gt_eq",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((3),"__lt_eq",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((3),"__lt_eq",[(3.1)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testCopying",
- smalltalk.method({
- selector: "testCopying",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_copy",[]),"__eq_eq",[(1)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_deepCopy",[]),"__eq_eq",[(1)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testEquality",
- smalltalk.method({
- selector: "testEquality",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq",[(1)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((0),"__eq",[(0)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send((1),"__eq",[(0)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq",[(1)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq",[smalltalk.send((1),"_yourself",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq",[smalltalk.send((1),"_yourself",[])])]);
- smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq",[false])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(false,"__eq",[(0)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send("","__eq",[(0)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send((0),"__eq",[""])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testIdentity",
- smalltalk.method({
- selector: "testIdentity",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq_eq",[(1)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((0),"__eq_eq",[(0)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send((1),"__eq_eq",[(0)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq_eq",[(1)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send((1),"__eq_eq",[smalltalk.send((1),"_yourself",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((1),"_yourself",[]),"__eq_eq",[smalltalk.send((1),"_yourself",[])])]);
- smalltalk.send(self,"_deny_",[smalltalk.send((1),"__eq_eq",[(2)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testMinMax",
- smalltalk.method({
- selector: "testMinMax",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((2),"_max_",[(5)]),(5)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((2),"_min_",[(5)]),(2)]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testNegated",
- smalltalk.method({
- selector: "testNegated",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"_negated",[]),"__eq",[(-3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((-3),"_negated",[]),"__eq",[(3)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testPrintShowingDecimalPlaces",
- smalltalk.method({
- selector: "testPrintShowingDecimalPlaces",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["23.00",smalltalk.send((23),"_printShowingDecimalPlaces_",[(2)])]);
- smalltalk.send(self,"_assert_equals_",["23.57",smalltalk.send((23.5698),"_printShowingDecimalPlaces_",[(2)])]);
- smalltalk.send(self,"_assert_equals_",["-234.56700",smalltalk.send(smalltalk.send((234.567),"_negated",[]),"_printShowingDecimalPlaces_",[(5)])]);
- smalltalk.send(self,"_assert_equals_",["23",smalltalk.send((23.4567),"_printShowingDecimalPlaces_",[(0)])]);
- smalltalk.send(self,"_assert_equals_",["24",smalltalk.send((23.5567),"_printShowingDecimalPlaces_",[(0)])]);
- smalltalk.send(self,"_assert_equals_",["-23",smalltalk.send(smalltalk.send((23.4567),"_negated",[]),"_printShowingDecimalPlaces_",[(0)])]);
- smalltalk.send(self,"_assert_equals_",["-24",smalltalk.send(smalltalk.send((23.5567),"_negated",[]),"_printShowingDecimalPlaces_",[(0)])]);
- smalltalk.send(self,"_assert_equals_",["100000000.0",smalltalk.send((100000000),"_printShowingDecimalPlaces_",[(1)])]);
- smalltalk.send(self,"_assert_equals_",["0.98000",smalltalk.send((0.98),"_printShowingDecimalPlaces_",[(5)])]);
- smalltalk.send(self,"_assert_equals_",["-0.98",smalltalk.send(smalltalk.send((0.98),"_negated",[]),"_printShowingDecimalPlaces_",[(2)])]);
- smalltalk.send(self,"_assert_equals_",["2.57",smalltalk.send((2.567),"_printShowingDecimalPlaces_",[(2)])]);
- smalltalk.send(self,"_assert_equals_",["-2.57",smalltalk.send((-2.567),"_printShowingDecimalPlaces_",[(2)])]);
- smalltalk.send(self,"_assert_equals_",["0.00",smalltalk.send((0),"_printShowingDecimalPlaces_",[(2)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testRounded",
- smalltalk.method({
- selector: "testRounded",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"_rounded",[]),"__eq",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.212),"_rounded",[]),"__eq",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.51),"_rounded",[]),"__eq",[(4)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testSqrt",
- smalltalk.method({
- selector: "testSqrt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((4),"_sqrt",[]),"__eq",[(2)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((16),"_sqrt",[]),"__eq",[(4)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testSquared",
- smalltalk.method({
- selector: "testSquared",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((4),"_squared",[]),"__eq",[(16)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testTimesRepeat",
- smalltalk.method({
- selector: "testTimesRepeat",
- fn: function (){
- var self=this;
- var i;
- i=(0);
- smalltalk.send((0),"_timesRepeat_",[(function(){
- i=smalltalk.send(i,"__plus",[(1)]);
- return i;
- })]);
- smalltalk.send(self,"_assert_equals_",[i,(0)]);
- smalltalk.send((5),"_timesRepeat_",[(function(){
- i=smalltalk.send(i,"__plus",[(1)]);
- return i;
- })]);
- smalltalk.send(self,"_assert_equals_",[i,(5)]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testTo",
- smalltalk.method({
- selector: "testTo",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((1),"_to_",[(5)]),[(1), (2), (3), (4), (5)]]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testToBy",
- smalltalk.method({
- selector: "testToBy",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((0),"_to_by_",[(6),(2)]),[(0), (2), (4), (6)]]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((1),"_to_by_",[(4),(0)]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addMethod(
- "_testTruncated",
- smalltalk.method({
- selector: "testTruncated",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"_truncated",[]),"__eq",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.212),"_truncated",[]),"__eq",[(3)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3.51),"_truncated",[]),"__eq",[(3)])]);
- return self}
- }),
- smalltalk.NumberTest);
- smalltalk.addClass('ObjectMock', smalltalk.Object, ['foo', 'bar'], 'Kernel-Tests');
- smalltalk.addMethod(
- "_foo",
- smalltalk.method({
- selector: "foo",
- fn: function (){
- var self=this;
- return self["@foo"];
- }
- }),
- smalltalk.ObjectMock);
- smalltalk.addMethod(
- "_foo_",
- smalltalk.method({
- selector: "foo:",
- fn: function (anObject){
- var self=this;
- self["@foo"]=anObject;
- return self}
- }),
- smalltalk.ObjectMock);
- smalltalk.addClass('ObjectTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testBasicAccess",
- smalltalk.method({
- selector: "testBasicAccess",
- fn: function (){
- var self=this;
- var o;
- o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- smalltalk.send(o,"_basicAt_put_",["a",(1)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicAt_",["a"]),(1)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicAt_",["b"]),nil]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testBasicPerform",
- smalltalk.method({
- selector: "testBasicPerform",
- fn: function (){
- var self=this;
- var o;
- o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- smalltalk.send(o,"_basicAt_put_",["func",(function(){
- return "hello";
- })]);
- smalltalk.send(o,"_basicAt_put_",["func2",(function(a){
- return smalltalk.send(a,"__plus",[(1)]);
- })]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicPerform_",["func"]),"hello"]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_basicPerform_withArguments_",["func2",[(3)]]),(4)]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testDNU",
- smalltalk.method({
- selector: "testDNU",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_foo",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testEquality",
- smalltalk.method({
- selector: "testEquality",
- fn: function (){
- var self=this;
- var o;
- o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- smalltalk.send(self,"_deny_",[smalltalk.send(o,"__eq",[smalltalk.send((smalltalk.Object || Object),"_new",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq",[o])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(o,"_yourself",[]),"__eq",[o])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq",[smalltalk.send(o,"_yourself",[])])]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testHalt",
- smalltalk.method({
- selector: "testHalt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_halt",[]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testIdentity",
- smalltalk.method({
- selector: "testIdentity",
- fn: function (){
- var self=this;
- var o;
- o=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- smalltalk.send(self,"_deny_",[smalltalk.send(o,"__eq_eq",[smalltalk.send((smalltalk.Object || Object),"_new",[])])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq_eq",[o])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(o,"_yourself",[]),"__eq_eq",[o])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(o,"__eq_eq",[smalltalk.send(o,"_yourself",[])])]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testIfNil",
- smalltalk.method({
- selector: "testIfNil",
- fn: function (){
- var self=this;
- var $2,$1,$4,$3,$6,$5;
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_isNil",[])]);
- $2=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- if(($receiver = $2) == nil || $receiver == undefined){
- $1=true;
- } else {
- $1=$2;
- };
- smalltalk.send(self,"_deny_",[smalltalk.send($1,"__eq",[true])]);
- $4=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- if(($receiver = $4) == nil || $receiver == undefined){
- $3=$4;
- } else {
- $3=true;
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($3,"__eq",[true])]);
- $6=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- if(($receiver = $6) == nil || $receiver == undefined){
- $5=false;
- } else {
- $5=true;
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($5,"__eq",[true])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Object || Object),"_new",[]),"_ifNotNil_ifNil_",[(function(){
- return true;
- }),(function(){
- return false;
- })]),"__eq",[true])]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testInstVars",
- smalltalk.method({
- selector: "testInstVars",
- fn: function (){
- var self=this;
- var o;
- o=smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_new",[]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_instVarAt_",[smalltalk.symbolFor("foo")]),nil]);
- smalltalk.send(o,"_instVarAt_put_",[smalltalk.symbolFor("foo"),(1)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_instVarAt_",[smalltalk.symbolFor("foo")]),(1)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(o,"_instVarAt_",["foo"]),(1)]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testNilUndefined",
- smalltalk.method({
- selector: "testNilUndefined",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(nil,"__eq",[undefined])]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testYourself",
- smalltalk.method({
- selector: "testYourself",
- fn: function (){
- var self=this;
- var o;
- o=smalltalk.send((smalltalk.ObjectMock || ObjectMock),"_new",[]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(o,"_yourself",[]),"__eq_eq",[o])]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addMethod(
- "_testidentityHash",
- smalltalk.method({
- selector: "testidentityHash",
- fn: function (){
- var self=this;
- var o1;
- var o2;
- o1=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- o2=smalltalk.send((smalltalk.Object || Object),"_new",[]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(o1,"_identityHash",[]),"__eq_eq",[smalltalk.send(o1,"_identityHash",[])])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(o1,"_identityHash",[]),"__eq_eq",[smalltalk.send(o2,"_identityHash",[])])]);
- return self}
- }),
- smalltalk.ObjectTest);
- smalltalk.addClass('PackageTest', smalltalk.TestCase, ['zorkPackage', 'grulPackage', 'backUpCommitPathJs', 'backUpCommitPathSt'], 'Kernel-Tests');
- smalltalk.addMethod(
- "_setUp",
- smalltalk.method({
- selector: "setUp",
- fn: function (){
- var self=this;
- var $1,$2;
- self["@backUpCommitPathJs"]=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathJs",[]);
- self["@backUpCommitPathSt"]=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathSt",[]);
- smalltalk.send((smalltalk.Package || Package),"_resetCommitPaths",[]);
- self["@zorkPackage"]=smalltalk.send(smalltalk.send((smalltalk.Package || Package),"_new",[]),"_name_",["Zork"]);
- $1=smalltalk.send((smalltalk.Package || Package),"_new",[]);
- smalltalk.send($1,"_name_",["Grul"]);
- smalltalk.send($1,"_commitPathJs_",["server/grul/js"]);
- smalltalk.send($1,"_commitPathSt_",["grul/st"]);
- $2=smalltalk.send($1,"_yourself",[]);
- self["@grulPackage"]=$2;
- return self}
- }),
- smalltalk.PackageTest);
- smalltalk.addMethod(
- "_tearDown",
- smalltalk.method({
- selector: "tearDown",
- fn: function (){
- var self=this;
- var $1;
- smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathJs_",[self["@backUpCommitPathJs"]]);
- $1=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathSt_",[self["@backUpCommitPathSt"]]);
- return self}
- }),
- smalltalk.PackageTest);
- smalltalk.addMethod(
- "_testGrulCommitPathJsShouldBeServerGrulJs",
- smalltalk.method({
- selector: "testGrulCommitPathJsShouldBeServerGrulJs",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["server/grul/js",smalltalk.send(self["@grulPackage"],"_commitPathJs",[])]);
- return self}
- }),
- smalltalk.PackageTest);
- smalltalk.addMethod(
- "_testGrulCommitPathStShouldBeGrulSt",
- smalltalk.method({
- selector: "testGrulCommitPathStShouldBeGrulSt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["grul/st",smalltalk.send(self["@grulPackage"],"_commitPathSt",[])]);
- return self}
- }),
- smalltalk.PackageTest);
- smalltalk.addMethod(
- "_testZorkCommitPathJsShouldBeJs",
- smalltalk.method({
- selector: "testZorkCommitPathJsShouldBeJs",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["js",smalltalk.send(self["@zorkPackage"],"_commitPathJs",[])]);
- return self}
- }),
- smalltalk.PackageTest);
- smalltalk.addMethod(
- "_testZorkCommitPathStShouldBeSt",
- smalltalk.method({
- selector: "testZorkCommitPathStShouldBeSt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["st",smalltalk.send(self["@zorkPackage"],"_commitPathSt",[])]);
- return self}
- }),
- smalltalk.PackageTest);
- smalltalk.addClass('PackageWithDefaultCommitPathChangedTest', smalltalk.PackageTest, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_setUp",
- smalltalk.method({
- selector: "setUp",
- fn: function (){
- var self=this;
- var $1;
- smalltalk.send(self,"_setUp",[],smalltalk.PackageTest);
- smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathJs_",["javascripts/"]);
- $1=smalltalk.send((smalltalk.Package || Package),"_defaultCommitPathSt_",["smalltalk/"]);
- return self}
- }),
- smalltalk.PackageWithDefaultCommitPathChangedTest);
- smalltalk.addMethod(
- "_testGrulCommitPathJsShouldBeServerGrulJs",
- smalltalk.method({
- selector: "testGrulCommitPathJsShouldBeServerGrulJs",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["server/grul/js",smalltalk.send(self["@grulPackage"],"_commitPathJs",[])]);
- return self}
- }),
- smalltalk.PackageWithDefaultCommitPathChangedTest);
- smalltalk.addMethod(
- "_testGrulCommitPathStShouldBeGrulSt",
- smalltalk.method({
- selector: "testGrulCommitPathStShouldBeGrulSt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["grul/st",smalltalk.send(self["@grulPackage"],"_commitPathSt",[])]);
- return self}
- }),
- smalltalk.PackageWithDefaultCommitPathChangedTest);
- smalltalk.addMethod(
- "_testZorkCommitPathJsShouldBeJavascript",
- smalltalk.method({
- selector: "testZorkCommitPathJsShouldBeJavascript",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["javascripts/",smalltalk.send(self["@zorkPackage"],"_commitPathJs",[])]);
- return self}
- }),
- smalltalk.PackageWithDefaultCommitPathChangedTest);
- smalltalk.addMethod(
- "_testZorkCommitPathStShouldBeSmalltalk",
- smalltalk.method({
- selector: "testZorkCommitPathStShouldBeSmalltalk",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",["smalltalk/",smalltalk.send(self["@zorkPackage"],"_commitPathSt",[])]);
- return self}
- }),
- smalltalk.PackageWithDefaultCommitPathChangedTest);
- smalltalk.addMethod(
- "_shouldInheritSelectors",
- smalltalk.method({
- selector: "shouldInheritSelectors",
- fn: function (){
- var self=this;
- return false;
- }
- }),
- smalltalk.PackageWithDefaultCommitPathChangedTest.klass);
- smalltalk.addClass('PointTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testAccessing",
- smalltalk.method({
- selector: "testAccessing",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_x_y_",[(3),(4)]),"_x",[]),(3)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_x_y_",[(3),(4)]),"_y",[]),(4)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_new",[]),"_x_",[(3)]),"_x",[]),(3)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send(smalltalk.send((smalltalk.Point || Point),"_new",[]),"_y_",[(4)]),"_y",[]),(4)]);
- return self}
- }),
- smalltalk.PointTest);
- smalltalk.addMethod(
- "_testArithmetic",
- smalltalk.method({
- selector: "testArithmetic",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__star",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(9),(16)])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__plus",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(6),(8)])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__minus",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(0),(0)])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((6),"__at",[(8)]),"__slash",[smalltalk.send((3),"__at",[(4)])]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(2),(2)])]);
- return self}
- }),
- smalltalk.PointTest);
- smalltalk.addMethod(
- "_testAt",
- smalltalk.method({
- selector: "testAt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((3),"__at",[(4)]),smalltalk.send((smalltalk.Point || Point),"_x_y_",[(3),(4)])]);
- return self}
- }),
- smalltalk.PointTest);
- smalltalk.addMethod(
- "_testEgality",
- smalltalk.method({
- selector: "testEgality",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((3),"__at",[(4)]),"__eq",[smalltalk.send((3),"__at",[(4)])])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send((3),"__at",[(5)]),"__eq",[smalltalk.send((3),"__at",[(6)])])]);
- return self}
- }),
- smalltalk.PointTest);
- smalltalk.addMethod(
- "_testTranslateBy",
- smalltalk.method({
- selector: "testTranslateBy",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((3),"__at",[(4)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send((0),"__at",[(1)])])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((3),"__at",[(2)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send((0),"__at",[smalltalk.send((1),"_negated",[])])])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((5),"__at",[(6)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send((2),"__at",[(3)])])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send((0),"__at",[(3)]),smalltalk.send(smalltalk.send((3),"__at",[(3)]),"_translateBy_",[smalltalk.send(smalltalk.send((3),"_negated",[]),"__at",[(0)])])]);
- return self}
- }),
- smalltalk.PointTest);
- smalltalk.addClass('RandomTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_textNext",
- smalltalk.method({
- selector: "textNext",
- fn: function (){
- var self=this;
- smalltalk.send((10000),"_timesRepeat_",[(function(){
- var current;
- var next;
- next=smalltalk.send(smalltalk.send((smalltalk.Random || Random),"_new",[]),"_next",[]);
- next;
- smalltalk.send(self,"_assert_",[smalltalk.send(next,"__gt_eq",[(0)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(next,"__lt",[(1)])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(current,"__eq",[next])]);
- return smalltalk.send(next,"__eq",[current]);
- })]);
- return self}
- }),
- smalltalk.RandomTest);
- smalltalk.addClass('SetTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testAddRemove",
- smalltalk.method({
- selector: "testAddRemove",
- fn: function (){
- var self=this;
- var set;
- set=smalltalk.send((smalltalk.Set || Set),"_new",[]);
- smalltalk.send(self,"_assert_",[smalltalk.send(set,"_isEmpty",[])]);
- smalltalk.send(set,"_add_",[(3)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(set,"_includes_",[(3)])]);
- smalltalk.send(set,"_add_",[(5)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(set,"_includes_",[(5)])]);
- smalltalk.send(set,"_remove_",[(3)]);
- smalltalk.send(self,"_deny_",[smalltalk.send(set,"_includes_",[(3)])]);
- return self}
- }),
- smalltalk.SetTest);
- smalltalk.addMethod(
- "_testAt",
- smalltalk.method({
- selector: "testAt",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_new",[]),"_at_put_",[(1),(2)]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.SetTest);
- smalltalk.addMethod(
- "_testPrintString",
- smalltalk.method({
- selector: "testPrintString",
- fn: function (){
- var self=this;
- var $1,$2;
- var set;
- set=smalltalk.send((smalltalk.Set || Set),"_new",[]);
- smalltalk.send(self,"_assert_equals_",["a Set ()",smalltalk.send(set,"_printString",[])]);
- smalltalk.send(set,"_add_",[(1)]);
- $1=smalltalk.send(set,"_add_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Set (1 3)",smalltalk.send(set,"_printString",[])]);
- smalltalk.send(set,"_add_",["foo"]);
- smalltalk.send(self,"_assert_equals_",["a Set (1 3 'foo')",smalltalk.send(set,"_printString",[])]);
- smalltalk.send(set,"_remove_",[(1)]);
- $2=smalltalk.send(set,"_remove_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Set ('foo')",smalltalk.send(set,"_printString",[])]);
- smalltalk.send(set,"_add_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Set ('foo' 3)",smalltalk.send(set,"_printString",[])]);
- smalltalk.send(set,"_add_",[(3)]);
- smalltalk.send(self,"_assert_equals_",["a Set ('foo' 3)",smalltalk.send(set,"_printString",[])]);
- return self}
- }),
- smalltalk.SetTest);
- smalltalk.addMethod(
- "_testSize",
- smalltalk.method({
- selector: "testSize",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_new",[]),"_size",[]),(0)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_withAll_",[[(1), (2), (3), (4)]]),"_size",[]),(4)]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(smalltalk.send((smalltalk.Set || Set),"_withAll_",[[(1), (1), (1), (1)]]),"_size",[]),(1)]);
- return self}
- }),
- smalltalk.SetTest);
- smalltalk.addMethod(
- "_testUnicity",
- smalltalk.method({
- selector: "testUnicity",
- fn: function (){
- var self=this;
- var set;
- set=smalltalk.send((smalltalk.Set || Set),"_new",[]);
- smalltalk.send(set,"_add_",[(21)]);
- smalltalk.send(set,"_add_",["hello"]);
- smalltalk.send(set,"_add_",[(21)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(set,"_size",[]),"__eq",[(2)])]);
- smalltalk.send(set,"_add_",["hello"]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(set,"_size",[]),"__eq",[(2)])]);
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(set,"_asArray",[]),[(21), "hello"]]);
- return self}
- }),
- smalltalk.SetTest);
- smalltalk.addClass('UndefinedTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testCopying",
- smalltalk.method({
- selector: "testCopying",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(nil,"_copy",[]),nil]);
- return self}
- }),
- smalltalk.UndefinedTest);
- smalltalk.addMethod(
- "_testDeepCopy",
- smalltalk.method({
- selector: "testDeepCopy",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(nil,"_deepCopy",[]),"__eq",[nil])]);
- return self}
- }),
- smalltalk.UndefinedTest);
- smalltalk.addMethod(
- "_testIfNil",
- smalltalk.method({
- selector: "testIfNil",
- fn: function (){
- var self=this;
- var $1,$2,$3;
- if(($receiver = nil) == nil || $receiver == undefined){
- $1=true;
- } else {
- $1=nil;
- };
- smalltalk.send(self,"_assert_equals_",[$1,true]);
- if(($receiver = nil) == nil || $receiver == undefined){
- $2=nil;
- } else {
- $2=true;
- };
- smalltalk.send(self,"_deny_",[smalltalk.send($2,"__eq",[true])]);
- if(($receiver = nil) == nil || $receiver == undefined){
- $3=true;
- } else {
- $3=false;
- };
- smalltalk.send(self,"_assert_equals_",[$3,true]);
- smalltalk.send(self,"_deny_",[smalltalk.send(smalltalk.send(nil,"_ifNotNil_ifNil_",[(function(){
- return true;
- }),(function(){
- return false;
- })]),"__eq",[true])]);
- return self}
- }),
- smalltalk.UndefinedTest);
- smalltalk.addMethod(
- "_testIsNil",
- smalltalk.method({
- selector: "testIsNil",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send(nil,"_isNil",[])]);
- smalltalk.send(self,"_deny_",[smalltalk.send(nil,"_notNil",[])]);
- return self}
- }),
- smalltalk.UndefinedTest);
|