[Bps-public-commit] r12260 -

sunnavy at bestpractical.com sunnavy at bestpractical.com
Mon May 12 12:06:37 EDT 2008


Author: sunnavy
Date: Mon May 12 12:06:34 2008
New Revision: 12260

Modified:
   /   (props changed)
   Shipwright/trunk/t/hello/svk.t
   Shipwright/trunk/t/hello/svn.t

Log:
 r12275 at sunnavys-mb:  sunnavy | 2008-05-12 23:14:54 +0800
 updated tests for source arg chage


Modified: Shipwright/trunk/t/hello/svk.t
==============================================================================
--- Shipwright/trunk/t/hello/svk.t	(original)
+++ Shipwright/trunk/t/hello/svk.t	Mon May 12 12:06:34 2008
@@ -26,10 +26,11 @@
         'ftp://example.com/hello.tar.gz'     => 'FTP',
         'svn:file:///home/sunnavy/svn/hello' => 'SVN',
         'svk://local/hello'                  => 'SVK',
-        'Acme::Hello'                        => 'CPAN',
-        File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ) =>
+        'cpan:Acme::Hello'                   => 'CPAN',
+        'file:'
+          . File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ) =>
           'Compressed',
-        File::Spec->catfile( 't', 'hello' ) => 'Directory',
+        'dir:' . File::Spec->catfile( 't', 'hello' ) => 'Directory',
     );
 
     for ( keys %source ) {
@@ -44,8 +45,9 @@
 
     my $shipwright = Shipwright->new(
         repository => "svk:$repo",
-        source => File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
-        follow => 0,
+        source     => 'file:'
+          . File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
+        follow    => 0,
         log_level => 'FATAL',
     );
 
@@ -64,7 +66,6 @@
         'initialize works'
     );
 
-
     # source
     my $source_dir = $shipwright->source->run();
     like( $source_dir, qr/\bAcme-Hello\b/, 'source name looks ok' );
@@ -143,7 +144,7 @@
     chdir $cwd;
     $shipwright = Shipwright->new(
         repository => "svk:$repo",
-        source => File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
+        source => 'file:' . File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
         name   => 'howdy',
         follow => 0,
         log_level => 'FATAL',
@@ -196,18 +197,18 @@
         'updated order works'
     );
 
-
     # build with 0 packages
-    
+
     {
         my $shipwright = Shipwright->new(
             repository => "svk:$repo",
             log_level  => 'FATAL',
         );
-    
+
         # init
         $shipwright->backend->initialize();
-        $shipwright->backend->export( target => $shipwright->build->build_base );
+        $shipwright->backend->export(
+            target => $shipwright->build->build_base );
         my $install_dir = tempdir;
         $shipwright->build->run( install_base => $install_dir );
         ok(

Modified: Shipwright/trunk/t/hello/svn.t
==============================================================================
--- Shipwright/trunk/t/hello/svn.t	(original)
+++ Shipwright/trunk/t/hello/svn.t	Mon May 12 12:06:34 2008
@@ -20,7 +20,8 @@
 
     my $shipwright = Shipwright->new(
         repository => "svn:$repo",
-        source => File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
+        source     => 'file:'
+          . File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
         log_level => 'FATAL',
         follow    => 0,
     );
@@ -105,9 +106,10 @@
     chdir $cwd;
     $shipwright = Shipwright->new(
         repository => "svn:$repo",
-        source => File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
-        name   => 'howdy',
-        follow => 0,
+        source     => 'file:'
+          . File::Spec->catfile( 't', 'hello', 'Acme-Hello-0.03.tar.gz' ),
+        name      => 'howdy',
+        follow    => 0,
         log_level => 'FATAL',
     );
 



More information about the Bps-public-commit mailing list