Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date	Action
stdhandle.t	1.35 KB	-r--r--r--	2014-12-27 11:48
stdhandle_from_handle.t	278 B	-r--r--r--	2014-12-27 11:48

Rename

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 27;

use_ok('Tie::StdHandle');

tie *tst,Tie::StdHandle;

$f = 'tst';

unlink("afile") if -f "afile";

ok(open($f,"+>afile"), "open +>afile");
ok(open($f, "+<", "afile"), "open +<, afile");
ok(binmode($f), "binmode")
    or diag("binmode: $!\n");

ok(-f "afile", "-f afile");

# write some lines

ok(print($f "SomeData\n"), "print SomeData");    # line 1
is(tell($f), 9, "tell");
ok(printf($f "Some %d value\n",1234), "printf"); # line 2
ok(print($f "ABCDEF\n"), "print ABCDEF");        # line 3
{
    local $\ = "X\n";
    ok(print($f "rhubarb"), "print rhubarb");    # line 4
}

ok(syswrite($f, "123456789\n", 3, 7), "syswrite");# line 5

# read some lines back

ok(seek($f,0,0), "seek");

# line 1
#
$b = <$f>;
is($b, "SomeData\n", "b eq SomeData");
ok(!eof($f), "!eof");

#line 2

is(read($f,($b=''),4), 4, "read(4)");
is($b, 'Some', "b eq Some");
is(getc($f), ' ', "getc");
$b = <$f>;
is($b, "1234 value\n", "b eq 1234 value");
ok(!eof($f), "eof");

# line 3

is(read($f,($b='scrinches'),4,4), 4, "read(4,4)"); # with offset
is($b, 'scriABCD', "b eq scriABCD");
$b = <$f>;
is($b, "EF\n", "EF");
ok(!eof($f), "eof");

# line 4

$b = <$f>;
is($b, "rhubarbX\n", "b eq rhubarbX");

# line 5

$b = <$f>;
is($b, "89\n", "b eq 89");

ok(eof($f), "eof");
ok(close($f), "close");

unlink("afile");