~ubuntu-branches/ubuntu/maverick/libfile-fu-perl/maverick

« back to all changes in this revision

Viewing changes to t/slurp.t

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

t/slurp.t

 

1

#!/usr/bin/perl

 

2

 

 

3

use warnings;

 

4

use strict;

 

5

 

 

6

use Test::More qw(no_plan);

 

7

 

 

8

use File::Fu;

 

9

 

 

10

my $d = File::Fu->dir->temp_dir('tmp.');

 

11

my $f = $d + 'file';

 

12

is($f->basename, 'file');

 

13

my $fh = $f->open('>');

 

14

print $fh "foo\nbar\n";

 

15

close($fh) or die "cannot write '$f' $!";

 

16

ok($f->e);

 

17

 

 

18

my @lines = $f->read;

 

19

is_deeply(\@lines, ["foo\n", "bar\n"], 'slurp array');

 

20

is($f->read, "foo\nbar\n", 'slurp scalar');

 

21

 

 

22

# TODO something where File::Slurp is not loaded

 

23

# (probably in another test file and messing with @INC)

 

24

 

 

25

# vim:ts=2:sw=2:et:sta

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1