Changeset 22547

Show
Ignore:
Timestamp:
10/09/08 00:08:04 (6 weeks ago)
Author:
pmichaud
Message:

[t/spec] Add some ?#rakudo skips after the mmd branch move.
Remove the unnecessary #?DOES lines.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/spec/S03-operators/assign.t

    r22497 r22547  
    7373#?pugs skip 'skipping assignment with skipped values via $' 
    7474#?rakudo skip "list assignment" 
    75 #?DOES 5 
    7675{ 
    7776    # testing list assignments with skipped values 
    … …  
    9190#?pugs skip "skipping assignment with skipped values via * in signature" 
    9291#?rakudo skip "list assignment" 
    93 #?DOES 5 
    9492{ 
    9593    # testing list assignments with skipped values 
    … …  
    109107#?pugs skip "skipping assignment with skipped values via * in lvalue" 
    110108#?rakudo skip "list assignment" 
    111 #?DOES 5 
    112109{ 
    113110    # testing list assignments with skipped values 
    … …  
    128125 
    129126#?rakudo skip "list assignment" 
    130 #?DOES 6 
    131127{ 
    132128   # testing list assignment syntax 
    … …  
    146142 
    147143#?rakudo skip "unknown reasons" 
    148 #?DOES 13 
    149144{ 
    150145    my @a; 
    … …  
    174169} 
    175170 
    176 #?DOES 2 
    177171{ 
    178172    # chained @array = %hash = list assignment  
    … …  
    184178} 
    185179 
    186 #?DOES 1 
    187180{ 
    188181    # chained $scalar = %hash = list assignment  
    … …  
    194187 
    195188#?rakudo skip "unknown reasons" 
    196 #?DOES 3 
    197189{ 
    198190    # (@b, @a) = (@a, @b) assignment 
    … …  
    207199 
    208200#?rakudo skip "unknown reasons" 
    209 #?DOES 3 
    210201{ 
    211202    # (@b, @a) = @a, @b assignment 
    … …  
    222213 
    223214#?rakudo skip "unknown reasons" 
    224 #?DOES 6 
    225215{ 
    226216    my $a; 
    … …  
    236226 
    237227#?rakudo skip "unknown reasons" 
    238 #?DOES 8 
    239228{ 
    240229    my $a; 
    … …  
    255244 
    256245#?rakudo skip "unknown reasons" 
    257 #?DOES 6 
    258246{ 
    259247    my $a = 3; 
    … …  
    270258 
    271259#?rakudo skip "unknown reasons" 
    272 #?DOES 1 
    273260{ 
    274261    my $c;  
    … …  
    277264} 
    278265 
    279 #?DOES 3 
    280266{ 
    281267    my $x = 42; 
    … …  
    287273} 
    288274 
    289 #?DOES 3 
    290275{ 
    291276    my $x = 42; 
    … …  
    305290} 
    306291 
    307 #?DOES 3 
    308292{ 
    309293    my $x = 6; 
    … …  
    314298} 
    315299 
    316 #?DOES 3 
    317300{ 
    318301    my $x = 2; 
    319302    @p = $x **= 3, 4; 
     303#?rakudo skip 'item assignment' 
    320304    is($x, 8, '**= operator'); 
    321305    is(@p[0],8, "**= operator parses as item assignment 1"); 
    … …  
    323307} 
    324308 
    325 #?DOES 3 
    326309{ 
    327310    my $x = "abc"; 
    … …  
    332315} 
    333316 
    334 #?DOES 3 
    335317{ 
    336318    my $x = "abc"; 
    … …  
    342324 
    343325#?rakudo skip "unknown reasons" 
    344 #?DOES 9 
    345326{ 
    346327    my @x = ( 'a', 'z' ); 
    … …  
    357338} 
    358339 
    359 #?DOES 3 
    360340{ 
    361341    my $x = 1; 
    … …  
    366346} 
    367347 
    368 #?DOES 3 
    369348{ 
    370349    my $x = 1; 
    … …  
    375354} 
    376355 
    377 #?DOES 3 
    378356{ 
    379357    my $x = "z"; 
    … …  
    384362} 
    385363 
    386 #?DOES 3 
    387364{ 
    388365    my $x = "z"; 
    … …  
    393370} 
    394371 
    395 #?DOES 3 
    396372{ 
    397373    my $x = 4; 
    … …  
    402378} 
    403379 
    404 #?DOES 3 
    405380{ 
    406381    my $x = 1; 
    … …  
    411386} 
    412387 
    413 #?DOES 3 
    414388{ 
    415389    my $x = "z"; 
    … …  
    421395 
    422396#?rakudo skip "unknown reasons" 
    423 #?DOES 3 
    424397{ 
    425398    my $x = 0; 
    … …  
    430403} 
    431404 
    432 #?DOES 3 
    433405{ 
    434406    my $x = 42; 
    … …  
    440412 
    441413#?pugs eval 'parsefail' 
    442 #?DOES 3 
    443414{ 
    444415    my $x = 42; 
    … …  
    450421 
    451422#?pugs eval 'parsefail' 
    452 #?DOES 3 
    453423{ 
    454424    my $x = 0; 
    … …  
    460430 
    461431#?pugs eval 'parsefail' 
    462 #?DOES 3 
    463432{ 
    464433    my $x = 1; 
    465434    @p = $x +<= 8, 9; 
     435#?rakudo 2 skip 'item infix assignment' 
    466436    is($x, 256, '+<= operator'); 
    467437    is(@p[0],256, "+<= operator parses as item assignment 1"); 
    … …  
    470440 
    471441#?pugs eval 'parsefail' 
    472 #?DOES 3 
    473442{ 
    474443    my $x = 511; 
    475444    @p = $x +>= 8, 9; 
     445#?rakudo 2 skip 'item infix assignment' 
    476446    is($x, 1, '+>= operator'); 
    477447    is(@p[0],1, "+>= operator parses as item assignment 1"); 
    … …  
    482452#?pugs eval 'parsefail' 
    483453#?rakudo skip "unknown reasons" 
    484 #?DOES 3 
    485454{ 
    486455    my $x = "a"; 
    … …  
    493462#?pugs eval 'parsefail' 
    494463#?rakudo skip "unknown reasons" 
    495 #?DOES 3 
    496464{ 
    497465    my $x = "aa"; 
    … …  
    507475 
    508476#?rakudo todo "unknown reasons" 
    509 #?DOES 3 
    510477{ 
    511478    my $a; 
    … …  
    517484 
    518485#?rakudo skip "unknown reasons" 
    519 #?DOES 3 
    520486{ 
    521487    package Foo; 
    … …  
    528494 
    529495#?rakudo todo "unknown reasons" 
    530 #?DOES 3 
    531496{ 
    532497    my @z = ($Foo::c = W, W); 
    … …  
    537502 
    538503#?rakudo todo "unknown reasons" 
    539 #?DOES 3 
    540504{ 
    541505    my @a; 
    … …  
    547511 
    548512#?rakudo skip "unknown reasons" 
    549 #?DOES 2 
    550513{ 
    551514    my $a; 
    … …  
    557520#?pugs eval 'notimpl' 
    558521#?rakudo skip "unknown reasons" 
    559 #?DOES 2 
    560522{ 
    561523    my $a; 
    … …  
    566528 
    567529#?rakudo skip "unknown reasons" 
    568 #?DOES 2 
    569530{ 
    570531    my $a; 
    … …  
    575536 
    576537#?rakudo skip "unknown reasons" 
    577 #?DOES 2 
    578538{ 
    579539    my $a; 
    … …  
    584544 
    585545#?rakudo skip "unknown reasons" 
    586 #?DOES 3 
    587546{ 
    588547    my $a; 
    … …  
    595554 
    596555#?rakudo todo "unknown reasons" 
    597 #?DOES 3 
    598556{ 
    599557    my @a; 
    … …  
    605563 
    606564#?rakudo todo "unknown reasons" 
    607 #?DOES 3 
    608565{ 
    609566    my @a; 
    … …  
    615572 
    616573#?rakudo todo "unknown reasons" 
    617 #?DOES 3 
    618574{ 
    619575    my %a; 
    … …  
    625581 
    626582#?rakudo todo "unknown reasons" 
    627 #?DOES 3 
    628583{ 
    629584    my %a; 
    … …  
    635590 
    636591#?rakudo skip "unknown reasons" 
    637 #?DOES 3 
    638592{ 
    639593    my %a; 
    … …  
    645599 
    646600#?rakudo skip "unknown reasons" 
    647 #?DOES 6 
    648601{ 
    649602    my %a; 
    … …  
    658611 
    659612#?rakudo skip "unknown reasons" 
    660 #?DOES 6 
    661613{ 
    662614    my %a; 
    … …  
    671623 
    672624#?rakudo skip "unknown reasons" 
    673 #?DOES 3 
    674625{ 
    675626    my %a; 
    … …  
    681632 
    682633#?rakudo skip "unknown reasons" 
    683 #?DOES 3 
    684634{ 
    685635    my %a; 
    … …  
    691641 
    692642#?rakudo todo "unknown reasons" 
    693 #?DOES 3 
    694643{ 
    695644    my @a; 
    … …  
    702651 
    703652#?rakudo todo "unknown reasons" 
    704 #?DOES 3 
    705653{ 
    706654    my @a; 
    … …  
    713661 
    714662#?rakudo todo "unknown reasons" 
    715 #?DOES 4 
    716663{ 
    717664    my @a; 
    … …  
    725672 
    726673#?rakudo todo "unknown reasons" 
    727 #?DOES 3 
    728674{ 
    729675    my @a; 
    … …  
    737683 
    738684#?rakudo todo "unknown reasons" 
    739 #?DOES 3 
    740685{ 
    741686    my @a; 
    … …  
    749694 
    750695#?rakudo skip "unknown reasons" 
    751 #?DOES 3 
    752696{ 
    753697    my @a; 
    … …  
    761705 
    762706#?rakudo skip "unknown reasons" 
    763 #?DOES 3 
    764707{ 
    765708    my @a; 
    … …  
    773716 
    774717#?rakudo skip "unknown reasons" 
    775 #?DOES 3 
    776718{ 
    777719    my @a; 
    … …  
    785727 
    786728#?rakudo skip "unknown reasons" 
    787 #?DOES 3 
    788729{ 
    789730    my @a; 
    … …  
    797738 
    798739#?rakudo skip "unknown reasons" 
    799 #?DOES 3 
    800740{ 
    801741    my @a; 
    … …  
    808748 
    809749#?rakudo skip "unknown reasons" 
    810 #?DOES 3 
    811750{ 
    812751    my @a; 
    … …  
    819758 
    820759#?rakudo skip "unknown reasons" 
    821 #?DOES 3 
    822760{ 
    823761    my @a; 
    … …  
    917855 
    918856#?rakudo skip "unknown reasons" 
    919 #?DOES 4 
    920857{ 
    921858    my %a; 
    … …  
    930867 
    931868#?rakudo skip "unknown reasons" 
    932 #?DOES 3 
    933869{ 
    934870    my @a; 
    … …  
    940876 
    941877#?rakudo skip "unknown reasons" 
    942 #?DOES 3 
    943878{ 
    944879    my @a; 
    … …  
    950885 
    951886#?rakudo skip "unknown reasons" 
    952 #?DOES 3 
    953887{ 
    954888    my @a; 
    … …  
    960894 
    961895#?rakudo skip "unknown reasons" 
    962 #?DOES 3 
    963896{ 
    964897    my @a; 
    … …  
    970903 
    971904#?rakudo skip "unknown reasons" 
    972 #?DOES 3 
    973905{ 
    974906    my @a; 
    … …  
    981913 
    982914#?rakudo skip "unknown reasons" 
    983 #?DOES 3 
    984915{ 
    985916    my @a; 
    … …  
    992923 
    993924#?rakudo skip "unknown reasons" 
    994 #?DOES 3 
    995925{ 
    996926    my @a; 
    … …  
    1002932 
    1003933#?rakudo skip "unknown reasons" 
    1004 #?DOES 3 
    1005934{ 
    1006935    my @a; 
    … …  
    1012941 
    1013942#?rakudo skip "unknown reasons" 
    1014 #?DOES 3 
    1015943{ 
    1016944    my @a; 
    … …  
    1022950 
    1023951#?rakudo skip "unknown reasons" 
    1024 #?DOES 3 
    1025952{ 
    1026953    my @a; 
    … …  
    1033960# L<S03/Assignment metaoperators/",="> 
    1034961#?rakudo skip ',=' 
    1035 #?DOES 2 
    1036962{ 
    1037963    my @a = 1, 2;