Changeset 3886

Show
Ignore:
Timestamp:
05/26/05 02:15:08 (4 years ago)
Author:
Limbic_Region
svk:copy_cache_prev:
5477
Message:

Added missing . in hyper deref tests

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/operators/hyper.t

    r3874 r3886  
    187187    ); 
    188188 
    189     my $full = join '', eval '@array>><key>'; 
     189    my $full = join '', eval '@array>>.<key>'; 
    190190    is($full, 'valvalval', 'hyper-dereference an array'); 
    191191 
    192     my $part = join '', eval '@array[0,1]>><key>'; 
     192    my $part = join '', eval '@array[0,1]>>.<key>'; 
    193193    is($part, 'valval', 'hyper-dereference an array slice'); 
    194194}