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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Jun 21 03:06:48 2008
New Revision: 13529

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

Log:
 r13615 at sunnavys-mb:  sunnavy | 2008-06-21 06:10:43 +0800
 more tests


Modified: Shipwright/trunk/t/04.source.t
==============================================================================
--- Shipwright/trunk/t/04.source.t	(original)
+++ Shipwright/trunk/t/04.source.t	Sat Jun 21 03:06:48 2008
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 20;
 use Shipwright::Test;
 use Shipwright::Source;
 
@@ -22,6 +22,7 @@
 
 for ( keys %source ) {
     my $source = Shipwright::Source->new( source => $_ );
+    isa_ok( $source, 'Shipwright::Source::Base', $_ );
     isa_ok( $source, 'Shipwright::Source::' . $source{$_}, $_ );
 }