File: 34_readwrite.t

package info (click to toggle)
libmodule-install-perl 1.21-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 636 kB
  • sloc: perl: 3,569; makefile: 13
file content (20 lines) | stat: -rw-r--r-- 449 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use strict;
use warnings;
use Test::More;
use Module::Install::Admin;
use File::Temp qw/ tempdir /;
use autodie;

my $dir = tempdir;
chdir $dir;

open my $test, ">", "a";
binmode $test;
print $test "\n\r\n\r\r";
close $test;

my $c = Module::Install::_read( "a" );
is length $c, 5, "Module::Install::_read reads in binary mode";
Module::Install::_write( "b", $c );
is -s "b", 5, "Module::Install::Admin::_write writes in binary mode";
done_testing;