Show
Ignore:
Timestamp:
10/05/08 19:58:12 (3 months ago)
Author:
moritz
Message:

[t/spec] some test enhancements, corrections and fudging for rakudo.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • t/spec/S12-methods/what.t

    r21472 r22515  
    2525{ 
    2626  my $a = 3; 
     27  #?rakudo todo 'Int type should somehow conform to Num' 
    2728  ok($a.WHAT ~~ Num,    "an Int isa Num"); 
    2829  ok($a.WHAT ~~ Object, "an Int isa Object"); 
     
    3233{ 
    3334  my $a = sub ($x) { 100 + $x }; 
     35  #?rakudo 2 todo 'correct types for subs and blocks' 
    3436  ok($a.WHAT === Sub,    "a sub's type is Sub"); 
    3537  ok($a.WHAT ~~ Routine, "a sub isa Routine"); 
     
    4547    my $o = Foo.new; 
    4648    is($o."WHAT", 'Bar', '."WHAT" calls the method instead of the macro'); 
     49    #?rakudo todo '.WHAT not (easily overridable)' 
    4750    is($o.WHAT,   'Foo', '.WHAT still works as intended'); 
    4851    my $meth = "WHAT"; 
     52    #?rakudo skip 'indirect method calls' 
    4953    is($o.$meth,  'Bar', '.$meth calls the method instead of the macro'); 
    5054}