#!/usr/local/bin/perl

use strict;
use warnings;
use Test::More tests => 3;

ok(`mv 2>&1` =~ /missing file argument|usage:/, "error if no arguments");

die if (-e 'foo');
`touch foo`;
`mv foo bar`;
ok(!-e 'foo', "old file removed");
ok(-e 'bar', "new file created");
unlink 'bar';