[svk-commit] r2263 - branches/2.0-releng/t

nobody at bestpractical.com nobody at bestpractical.com
Sun Dec 24 10:09:08 EST 2006


Author: clkao
Date: Sun Dec 24 10:09:07 2006
New Revision: 2263

Modified:
   branches/2.0-releng/t/33prop.t
   branches/2.0-releng/t/77floating.t

Log:
More win32 path issues in tests.

Modified: branches/2.0-releng/t/33prop.t
==============================================================================
--- branches/2.0-releng/t/33prop.t	(original)
+++ branches/2.0-releng/t/33prop.t	Sun Dec 24 10:09:07 2006
@@ -59,7 +59,7 @@
 is_output ($svk, 'pg', ['myprop', "$copath/A"],
 	   ['myvalue']);
 is_output ($svk, 'pg', [-R => 'myprop', "$copath"],
-	   ['t/checkout/prop/A - myvalue']);
+	   [__('t/checkout/prop/A - myvalue')]);
 
 $svk->commit ('-m', 'commit', $copath);
 

Modified: branches/2.0-releng/t/77floating.t
==============================================================================
--- branches/2.0-releng/t/77floating.t	(original)
+++ branches/2.0-releng/t/77floating.t	Sun Dec 24 10:09:07 2006
@@ -35,9 +35,8 @@
 my $loaded = LoadFile("$copath/.svk/config");
 ok(ref($loaded->{checkout}) eq "Data::Hierarchy::Relative",
    'stored config is relative');
-my $checkout = $loaded->{checkout}->to_absolute('/nowhere');
-ok(exists $checkout->get("/nowhere/A/foo")->{revision}, 'relative lookup');
-
+my $checkout = $loaded->{checkout}->to_absolute(Path::Class::Dir->new('/nowhere'));
+ok(exists $checkout->get(Path::Class::Dir->new("/nowhere/A/foo"))->{revision}, 'relative lookup');
 my ($copath2, $corpath2) = get_copath ('floating2');
 rename ($corpath, $corpath2);
 ($xd, $svk) = build_floating_test($corpath2);


More information about the svk-commit mailing list