This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RT #75468: readline ignores <> overloading when arg is tied
[perl5.git] / t / op / tie.t
index 5628694..6e52a6e 100644 (file)
@@ -847,7 +847,7 @@ fetching... <=> 1
   map {
    my $op = $_;
    $_ => sub { print "$op"; 100 }
   map {
    my $op = $_;
    $_ => sub { print "$op"; 100 }
-  } qw< 0+ "" + ** * / % - neg int abs == < > <= >= != <=> >
+  } qw< 0+ "" + ** * / % - neg int abs == < > <= >= != <=> <> >
 }
 $o = bless [], overloaded;
 
 }
 $o = bless [], overloaded;
 
@@ -872,6 +872,7 @@ $ghew=undef; $ghew<=1; print "\n";
 $ghew=undef; $ghew >=1; print "\n";
 $ghew=undef; $ghew != 1; print "\n";
 $ghew=undef; $ghew<=>1; print "\n";
 $ghew=undef; $ghew >=1; print "\n";
 $ghew=undef; $ghew != 1; print "\n";
 $ghew=undef; $ghew<=>1; print "\n";
+$ghew=undef; <$ghew>; print "\n";
 $ghew=\*shrext; *$ghew; print "\n";
 $ghew=\@spled; @$ghew; print "\n";
 $ghew=\%frit; %$ghew; print "\n";
 $ghew=\*shrext; *$ghew; print "\n";
 $ghew=\@spled; @$ghew; print "\n";
 $ghew=\%frit; %$ghew; print "\n";
@@ -893,6 +894,7 @@ fetching... <=
 fetching... >=
 fetching... !=
 fetching... <=>
 fetching... >=
 fetching... !=
 fetching... <=>
+fetching... <>
 fetching... *{}
 fetching... @{}
 fetching... %{}
 fetching... *{}
 fetching... @{}
 fetching... %{}