File Coverage

File:test_mv.t
Coverage:95.2%

linestmtbrancondsubpodtimecode
1#!/usr/local/bin/perl
2
3
1
1
1
1
31
9
11
use strict;
4
1
1
1
1
12
7
11
use warnings;
5
1
1
1
1
26
7
16
use Test::More tests => 3;
6
7
1
15575
ok(`mv 2>&1` =~ /missing file argument/, "error if no arguments");
8
9
1
50
58
die if (-e 'foo');
10
1
9043
`touch foo`;
11
1
5073
`mv foo bar`;
12
1
325
ok(!-e 'foo', "old file removed");
13
1
32
ok(-e 'bar', "new file created");
14
1
86
unlink 'bar';