The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use Test::More tests => 8;
use strict;
use SVK::Test;
our($output, $answer);
my ($xd, $svk) = build_test();
$svk->mkdir ('-m', 'init', '//V');
my $tree = create_basic_tree ($xd, '//V');
my ($copath, $corpath) = get_copath ('commit-file');
mkdir($copath);
chdir($copath);
is_output ($svk, 'checkout', ['//V/A/Q/qu'],
	   ["Syncing //V/A/Q/qu(/V/A/Q/qu) in ".__"$corpath/qu to 3.",
	    'A   qu']);
ok (-e 'qu');

append_file("qu", "change single file\n");

is_output($svk, 'diff', ['qu'],
	  ['=== qu',
	   '==================================================================',
	   "--- qu\t(revision 3)",
	   "+++ qu\t(local)",
	   '@@ -1,2 +1,3 @@',
	   ' first line in qu',
	   ' 2nd line in qu',
	   '+change single file',
	  ]);


is_output($svk, 'ci', [-m => 'commit single checkout', "qu"],
	  ['Committed revision 4.']);

is_output ($svk, 'checkout', ['//V/A/Q/qu', "boo"],
	   ["Syncing //V/A/Q/qu(/V/A/Q/qu) in ".__"$corpath/boo to 4.",
	    'A   boo']);
ok (-e 'boo');

TODO: {

local $TODO = 'checkout single file with different name';

append_file("boo", "change single file\n");
is_output($svk, 'diff', ['boo'],
	  ['=== boo',
	   '==================================================================',
	   "--- boo\t(revision 4)",
	   "+++ boo\t(local)",
	   '@@ -1,2 +1,3 @@',
	   ' first line in qu',
	   ' 2nd line in qu',
	   ' change single file',
	   '+change again',
	  ]);

is_output($svk, 'ci', [-m => 'commit single checkout', "boo"],
	  ['Committed revision 4.']);
}