[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