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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jun 16 16:33:28 2008
New Revision: 13333

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/t/05.util.t

Log:
 r13462 at sunnavys-mb:  sunnavy | 2008-06-17 04:27:25 +0800
 more tests for Util.pm


Modified: Shipwright/trunk/t/05.util.t
==============================================================================
--- Shipwright/trunk/t/05.util.t	(original)
+++ Shipwright/trunk/t/05.util.t	Mon Jun 16 16:33:28 2008
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+use Test::More tests => 15;
 
 use Shipwright::Test;
 use Shipwright::Util;
@@ -72,6 +72,9 @@
 
 is( $string, $string2, 'DumpFile works' );
 
-ok( Shipwright::Util->select( 'null' ), 'selected null' );
-ok( Shipwright::Util->select( 'cpan' ), 'selected cpan' );
-ok( Shipwright::Util->select( 'stdout' ), 'selected stdout' );
+ok( Shipwright::Util->select('null'), 'selected null' );
+ok( Shipwright::Util->select('cpan'), 'selected cpan' )
+  for 1 .. 2;    # for test coverage
+ok( Shipwright::Util->select('stdout'), 'selected stdout' );
+eval { Shipwright::Util->select('noexists') };
+like( $@, qr/unknown type/, 'unknown type results in death' );