Show
Ignore:
Timestamp:
09/28/05 23:08:26 (3 years ago)
Author:
autrijus
Message:

r7196@not: autrijus | 2005-09-28 11:04:59 +0300


r7197@not: autrijus | 2005-09-28 11:28:35 +0300

  • beginning of the main pugs cabal file r7198@not: autrijus | 2005-09-28 12:36:41 +0300
  • some more metadata for Pugs.cabal. r7211@not: autrijus | 2005-09-28 21:27:14 +0300
  • releng: normalize and todoize tests. r7221@not: autrijus | 2005-09-29 00:05:29 +0300
  • Remove the unreferenced Pugs.AST.Types.
  • Move the ill-named Pugs.Context back inside Pugs.Types.
  • Reuse its Tolkien quote for the underquoted Pugs.Version.
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/subroutines/signature_matching.t

    r5495 r7190  
    88# check the subroutine with the closest matching signature is called 
    99 
    10 sub earth (+$me)               {"me $me"}; 
    11 sub earth (+$him)              {"him $him"}; 
    12 sub earth (+$me, +$him)        {"me $me him $him"}; 
    13 sub earth (+$me, +$him, +$her) {"me $me him $him her $her"}; 
    14 sub earth ($me)                {"pos $me"}; 
    15 sub earth ($me, +$you)         {"pos $me you $you"}; 
    16 sub earth ($me, +$her)         {"pos $me her $her"}; 
    17 sub earth ($me, $you)          {"pos $me pos $you"}; 
    18 sub earth ($me, $you, +$her)   {"pos $me pos $you her $her"}; 
     10multi earth (+$me)               {"me $me"}; 
     11multi earth (+$him)              {"him $him"}; 
     12multi earth (+$me, +$him)        {"me $me him $him"}; 
     13multi earth (+$me, +$him, +$her) {"me $me him $him her $her"}; 
     14multi earth ($me)                {"pos $me"}; 
     15multi earth ($me, +$you)         {"pos $me you $you"}; 
     16multi earth ($me, +$her)         {"pos $me her $her"}; 
     17multi earth ($me, $you)          {"pos $me pos $you"}; 
     18multi earth ($me, $you, +$her)   {"pos $me pos $you her $her"}; 
    1919 
    2020is( earth(me => 1),                     'me 1',             'named me', :todo<feature>); 
    … …  
    3838# 
    3939 
    40 sub wind ($me, $you, +$her)   {"pos $me pos $you her $her"}; 
    41 sub wind ($me, $you)          {"pos $me pos $you"}; 
    42 sub wind ($me, +$her)         {"pos $me her $her"}; 
    43 sub wind ($me, +$you)         {"pos $me you $you"}; 
    44 sub wind ($me)                {"pos $me"}; 
    45 sub wind (+$me, +$him, +$her) {"me $me him $him her $her"}; 
    46 sub wind (+$me, +$him)        {"me $me him $him"}; 
    47 sub wind (+$him)              {"him $him"}; 
    48 sub wind (+$me)               {"me $me"}; 
     40multi wind ($me, $you, +$her)   {"pos $me pos $you her $her"}; 
     41multi wind ($me, $you)          {"pos $me pos $you"}; 
     42multi wind ($me, +$her)         {"pos $me her $her"}; 
     43multi wind ($me, +$you)         {"pos $me you $you"}; 
     44multi wind ($me)                {"pos $me"}; 
     45multi wind (+$me, +$him, +$her) {"me $me him $him her $her"}; 
     46multi wind (+$me, +$him)        {"me $me him $him"}; 
     47multi wind (+$him)              {"him $him"}; 
     48multi wind (+$me)               {"me $me"}; 
    4949 
    5050is( wind(me => 1),                     'me 1',             'named me', :todo<feature>);