37revspec.t

#!/usr/bin/perl -w
use strict;
use SVK::Test;
plan tests => 14;

our $output;
my ($xd, $svk) = build_test('test');
my ($copath, $corpath) = get_copath ('revspec');
my ($repospath, undef, $repos) = $xd->find_repos ('//', 1);
$svk->checkout ('//', $copath);
chdir ($copath);
mkdir ('A');
overwrite_file ("A/foo", "foobar\nfnord\n");
overwrite_file ("A/bar", "foobar\n");
$svk->add ('A');
$svk->commit ('-m', 'init');
$svk->cp ('//A/foo', 'foo-cp');
$svk->cp ('//A/bar', 'bar-cp');
overwrite_file ("foo-cp", "foobar\nfnord\nnewline");
$svk->commit ('-m', 'cp and ps');

is_output_like($svk,'log',['-r','HEAD'],qr|cp and ps|);
is_output_like($svk,'log',['-r','head'],qr|cp and ps|);
is_output_like($svk,'log',['-r','HEAD','//'],qr|cp and ps|);
is_output_like($svk,'log',['-r','BASE'],qr|cp and ps|);
is_output_like($svk,'log',['-r','base'],qr|cp and ps|);
is_output_like($svk,'log',['-r','BASE','//A'],qr|BASE can only be issued with a check-out path|);
is_output_like($svk,'log',['-r','1','-r','2','-r','3','//A'],qr|Invalid -r.|);

$svk->cp('//A/foo','//A/foo-cp2','-m','cp issued directly to depotpath');
is_output_like($svk,'log',['-r','-1'],qr|cp and ps|);
TODO: {
local $TODO = 'ignore base limit when HEAD is specified';
is_output_like($svk,'log',['-r','HEAD'],qr|cp issued directly to depotpath|);
}
is_output_like($svk,'log',['-r','HEAD','//A'],qr|cp issued directly to depotpath|);
is_output_like($svk,'log',['-r','BASE'],qr|cp and ps|);

my ($y,$m,$d) = (localtime(time))[5,4,3];
my $date = sprintf('%04d-%02d-%02d',$y+1900,$m,$d );
# Today's date means "the latest thing at midnight at the beginning of
# today", so empty.
is_output_like($svk,'log',['-r',"{$date}"],qr|^$|);
is_output_like($svk,'log',['-r',"LLASKDJF"],qr|is not a number|);

# This date should always in the future to refer to the latest revision
#  -- because we can't let this test runs for days.
$date = sprintf('%04d-%02d-%02d',$y+2000,1,1);

is_output_like($svk,'log',['-r',"{$date}"],qr|cp and ps|);