[svk-commit] r3011 - trunk/t/added
nobody at bestpractical.com
nobody at bestpractical.com
Thu Jul 24 15:54:59 EDT 2008
Author: ruz
Date: Thu Jul 24 15:54:54 2008
New Revision: 3011
Added:
trunk/t/added/
trunk/t/added/co-basics.t
Log:
* add several failing tests
Added: trunk/t/added/co-basics.t
==============================================================================
--- (empty file)
+++ trunk/t/added/co-basics.t Thu Jul 24 15:54:54 2008
@@ -0,0 +1,162 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use Test::More tests => 16;
+use File::Path;
+use Cwd;
+use SVK::Test;
+
+my ($xd, $svk) = build_test();
+our $output;
+my ($copath, $corpath) = get_copath ('smerge');
+my (undef, undef, $repos) = $xd->find_repos ('//', 1);
+my $uuid = $repos->fs->get_uuid;
+
+$svk->mkdir ('-m', 'trunk', '//trunk');
+$svk->checkout ('//', $copath);
+
+# ok, we add A/a_file in the checkout and play with it
+
+is_output($svk, 'mkdir', [__"$copath/A"],
+ [
+ __"A $copath/A",
+ ]
+);
+overwrite_file(__"$copath/A/a_file", "a file\n");
+is_output($svk, 'add', [__"$copath/A/a_file"],
+ [
+ __"A $copath/A/a_file",
+ ]
+);
+
+
+# status command
+{
+ is_output($svk, 'st', [__"$copath"],
+ [
+ __"A $copath/A",
+ __"A $copath/A/a_file",
+ ]
+ );
+ is_output($svk, 'st', [__"$copath/A"],
+ [
+ __"A $copath/A",
+ __"A $copath/A/a_file",
+ ]
+ );
+ TODO: { local $TODO = "shouldn't report parent dir";
+ is_output($svk, 'st', [__"$copath/A/a_file"],
+ [
+ __"A $copath/A/a_file",
+ ]
+ );
+ }
+ is_output($svk, 'st', ['-N', __"$copath"],
+ [
+ __"A $copath/A",
+ ]
+ );
+ is_output($svk, 'st', ['-N', __"$copath/A"],
+ [
+ __"A $copath/A",
+ __"A $copath/A/a_file",
+ ]
+ );
+ TODO: { local $TODO = "shouldn't report parent dir";
+ is_output($svk, 'st', ['-N', __"$copath/A/a_file"],
+ [
+ __"A $copath/A/a_file",
+ ]
+ );
+ }
+}
+
+# diff command
+{
+ is_output($svk, 'di', [__"$copath"],
+ [
+ __"=== $copath/A\t(new directory)",
+ __"==================================================================",
+ __"=== $copath/A/a_file",
+ __"==================================================================",
+ __"--- $copath/A/a_file\t(revision 1)",
+ __"+++ $copath/A/a_file\t(local)",
+ __"@@ -0,0 +1 @@",
+ __"+a file",
+ ]
+ );
+ is_output($svk, 'di', ['-N', __"$copath"],
+ [
+ __"=== $copath/A\t(new directory)",
+ __"==================================================================",
+ ]
+ );
+ is_output($svk, 'di', [__"$copath/A"],
+ [
+ __"=== $copath/A\t(new directory)",
+ __"==================================================================",
+ __"=== $copath/A/a_file",
+ __"==================================================================",
+ __"--- $copath/A/a_file\t(revision 1)",
+ __"+++ $copath/A/a_file\t(local)",
+ __"@@ -0,0 +1 @@",
+ __"+a file",
+ ]
+ );
+ is_output($svk, 'di', ['-N', __"$copath/A"],
+ [
+ __"=== $copath/A\t(new directory)",
+ __"==================================================================",
+ __"=== $copath/A/a_file",
+ __"==================================================================",
+ __"--- $copath/A/a_file\t(revision 1)",
+ __"+++ $copath/A/a_file\t(local)",
+ __"@@ -0,0 +1 @@",
+ __"+a file",
+ ]
+ );
+ TODO: { local $TODO = "shouldn't report parent dir";
+ is_output($svk, 'di', [__"$copath/A/a_file"],
+ [
+ __"==================================================================",
+ __"=== $copath/A/a_file",
+ __"==================================================================",
+ __"--- $copath/A/a_file (revision 1)",
+ __"+++ $copath/A/a_file (local)",
+ __"@@ -0,0 +1 @@",
+ __"+a file",
+ ]
+ );
+ is_output($svk, 'di', ['-N', __"$copath/A/a_file"],
+ [
+ __"==================================================================",
+ __"=== $copath/A/a_file",
+ __"==================================================================",
+ __"--- $copath/A/a_file (revision 1)",
+ __"+++ $copath/A/a_file (local)",
+ __"@@ -0,0 +1 @@",
+ __"+a file",
+ ]
+ );
+ }
+}
+
+# chdir into added path and run status
+{
+ chdir __"$copath/A";
+ is_output($svk, 'st', [],
+ [
+ __"A ../A",
+ __"A ../A/a_file",
+ ]
+ );
+ TODO: { local $TODO = "shouldn't report parent dir";
+ is_output($svk, 'st', ['a_file'],
+ [
+ __"A ../A/a_file",
+ ]
+ );
+ }
+}
+
More information about the svk-commit
mailing list