IO::Handle::tell return 0, no matter what

[p6rt]

Migrated from rt.perl.org#123838 (status was 'resolved')

Searchable as RT123838$

[p6rt]

From @gfldex

$f = open("x", :w); $f.print("abc"); say $f.tell

returns 0, expected 3

[p6rt]

From @pmqs

On Sun Feb 15 06​:46​:01 2015, gfldex wrote​:

$f = open("x", :w); $f.print("abc"); say $f.tell

returns 0, expected 3

tell seems to return the correct value when "seek" is called and when reading from a file. Issue only seems to be when writing.

Attached is a simple test harness for "tell".

[p6rt]

From @pmqs

use v6;
use Test;

plan 10;

# L<S32​::IO/Functions/tell>

{
  my $f ;
  dies_ok { $f.tell }, "tell() on non IO​::Handle object handle fails";
}

my $test-path = "tempfile-tell-test";
my $test-contents = "ABCDEFG\n";

{
  # Write

  my $fh = open($test-path, :w);

  is $fh.tell, 0, "tell after opening file is 0";
  ok $fh.print($test-contents), "print ok";
  is $fh.tell, $test-contents.chars, "tell after print is { $test-contents.chars }";

  ok $fh.seek(2, 0), "seek to offset 2";
  is $fh.tell, 2, "tell after seek is 2";

  ok $fh.close(), "closed ok";

  dies_ok { $fh.tell }, "tell() on closed file fails";

}

{
  # Append

  my $fh = open($test-path, :a);
  is $fh.tell, $test-contents.chars, "tell after opening for append is { $test-contents.chars }";

  ok $fh.close(), "closed ok";
}

{
  # Read

  my $fh = open($test-path, :r);

  is $fh.tell, 0, "tell after opening file for reading is 0";
  $fh.read(3), "print ok";
  is $fh.tell, 3, "tell after read is 3";

  ok $fh.close(), "closed ok";

  dies_ok { $fh.tell }, "tell() on closed file fails";

}

unlink $test-path;
CATCH {
  unlink $test-path;
}

# vim​: ft=perl6

[p6rt]

The RT System itself - Status changed from 'new' to 'open'

[p6rt]

From @zoffixznet

Seems to be fixed in latest Rakudo, per http://irclog.perlgeek.de/perl6/2016-09-26#i_13283196

Tests needed.

[p6rt]

From @zoffixznet

On Mon, 26 Sep 2016 05​:37​:11 -0700, cpan@​zoffix.com wrote​:

Seems to be fixed in latest Rakudo, per
http://irclog.perlgeek.de/perl6/2016-09-26#i_13283196

Tests needed.

Tests added in Raku/roast@ea137f64d3

- IO grant

[p6rt]

@zoffixznet - Status changed from 'open' to 'resolved'