[svk-commit] r2754 - trunk/t/bm

[nobody at bestpractical.com]

Author: clsung
Date: Wed Apr 23 10:07:01 2008
New Revision: 2754

Modified:
   trunk/t/bm/prop-autoload.t

Log:
- TODO my tests for review

Modified: trunk/t/bm/prop-autoload.t
==============================================================================
--- trunk/t/bm/prop-autoload.t	(original)
+++ trunk/t/bm/prop-autoload.t	Wed Apr 23 10:07:01 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use SVK::Test;
-plan tests => 4;
+plan tests => 3;
 our $output;
 
 my ($xd, $svk) = build_test('test');
@@ -17,9 +17,9 @@
 my ($copath, $corpath) = get_copath('basic-trunk');
 
 my $props = { 
-    'svk:project:projectA:path-trunk' => '/projectA/trunk',
-    'svk:project:projectA:path-branches' => '/projectA/branches',
-    'svk:project:projectA:path-tags' => '/projectA/tags',
+    'svk:project:projectA:path-trunk' => '/trunk',
+    'svk:project:projectA:path-branches' => '/branches',
+    'svk:project:projectA:path-tags' => '/tags',
 };
 
 add_prop_to_basic_tree($xd, '/test/',$props);
@@ -34,6 +34,8 @@
 
 $svk->mirror('--detach', '//mirror/MyProject');
 
+TODO: {
+local $TODO = "path properties are relative to the mirror root";
 $answer = ['','','y','1', ''];
 $svk->checkout($uri,$copath);
 
@@ -42,5 +44,7 @@
     ['svk:project:projectA:path-trunk', '//mirror/projectA'],
     [$props->{'svk:project:projectA:path-trunk'}]);
 
-is_output ($svk, 'branch', ['--list','//mirror/projectA'], ['Foo']);
+# currently core dump, after TODO implemented, remove the following #
+#is_output ($svk, 'branch', ['--list','//mirror/projectA'], ['Foo']);
 is_output ($svk, 'branch', ['--list'], ['Foo']);
+}