26revert.t

#!/usr/bin/perl -w
use Test::More tests => 23;
use strict;
use SVK::Test;
our $output;
my ($xd, $svk) = build_test();
my ($copath, $corpath) = get_copath ('revert');
my ($repospath, undef, $repos) = $xd->find_repos ('//', 1);
$svk->checkout ('//', $copath);
chdir ($copath);
mkdir ('A');
mkdir ('A/deep');
overwrite_file ("A/foo", "foobar");
overwrite_file ("A/deep/bar", "foobar");
overwrite_file ("A/deep/baz", "foobar");
$svk->add('A');
is_output ($svk, 'revert', ['A/foo'],
	   [__("Reverted A/foo")], 'revert an added file');
is_output ($svk, 'revert', ['A/foo'],
	   [__("A/foo is not versioned; ignored.")], 'do it again');
is_output ($svk, 'revert', ['-q', 'A/foo'],
	   [__("A/foo is not versioned; ignored.")], 'do it again');
is_output ($svk, 'revert', ['-R', 'A/deep'],
	   [__("Reverted A/deep"),
	    __("Reverted A/deep/bar"),
	    __("Reverted A/deep/baz"),
	   ], 'partial revert after add');

overwrite_file_raw ("A/mixed-line-endings", "foo\015\012..bar\012..baz\015..quux\015\012..xyzzy");
$svk->add('A');
is_output ($svk, 'ps', ['svn:eol-style', 'LF', "A/mixed-line-endings"],
	   [__"File A/mixed-line-endings has inconsistent newlines."]);
overwrite_file_raw ("A/mixed-line-endings", "");
is_output ($svk, 'ps', ['svn:eol-style', 'LF', "A/mixed-line-endings"],
	   [__" M  A/mixed-line-endings"]);
overwrite_file_raw ("A/mixed-line-endings", "foo\015\012..bar\012..baz\015..quux\015\012..xyzzy");

is_output ($svk, 'revert', ['-R'],
	   [__("Reverted A"),
	    __("Reverted A/deep"),
	    __("Reverted A/deep/bar"),
	    __("Reverted A/deep/baz"),
	    __("Reverted A/foo"),
	    __("Reverted A/mixed-line-endings"),
           ], 'revert everything');

is_output ($svk, 'st', [], ['?   A']);

TODO: {
# this creates dangling sticky .schedule for descendents
local $TODO = 'disallow reverting added dir without -R';

$svk->add('A');
is_output ($svk, 'revert', ['A'],
	   ["Can't revert added directory A, use revert -R"],
	   'deny reverting dir only');
}

$svk->add('A');
$svk->commit ('-m', 'commit everything');

overwrite_file ("A/foo", "foobarbaz");
overwrite_file ("A/deep/bar", "foobarbaz");
overwrite_file ("A/deep/baz", "foobarbaz");
$svk->status;

is_output ($svk, 'revert', ['-R', 'A/deep'],
	   [__("Reverted A/deep/bar"),
	    __("Reverted A/deep/baz"),
	   ], 'partial revert after modification');
is_output ($svk, 'revert', ['A/foo'],
	   [__("Reverted A/foo")], 'revert a modified file');

is_output ($svk, 'revert', ['A/foo'], [], 'do it again');

append_file ("A/foo", "modified");
$svk->commit ('-m', 'modify A/foo');
overwrite_file ("A/foo", "foobarbaz");
$svk->update ('-r1');
is_output ($svk, 'st', [],
	  [__('C   A/foo')]);
is_output ($svk, 'revert', ['-R'],
	   [__("Reverted A/foo")]);
is_output ($svk, 'st', [], []);

overwrite_file ("A/foo", "foobarbaz");
is_output ($svk, 'revert', ['--quiet', '-R'], []);
is_output ($svk, 'st', [], []);

$svk->cp('A/foo', 'A/foo.cp');

is_output ($svk, 'revert', ['-R'],
	   [__("Reverted A/foo.cp")]);

is_output ($svk, 'st', [], [__('?   A/foo.cp')]);
unlink('A/foo.cp');

$svk->cp('A/foo', 'A/foo.cp');
append_file('A/foo.cp', 'some thing');
is_output ($svk, 'revert', ['-R'],
	   [__("Reverted A/foo.cp")]);

is_output ($svk, 'st', [], [__('?   A/foo.cp')]);
unlink('A/foo.cp');

mkdir('A/dir1');
overwrite_file ("A/dir1/foo", "foobarbaz");
overwrite_file ("A/dir1/bar", "foobarbaz");
$svk->add('A/dir1');
$svk->commit ('-m', 'added A/dir1');
$svk->cp('A/dir1', 'A/dir1-copy');
append_file('A/dir1-copy/foo', 'some thing');
overwrite_file ("A/dir1-copy/fnord", "foobarbaz");
$svk->add("A/dir1-copy/fnord");
$svk->rm('A/dir1-copy/bar');
is_output ($svk, 'st', [], [
    __('A + A/dir1-copy'),
    __('M + A/dir1-copy/foo'),
    __('A   A/dir1-copy/fnord'),
    __('D + A/dir1-copy/bar')]);

is_output ($svk, 'revert', ['-R', 'A/dir1-copy'], [
    __('Reverted A/dir1-copy'),
    __('Reverted A/dir1-copy/foo'),
    __('Reverted A/dir1-copy/fnord'),
    __('Reverted A/dir1-copy/bar')]);