1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824 |
- smalltalk.addPackage('Kernel-Tests', {});
- smalltalk.addClass('BlockClosureTest', smalltalk.TestCase, [], 'Kernel-Tests');
- smalltalk.addMethod(
- "_testCanClearInterval",
- smalltalk.method({
- selector: "testCanClearInterval",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_shouldnt_raise_",[(function(){
- return smalltalk.send(smalltalk.send((function(){
- return smalltalk.send(smalltalk.send((smalltalk.Error || Error),"_new",[]),"_signal",[]);
- }),"_valueWithInterval_",[(0)]),"_clearInterval",[]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testCanClearTimeout",
- smalltalk.method({
- selector: "testCanClearTimeout",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_shouldnt_raise_",[(function(){
- return smalltalk.send(smalltalk.send((function(){
- return smalltalk.send(smalltalk.send((smalltalk.Error || Error),"_new",[]),"_signal",[]);
- }),"_valueWithTimeout_",[(0)]),"_clearTimeout",[]);
- }),(smalltalk.Error || Error)]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- 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_equals_",[(3),smalltalk.send((function(){
- return (3);
- }),"_ensure_",[(function(){
- return (4);
- })])]);
- return self}
- }),
- smalltalk.BlockClosureTest);
- smalltalk.addMethod(
- "_testEnsureRaises",
- smalltalk.method({
- selector: "testEnsureRaises",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((function(){
- return smalltalk.send(smalltalk.send((smalltalk.Error || Error),"_new",[]),"_signal",[]);
- }),"_ensure_",[(function(){
- return true;
- })]);
- }),(smalltalk.Error || Error)]);
- 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(
- "_testIfTrueIfFalseWithBoxing",
- smalltalk.method({
- selector: "testIfTrueIfFalseWithBoxing",
- fn: function (){
- var self=this;
- var $2,$1,$4,$3,$6,$5,$8,$7,$10,$9,$12,$11,$14,$13,$16,$15;
- $2=smalltalk.send(true,"_boxed",[]);
- if(smalltalk.assert($2)){
- $1="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($1,"__eq",["alternative block"])]);
- $4=smalltalk.send(true,"_boxed",[]);
- if(! smalltalk.assert($4)){
- $3="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($3,"__eq",[nil])]);
- $6=smalltalk.send(false,"_boxed",[]);
- if(smalltalk.assert($6)){
- $5="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($5,"__eq",[nil])]);
- $8=smalltalk.send(false,"_boxed",[]);
- if(! smalltalk.assert($8)){
- $7="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($7,"__eq",["alternative block"])]);
- $10=smalltalk.send(false,"_boxed",[]);
- if(smalltalk.assert($10)){
- $9="alternative block";
- } else {
- $9="alternative block2";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($9,"__eq",["alternative block2"])]);
- $12=smalltalk.send(false,"_boxed",[]);
- if(smalltalk.assert($12)){
- $11="alternative block2";
- } else {
- $11="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($11,"__eq",["alternative block"])]);
- $14=smalltalk.send(true,"_boxed",[]);
- if(smalltalk.assert($14)){
- $13="alternative block";
- } else {
- $13="alternative block2";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($13,"__eq",["alternative block"])]);
- $16=smalltalk.send(true,"_boxed",[]);
- if(smalltalk.assert($16)){
- $15="alternative block2";
- } else {
- $15="alternative block";
- };
- smalltalk.send(self,"_assert_",[smalltalk.send($15,"__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.addMethod(
- "_testNonBooleanError",
- smalltalk.method({
- selector: "testNonBooleanError",
- fn: function (){
- var self=this;
- var b;
- b= '' ;
- ;
- smalltalk.send(self,"_should_raise_",[(function(){
- if(smalltalk.assert(self["@nonBoolean"])){
- } else {
- };
- }),(smalltalk.NonBooleanReceiver || NonBooleanReceiver)]);
- 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;}, d: '', 'e': null};
- ;
- 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,"_assert_equals_",[smalltalk.send(smalltalk.send(self,"_jsObject",[]),"_c_",[(1)]),(1)]);
- 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;
- var object;
- object=smalltalk.send(self,"_jsObject",[]);
- smalltalk.send(self,"_assert_equals_",["",smalltalk.send(object,"_d",[])]);
- smalltalk.send(object,"_d_",["hello"]);
- smalltalk.send(self,"_assert_equals_",["hello",smalltalk.send(object,"_d",[])]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testPropertyThatReturnsUndefined",
- smalltalk.method({
- selector: "testPropertyThatReturnsUndefined",
- fn: function (){
- var self=this;
- var object;
- object=smalltalk.send(self,"_jsObject",[]);
- smalltalk.send(self,"_shouldnt_raise_",[(function(){
- return smalltalk.send(object,"_e",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(object,"_e",[]),"_isNil",[])]);
- return self}
- }),
- smalltalk.JSObjectProxyTest);
- smalltalk.addMethod(
- "_testYourself",
- smalltalk.method({
- selector: "testYourself",
- fn: function (){
- var self=this;
- var $1,$2;
- var object;
- $1=smalltalk.send(self,"_jsObject",[]);
- smalltalk.send($1,"_d_",["test"]);
- $2=smalltalk.send($1,"_yourself",[]);
- object=$2;
- smalltalk.send(self,"_assert_equals_",[smalltalk.send(object,"_d",[]),"test"]);
- 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(
- "_testHexNumbers",
- smalltalk.method({
- selector: "testHexNumbers",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_assert_",[smalltalk.send((9),"__eq",[(9)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((10),"_truncated",[]),"__eq",[(10)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((11),"_truncated",[]),"__eq",[(11)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((12),"_truncated",[]),"__eq",[(12)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((13),"_truncated",[]),"__eq",[(13)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((14),"_truncated",[]),"__eq",[(14)])]);
- smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send((15),"_truncated",[]),"__eq",[(15)])]);
- 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(
- "_testInvalidHexNumbers",
- smalltalk.method({
- selector: "testInvalidHexNumbers",
- fn: function (){
- var self=this;
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rG",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rg",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rH",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rh",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rI",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_ri",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rJ",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rj",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rK",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rk",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rL",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rl",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rM",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rm",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rN",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rn",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rO",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_ro",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rP",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rp",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rQ",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rq",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rR",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rr",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rS",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rs",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rT",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rt",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rU",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_ru",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rV",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rv",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rW",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rw",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rX",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rx",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rY",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_ry",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rZ",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((16),"_rz",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- smalltalk.send(self,"_should_raise_",[(function(){
- return smalltalk.send((11259375),"_Z",[]);
- }),(smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
- 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;
- var notDefined;
- notDefined = undefined;
- ;
- smalltalk.send(self,"_assert_",[smalltalk.send(nil,"__eq",[notDefined])]);
- 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);
- smalltalk.addMethod(
- "_boxed",
- smalltalk.method({
- selector: "boxed",
- fn: function (){
- var self=this;
- var $1;
- $1=self;
- return $1;
- }
- }),
- smalltalk.Boolean);
|