[Bps-public-commit] r13558 - in Shipwright/trunk: t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jun 24 10:58:45 2008
New Revision: 13558

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/t/04.source.t

Log:
 r13718 at sunnavys-mb:  sunnavy | 2008-06-21 21:54:44 +0800
 added is_compressed test


Modified: Shipwright/trunk/t/04.source.t
==============================================================================
--- Shipwright/trunk/t/04.source.t	(original)
+++ Shipwright/trunk/t/04.source.t	Tue Jun 24 10:58:45 2008
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 20;
+use Test::More tests => 28;
 use Shipwright::Test;
 use Shipwright::Source;
 
@@ -24,6 +24,12 @@
     my $source = Shipwright::Source->new( source => $_ );
     isa_ok( $source, 'Shipwright::Source::Base', $_ );
     isa_ok( $source, 'Shipwright::Source::' . $source{$_}, $_ );
+    if (/tar\.gz/) {
+        ok( $source->is_compressed, "$_ is compressed" );
+    }
+    else {
+        ok( !$source->is_compressed, "$_ is not compressed" );
+    }
 }
 
 my @invalid_sources = ( 'file:/tmp/ok', 'foo', '' );