1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429 | # regular argument assert_equal '1', 'def m() 1 end; m()' assert_equal '1', 'def m(a) a end; m(1)' assert_equal '[1, 2]', 'def m(a,b) [a, b] end; m(1,2)' assert_equal '[1, 2, 3]', 'def m(a,b,c) [a, b, c] end; m(1,2,3)' assert_match /\Awrong number of arguments \(.*\b1\b.* 0\)\z/, %q{ def m; end begin m(1) rescue => e e.message end } assert_match /\Awrong number of arguments \(.*\b0\b.* 1\)\z/, %q{ def m a; end begin m rescue => e e.message end } # default argument assert_equal '1', 'def m(x=1) x end; m();' assert_equal '1', 'def m(x=7) x end; m(1)' assert_equal '1', 'def m(a,x=1) x end; m(7)' assert_equal '1', 'def m(a,x=7) x end; m(7,1)' assert_equal '1', 'def m(a,b,x=1) x end; m(7,7)' assert_equal '1', 'def m(a,b,x=7) x end; m(7,7,1)' assert_equal '1', 'def m(a,x=1,y=1) x end; m(7)' assert_equal '1', 'def m(a,x=1,y=1) y end; m(7)' assert_equal '1', 'def m(a,x=7,y=1) x end; m(7,1)' assert_equal '1', 'def m(a,x=7,y=1) y end; m(7,1)' assert_equal '1', 'def m(a,x=7,y=7) x end; m(7,1,1)' assert_equal '1', 'def m(a,x=7,y=7) y end; m(7,1,1)' # rest argument assert_equal '[]', 'def m(*a) a end; m().inspect' assert_equal '[1]', 'def m(*a) a end; m(1).inspect' assert_equal '[1, 2]', 'def m(*a) a end; m(1,2).inspect' assert_equal '[]', 'def m(x,*a) a end; m(7).inspect' assert_equal '[1]', 'def m(x,*a) a end; m(7,1).inspect' assert_equal '[1, 2]', 'def m(x,*a) a end; m(7,1,2).inspect' assert_equal '[]', 'def m(x,y,*a) a end; m(7,7).inspect' assert_equal '[1]', 'def m(x,y,*a) a end; m(7,7,1).inspect' assert_equal '[1, 2]', 'def m(x,y,*a) a end; m(7,7,1,2).inspect' assert_equal '[]', 'def m(x,y=7,*a) a end; m(7).inspect' assert_equal '[]', 'def m(x,y,z=7,*a) a end; m(7,7).inspect' assert_equal '[]', 'def m(x,y,z=7,*a) a end; m(7,7,7).inspect' assert_equal '[]', 'def m(x,y,z=7,zz=7,*a) a end; m(7,7,7).inspect' assert_equal '[]', 'def m(x,y,z=7,zz=7,*a) a end; m(7,7,7,7).inspect' assert_equal '1', 'def m(x,y,z=7,zz=1,*a) zz end; m(7,7,7).inspect' assert_equal '1', 'def m(x,y,z=7,zz=1,*a) zz end; m(7,7,7).inspect' assert_equal '1', 'def m(x,y,z=7,zz=7,*a) zz end; m(7,7,7,1).inspect' # block argument assert_equal 'Proc', 'def m(&block) block end; m{}.class' assert_equal 'nil', 'def m(&block) block end; m().inspect' assert_equal 'Proc', 'def m(a,&block) block end; m(7){}.class' assert_equal 'nil', 'def m(a,&block) block end; m(7).inspect' assert_equal '1', 'def m(a,&block) a end; m(1){}' assert_equal 'Proc', 'def m(a,b=nil,&block) block end; m(7){}.class' assert_equal 'nil', 'def m(a,b=nil,&block) block end; m(7).inspect' assert_equal 'Proc', 'def m(a,b=nil,&block) block end; m(7,7){}.class' assert_equal '1', 'def m(a,b=nil,&block) b end; m(7,1){}' assert_equal 'Proc', 'def m(a,b=nil,*c,&block) block end; m(7){}.class' assert_equal 'nil', 'def m(a,b=nil,*c,&block) block end; m(7).inspect' assert_equal '1', 'def m(a,b=nil,*c,&block) a end; m(1).inspect' assert_equal '1', 'def m(a,b=1,*c,&block) b end; m(7).inspect' assert_equal '1', 'def m(a,b=7,*c,&block) b end; m(7,1).inspect' assert_equal '[1]', 'def m(a,b=7,*c,&block) c end; m(7,7,1).inspect' # splat assert_equal '1', 'def m(a) a end; m(*[1])' assert_equal '1', 'def m(x,a) a end; m(7,*[1])' assert_equal '1', 'def m(x,y,a) a end; m(7,7,*[1])' assert_equal '1', 'def m(a,b) a end; m(*[1,7])' assert_equal '1', 'def m(a,b) b end; m(*[7,1])' assert_equal '1', 'def m(x,a,b) b end; m(7,*[7,1])' assert_equal '1', 'def m(x,y,a,b) b end; m(7,7,*[7,1])' assert_equal '1', 'def m(a,b,c) a end; m(*[1,7,7])' assert_equal '1', 'def m(a,b,c) b end; m(*[7,1,7])' assert_equal '1', 'def m(a,b,c) c end; m(*[7,7,1])' assert_equal '1', 'def m(x,a,b,c) a end; m(7,*[1,7,7])' assert_equal '1', 'def m(x,y,a,b,c) a end; m(7,7,*[1,7,7])' # hash argument assert_equal '1', 'def m(h) h end; m(7=>1)[7]' assert_equal '1', 'def m(h) h end; m(7=>1).size' assert_equal '1', 'def m(h) h end; m(7=>1, 8=>7)[7]' assert_equal '2', 'def m(h) h end; m(7=>1, 8=>7).size' assert_equal '1', 'def m(h) h end; m(7=>1, 8=>7, 9=>7)[7]' assert_equal '3', 'def m(h) h end; m(7=>1, 8=>7, 9=>7).size' assert_equal '1', 'def m(x,h) h end; m(7, 7=>1)[7]' assert_equal '1', 'def m(x,h) h end; m(7, 7=>1, 8=>7)[7]' assert_equal '1', 'def m(x,h) h end; m(7, 7=>1, 8=>7, 9=>7)[7]' assert_equal '1', 'def m(x,y,h) h end; m(7,7, 7=>1)[7]' assert_equal '1', 'def m(x,y,h) h end; m(7,7, 7=>1, 8=>7)[7]' assert_equal '1', 'def m(x,y,h) h end; m(7,7, 7=>1, 8=>7, 9=>7)[7]' # block argument assert_equal '1', %q(def m(&block) mm(&block) end def mm() yield 1 end m {|a| a }) assert_equal '1', %q(def m(x,&block) mm(x,&block) end def mm(x) yield 1 end m(7) {|a| a }) assert_equal '1', %q(def m(x,y,&block) mm(x,y,&block) end def mm(x,y) yield 1 end m(7,7) {|a| a }) # recursive call assert_equal '1', %q(def m(n) n == 0 ? 1 : m(n-1) end; m(5)) # instance method assert_equal '1', %q(class C; def m() 1 end end; C.new.m) assert_equal '1', %q(class C; def m(a) a end end; C.new.m(1)) assert_equal '1', %q(class C; def m(a = 1) a end end; C.new.m) assert_equal '[1]', %q(class C; def m(*a) a end end; C.new.m(1).inspect) assert_equal '1', %q( class C def m() mm() end def mm() 1 end end C.new.m ) # singleton method (const) assert_equal '1', %q(class C; def C.m() 1 end end; C.m) assert_equal '1', %q(class C; def C.m(a) a end end; C.m(1)) assert_equal '1', %q(class C; def C.m(a = 1) a end end; C.m) assert_equal '[1]', %q(class C; def C.m(*a) a end end; C.m(1).inspect) assert_equal '1', %q(class C; end; def C.m() 1 end; C.m) assert_equal '1', %q(class C; end; def C.m(a) a end; C.m(1)) assert_equal '1', %q(class C; end; def C.m(a = 1) a end; C.m) assert_equal '[1]', %q(class C; end; def C.m(*a) a end; C.m(1).inspect) assert_equal '1', %q(class C; def m() 7 end end; def C.m() 1 end; C.m) assert_equal '1', %q( class C def C.m() mm() end def C.mm() 1 end end C.m ) # singleton method (lvar) assert_equal '1', %q(obj = Object.new; def obj.m() 1 end; obj.m) assert_equal '1', %q(obj = Object.new; def obj.m(a) a end; obj.m(1)) assert_equal '1', %q(obj = Object.new; def obj.m(a=1) a end; obj.m) assert_equal '[1]', %q(obj = Object.new; def obj.m(*a) a end; obj.m(1)) assert_equal '1', %q(class C; def m() 7 end; end obj = C.new def obj.m() 1 end obj.m) # inheritance assert_equal '1', %q(class A; def m(a) a end end class B < A; end B.new.m(1)) assert_equal '1', %q(class A; end class B < A; def m(a) a end end B.new.m(1)) assert_equal '1', %q(class A; def m(a) a end end class B < A; end class C < B; end C.new.m(1)) # include assert_equal '1', %q(class A; def m(a) a end end module M; end class B < A; include M; end B.new.m(1)) assert_equal '1', %q(class A; end module M; def m(a) a end end class B < A; include M; end B.new.m(1)) # alias assert_equal '1', %q( def a() 1 end alias m a m() ) assert_equal '1', %q( class C def a() 1 end alias m a end C.new.m ) assert_equal '1', %q( class C def a() 1 end alias :m a end C.new.m ) assert_equal '1', %q( class C def a() 1 end alias m :a end C.new.m ) assert_equal '1', %q( class C def a() 1 end alias :m :a end C.new.m ) assert_equal '1', %q( class C def a() 1 end alias m a undef a end C.new.m ) # undef assert_equal '1', %q( class C def m() end undef m end begin C.new.m; rescue NoMethodError; 1 end ) assert_equal '1', %q( class A def m() end end class C < A def m() end undef m end begin C.new.m; rescue NoMethodError; 1 end ) assert_equal '1', %q( class A; def a() end end # [yarv-dev:999] class B < A def b() end undef a, b end begin B.new.a; rescue NoMethodError; 1 end ) assert_equal '1', %q( class A; def a() end end # [yarv-dev:999] class B < A def b() end undef a, b end begin B.new.b; rescue NoMethodError; 1 end ) assert_equal '3', %q{ def m1 1 end alias m2 m1 alias :"#{'m3'}" m1 m1 + m2 + m3 }, '[ruby-dev:32308]' assert_equal '1', %q{ def foobar end undef :"foo#{:bar}" 1 }, '[ruby-dev:32308]' assert_equal '1', %q{ def foobar 1 end alias :"bar#{:baz}" :"foo#{:bar}" barbaz }, '[ruby-dev:32308]' # private assert_equal '1', %q( class C def m() mm() end def mm() 1 end private :mm end C.new.m ) assert_equal '1', %q( class C def m() 7 end private :m end begin C.m; rescue NoMethodError; 1 end ) assert_equal '1', %q( class C def C.m() mm() end def C.mm() 1 end private_class_method :mm end C.m ) assert_equal '1', %q( class C def C.m() 7 end private_class_method :m end begin C.m; rescue NoMethodError; 1 end ) assert_equal '1', %q( class C; def m() 1 end end C.new.m # cache class C alias mm m; private :mm end C.new.m begin C.new.mm; 7; rescue NoMethodError; 1 end ) # nested method assert_equal '1', %q( class C def m def mm() 1 end end end C.new.m C.new.mm ) assert_equal '1', %q( class C def m def mm() 1 end end end instance_eval "C.new.m; C.new.mm" ) # method_missing assert_equal ':m', %q( class C def method_missing(mid, *args) mid end end C.new.m.inspect ) assert_equal ':mm', %q( class C def method_missing(mid, *args) mid end end C.new.mm.inspect ) assert_equal '[1, 2]', %q( class C def method_missing(mid, *args) args end end C.new.m(1,2).inspect ) assert_equal '1', %q( class C def method_missing(mid, *args) yield 1 end end C.new.m {|a| a }) assert_equal 'nil', %q( class C def method_missing(mid, *args, &block) block end end C.new.m.inspect ) # send assert_equal '1', %q( class C; def m() 1 end end; C.new.__send__(:m) ) assert_equal '1', %q( class C; def m() 1 end end; C.new.send(:m) ) assert_equal '1', %q( class C; def m(a) a end end; C.new.send(:m,1) ) assert_equal '1', %q( class C; def m(a,b) a end end; C.new.send(:m,1,7) ) assert_equal '1', %q( class C; def m(x,a=1) a end end; C.new.send(:m,7) ) assert_equal '1', %q( class C; def m(x,a=7) a end end; C.new.send(:m,7,1) ) assert_equal '[1, 2]', %q( class C; def m(*a) a end end; C.new.send(:m,1,2).inspect ) assert_equal '1', %q( class C; def m() 7 end; private :m end begin C.new.public_send(:m); rescue NoMethodError; 1 end ) assert_equal '1', %q( class C; def m() 1 end; private :m end C.new.send(:m) ) # with assert_equal '[:ok1, [:ok2, 11]]', %q{ class C def [] $ary << :ok1 10 end def []=(a) $ary << [:ok2, a] end end $ary = [] C.new[]+=1 $ary } # splat and block arguments assert_equal %q{[[[:x, :y, :z], NilClass], [[1, :x, :y, :z], NilClass], [[1, 2, :x, :y, :z], NilClass], [[:obj], NilClass], [[1, :obj], NilClass], [[1, 2, :obj], NilClass], [[], Proc], [[1], Proc], [[1, 2], Proc], [[], Proc], [[1], Proc], [[1, 2], Proc], [[:x, :y, :z], Proc], [[1, :x, :y, :z], Proc], [[1, 2, :x, :y, :z], Proc]]}, %q{ def m(*args, &b) $result << [args, b.class] end $result = [] ary = [:x, :y, :z] obj = :obj b = Proc.new{} m(*ary) m(1,*ary) m(1,2,*ary) m(*obj) m(1,*obj) m(1,2,*obj) m(){} m(1){} m(1,2){} m(&b) m(1,&b) m(1,2,&b) m(*ary,&b) m(1,*ary,&b) m(1,2,*ary,&b) $result } # aset and splat assert_equal '4', %q{class Foo;def []=(a,b,c,d);end;end;Foo.new[1,*a=[2,3]]=4} # post test assert_equal %q{[1, 2, :o1, :o2, [], 3, 4, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4)} assert_equal %q{[1, 2, 3, :o2, [], 4, 5, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5)} assert_equal %q{[1, 2, 3, 4, [], 5, 6, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6)} assert_equal %q{[1, 2, 3, 4, [5], 6, 7, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7)} assert_equal %q{[1, 2, 3, 4, [5, 6], 7, 8, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8)} assert_equal %q{[1, 2, 3, 4, [5, 6, 7], 8, 9, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8, 9)} assert_equal %q{[1, 2, 3, 4, [5, 6, 7, 8], 9, 10, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)} assert_equal %q{[1, 2, 3, 4, [5, 6, 7, 8, 9], 10, 11, NilClass, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)} assert_equal %q{[1, 2, :o1, :o2, [], 3, 4, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4){}} assert_equal %q{[1, 2, 3, :o2, [], 4, 5, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5){}} assert_equal %q{[1, 2, 3, 4, [], 5, 6, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6){}} assert_equal %q{[1, 2, 3, 4, [5], 6, 7, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7){}} assert_equal %q{[1, 2, 3, 4, [5, 6], 7, 8, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8){}} assert_equal %q{[1, 2, 3, 4, [5, 6, 7], 8, 9, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8, 9){}} assert_equal %q{[1, 2, 3, 4, [5, 6, 7, 8], 9, 10, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8, 9, 10){}} assert_equal %q{[1, 2, 3, 4, [5, 6, 7, 8, 9], 10, 11, Proc, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2, &b) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, b.class, x, y] end ; m(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11){}} assert_equal %q{[1, 2, :o1, :o2, [], 3, 4, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, x, y] end ; m(1, 2, 3, 4)} assert_equal %q{[1, 2, 3, :o2, [], 4, 5, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, x, y] end ; m(1, 2, 3, 4, 5)} assert_equal %q{[1, 2, 3, 4, [], 5, 6, nil, nil]}, %q{ def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2) x, y = :x, :y if $foo [m1, m2, o1, o2, r, p1, p2, x, y] end ; m(1, 2, 3, 4, 5, 6)} # # super # =begin # below programs are generated by this program: BASE = <<EOS__ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; <TEST>; super; end; end EOS__ tests = { %q{ def m } => %q{ C1.new.m }, # %q{ def m a } => %q{ C1.new.m 1 }, %q{ def m a a = :a } => %q{ C1.new.m 1 }, # %q{ def m a, o=:o } => %q{ C1.new.m 1 C1.new.m 1, 2 }, %q{ def m a, o=:o a = :a } => %q{ C1.new.m 1 C1.new.m 1, 2 }, %q{ def m a, o=:o o = :x } => %q{ C1.new.m 1 C1.new.m 1, 2 }, # %q{ def m a, *r } => %q{ C1.new.m 1 C1.new.m 1, 2 C1.new.m 1, 2, 3 }, %q{ def m a, *r r = [:x, :y] } => %q{ C1.new.m 1 C1.new.m 1, 2 C1.new.m 1, 2, 3 }, # %q{ def m a, o=:o, *r } => %q{ C1.new.m 1 C1.new.m 1, 2 C1.new.m 1, 2, 3 C1.new.m 1, 2, 3, 4 }, # %q{ def m a, o=:o, *r, &b } => %q{ C1.new.m 1 C1.new.m 1, 2 C1.new.m 1, 2, 3 C1.new.m 1, 2, 3, 4 C1.new.m(1){} C1.new.m(1, 2){} C1.new.m(1, 2, 3){} C1.new.m(1, 2, 3, 4){} }, # "def m(m1, m2, o1=:o1, o2=:o2, p1, p2)" => %q{ C1.new.m(1,2,3,4) C1.new.m(1,2,3,4,5) C1.new.m(1,2,3,4,5,6) }, # "def m(m1, m2, *r, p1, p2)" => %q{ C1.new.m(1,2,3,4) C1.new.m(1,2,3,4,5) C1.new.m(1,2,3,4,5,6) C1.new.m(1,2,3,4,5,6,7) C1.new.m(1,2,3,4,5,6,7,8) }, # "def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2)" => %q{ C1.new.m(1,2,3,4) C1.new.m(1,2,3,4,5) C1.new.m(1,2,3,4,5,6) C1.new.m(1,2,3,4,5,6,7) C1.new.m(1,2,3,4,5,6,7,8) C1.new.m(1,2,3,4,5,6,7,8,9) }, ### } tests.each{|setup, methods| setup = setup.dup; setup.strip! setup = BASE.gsub(/<TEST>/){setup} methods.split(/\n/).each{|m| m = m.dup; m.strip! next if m.empty? expr = "#{setup}; #{m}" result = eval(expr) puts "assert_equal %q{#{result.inspect}}, %q{\n#{expr}}" puts } } =end assert_equal %q{[:C0_m, [1, 2, :o1, :o2, 3, 4]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, p1, p2); super; end; end ; C1.new.m(1,2,3,4)} assert_equal %q{[:C0_m, [1, 2, 3, :o2, 4, 5]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6)} assert_equal %q{[:C0_m, [1, :o]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, 2]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r; super; end; end ; C1.new.m 1, 2} assert_equal %q{[:C0_m, [1, 2, 3]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r; super; end; end ; C1.new.m 1, 2, 3} assert_equal %q{[:C0_m, [1, 2, 3, 4]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r; super; end; end ; C1.new.m 1, 2, 3, 4} assert_equal %q{[:C0_m, [:a]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a a = :a; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, 2, 3, 4]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6, 7]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6,7)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6, 7, 8]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6,7,8)} assert_equal %q{[:C0_m, [1, :o]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, 2]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m 1, 2} assert_equal %q{[:C0_m, [1, 2, 3]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m 1, 2, 3} assert_equal %q{[:C0_m, [1, 2, 3, 4]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m 1, 2, 3, 4} assert_equal %q{[:C0_m, [1, :o]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m(1){}} assert_equal %q{[:C0_m, [1, 2]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m(1, 2){}} assert_equal %q{[:C0_m, [1, 2, 3]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m(1, 2, 3){}} assert_equal %q{[:C0_m, [1, 2, 3, 4]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o, *r, &b; super; end; end ; C1.new.m(1, 2, 3, 4){}} assert_equal %q{[:C0_m, [1, :x]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o o = :x; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, :x]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o o = :x; super; end; end ; C1.new.m 1, 2} assert_equal %q{[:C0_m, [:a, :o]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o a = :a; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [:a, 2]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o a = :a; super; end; end ; C1.new.m 1, 2} assert_equal %q{[:C0_m, [1]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, :x, :y]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, *r r = [:x, :y]; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, :x, :y]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, *r r = [:x, :y]; super; end; end ; C1.new.m 1, 2} assert_equal %q{[:C0_m, [1, :x, :y]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, *r r = [:x, :y]; super; end; end ; C1.new.m 1, 2, 3} assert_equal %q{[:C0_m, [1, 2, :o1, :o2, 3, 4]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4)} assert_equal %q{[:C0_m, [1, 2, 3, :o2, 4, 5]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6, 7]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6,7)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6, 7, 8]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6,7,8)} assert_equal %q{[:C0_m, [1, 2, 3, 4, 5, 6, 7, 8, 9]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m(m1, m2, o1=:o1, o2=:o2, *r, p1, p2); super; end; end ; C1.new.m(1,2,3,4,5,6,7,8,9)} assert_equal %q{[:C0_m, [1]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, *r; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, 2]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, *r; super; end; end ; C1.new.m 1, 2} assert_equal %q{[:C0_m, [1, 2, 3]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, *r; super; end; end ; C1.new.m 1, 2, 3} assert_equal %q{[:C0_m, []]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m; super; end; end ; C1.new.m} assert_equal %q{[:C0_m, [1, :o]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o; super; end; end ; C1.new.m 1} assert_equal %q{[:C0_m, [1, 2]]}, %q{ class C0; def m *args; [:C0_m, args]; end; end class C1 < C0; def m a, o=:o; super; end; end ; C1.new.m 1, 2} assert_equal 'ok', %q{ class C def x=(n) end def m self.x = :ok end end C.new.m } assert_equal 'ok', %q{ proc{ $SAFE = 1 class C def m :ok end end }.call C.new.m }, '[ruby-core:11998]' assert_equal 'ok', %q{ class B def m() :fail end end class C < B undef m begin remove_method :m rescue NameError end end begin C.new.m rescue NameError :ok end }, '[ruby-dev:31816], [ruby-dev:31817]' assert_normal_exit %q{ begin Process.setrlimit(Process::RLIMIT_STACK, 4_206_592) # FreeBSD SEGVs this less than 4M + 12K bytes. rescue Exception exit end class C attr "a" * (10*1024*1024) end }, '[ruby-dev:31818]' assert_equal 'ok', %q{ class Module def define_method2(name, &block) define_method(name, &block) end end class C define_method2(:m) {|x, y| :fail } end begin C.new.m([1,2]) rescue ArgumentError :ok end } assert_not_match /method_missing/, %q{ STDERR.reopen(STDOUT) variable_or_mehtod_not_exist } assert_equal '[false, false, false, false, true, true]', %q{ class C define_method(:foo) { block_given? } end C.new.foo {} class D def foo D.module_eval{ define_method(:m1){ block_given? } } end def bar D.module_eval{ define_method(:m2){ block_given? } } end end D.new.foo D.new.bar{} [C.new.foo, C.new.foo{}, D.new.m1, D.new.m1{}, D.new.m2, D.new.m2{}] }, '[ruby-core:14813]' assert_equal 'ok', %q{ class Foo define_method(:foo) do |&b| b.call end end Foo.new.foo do break :ok end }, '[ruby-dev:36028]' assert_equal '[1, 2, [3, 4]]', %q{ def regular(a, b, *c) [a, b, c] end regular(*[], 1, *[], *[2, 3], *[], 4) }, '[ruby-core:19413]' assert_equal '[1, [:foo, 3, 4, :foo]]', %q{ def regular(a, *b) [a, b] end a = b = [:foo] regular(1, *a, *[3, 4], *b) } assert_equal '["B", "A"]', %q{ class A def m 'A' end end class B < A define_method(:m) do ['B', super()] end end class C < B end C.new.m } assert_equal 'ok', %q{ module Foo def foo begin super rescue NoMethodError :ok end end module_function :foo end Foo.foo }, '[ruby-dev:37587]' assert_equal 'Object#foo', %q{ class Object def self.foo "Object.foo" end def foo "Object#foo" end end module Foo def foo begin super rescue NoMethodError :ok end end module_function :foo end Foo.foo }, '[ruby-dev:37587]' assert_normal_exit %q{ class BasicObject remove_method :method_missing end begin "a".lalala! rescue NoMethodError => e e.message == "undefined method `lalala!' for \"a\":String" ? :ok : :ng end }, '[ruby-core:22298]' assert_equal 'ok', %q{ "hello"[0] ||= "H" "ok" } assert_equal 'ok', %q{ "hello"[0, 1] ||= "H" "ok" } assert_equal 'ok', %q{ class C define_method(:foo) do C.class_eval { remove_method(:foo) } super() end end begin C.new.foo rescue NoMethodError 'ok' end } # should not cache when splat assert_equal 'ok', %q{ class C attr_reader :a def initialize @a = 1 end end def m *args C.new.a(*args) end m() begin m(1) rescue ArgumentError 'ok' end } assert_equal 'DC', %q{ $result = [] class C def foo *args $result << 'C' end end class D def foo *args $result << 'D' end end o1 = $o1 = C.new o2 = $o2 = D.new args = Object.new def args.to_a test1 $o2, nil [] end def test1 o, args o.foo(*args) end test1 o1, args $result.join } assert_equal 'DC', %q{ $result = [] class C def foo *args $result << 'C' end end class D def foo *args $result << 'D' end end o1 = $o1 = C.new o2 = $o2 = D.new block = Object.new def block.to_proc test2 $o2, %w(a, b, c), nil Proc.new{} end def test2 o, args, block o.foo(*args, &block) end test2 o1, [], block $result.join } assert_equal 'ok', %q{ def foo binding ["ok"].first end foo foo }, '[Bug #20178]' assert_equal 'ok', %q{ def bar(x); x; end def foo(...); bar(...); end foo('ok') } assert_equal 'ok', %q{ def bar(x); x; end def foo(z, ...); bar(...); end foo(1, 'ok') } assert_equal 'ok', %q{ def bar(x, y); x; end def foo(...); bar("ok", ...); end foo(1) } assert_equal 'ok', %q{ def bar(x); x; end def foo(...); 1.times { return bar(...) }; end foo("ok") } assert_equal 'ok', %q{ def bar(x); x; end def foo(...); x = nil; 1.times { x = bar(...) }; x; end foo("ok") } assert_equal 'ok', %q{ def bar(x); yield; end def foo(...); bar(...); end foo(1) { "ok" } } assert_equal 'ok', %q{ def baz(x); x; end def bar(...); baz(...); end def foo(...); bar(...); end foo("ok") } assert_equal '[1, 2, 3, 4]', %q{ def baz(a, b, c, d); [a, b, c, d]; end def bar(...); baz(1, ...); end def foo(...); bar(2, ...); end foo(3, 4) } assert_equal 'ok', %q{ class Foo; def self.foo(x); x; end; end class Bar < Foo; def self.foo(...); super; end; end Bar.foo('ok') } assert_equal 'ok', %q{ class Foo; def self.foo(x); x; end; end class Bar < Foo; def self.foo(...); super(...); end; end Bar.foo('ok') } assert_equal 'ok', %q{ class Foo; def self.foo(x, y); x + y; end; end class Bar < Foo; def self.foo(...); super("o", ...); end; end Bar.foo('k') } assert_equal 'ok', %q{ def bar(a); a; end def foo(...); lambda { bar(...) }; end foo("ok").call } assert_equal 'ok', %q{ class Foo; def self.foo(x, y); x + y; end; end class Bar < Foo; def self.y(&b); b; end; def self.foo(...); y { super("o", ...) }; end; end Bar.foo('k').call } assert_equal 'ok', %q{ def baz(n); n; end def foo(...); bar = baz(...); lambda { lambda { bar } }; end foo("ok").call.call } assert_equal 'ok', %q{ class A; def self.foo(...); new(...); end; attr_reader :b; def initialize(a, b:"ng"); @a = a; @b = b; end end A.foo(1).b A.foo(1, b: "ok").b } assert_equal 'ok', %q{ class A; def initialize; @a = ["ok"]; end; def first(...); @a.first(...); end; end def call x; x.first; end def call1 x; x.first(1); end call(A.new) call1(A.new).first } assert_equal 'ok', %q{ class A; def foo; yield("o"); end; end class B < A; def foo(...); super { |x| yield(x + "k") }; end; end B.new.foo { |x| x } } assert_equal "[1, 2, 3, 4]", %q{ def foo(*b) = b def forward(...) splat = [1,2,3] foo(*splat, ...) end forward(4) } assert_equal "[1, 2, 3, 4]", %q{ class A def foo(*b) = b end class B < A def foo(...) splat = [1,2,3] super(*splat, ...) end end B.new.foo(4) } assert_equal 'ok', %q{ class A; attr_reader :iv; def initialize(...) = @iv = "ok"; end A.new("foo", bar: []).iv } assert_equal 'ok', %q{ def foo(a, b) = a + b def bar(...) = foo(...) bar(1, 2) bar(1, 2) begin bar(1, 2, 3) "ng" rescue ArgumentError "ok" end } assert_equal 'ok', %q{ class C def foo(...) = :ok def bar(...) = __send__(:foo, ...) end C.new.bar } assert_equal 'ok', %q{ class C def method_missing(...) = :ok def foo(...) = xyzzy(...) end C.new.foo } assert_equal 'ok', %q{ class C def initialize(a) end end def foo(...) C.new(...) :ok end foo(*["bar"]) foo("baz") } assert_equal 'ok', %q{ class C def foo(b:) b end end def foo(...) C.new.send(...) end foo(:foo, b: :ok) foo(*["foo"], b: :ok) } assert_equal 'ok', %q{ Thing = Struct.new(:value) Obj = Thing.new("ok") def delegate(...) Obj.value(...) end def no_args delegate end def splat_args(*args) delegate(*args) end no_args splat_args } assert_equal 'ok', %q{ class A private def foo = "ng" end class B def initialize(o) @o = o end def foo(...) = @o.foo(...) def internal_foo = foo end b = B.new(A.new) begin b.internal_foo rescue NoMethodError "ok" end } assert_equal 'ok', <<~RUBY def test(*, kw: false) "ok" end test RUBY
|
