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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jun 16 15:21:24 2008
New Revision: 13331

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

Log:
 r13458 at sunnavys-mb:  sunnavy | 2008-06-17 03:16:01 +0800
 moved 20.util.t to 05.util.t


Added: Shipwright/trunk/t/05.util.t
==============================================================================
--- (empty file)
+++ Shipwright/trunk/t/05.util.t	Mon Jun 16 15:21:24 2008
@@ -0,0 +1,77 @@
+use strict;
+use warnings;
+
+use Test::More tests => 14;
+
+use Shipwright::Test;
+use Shipwright::Util;
+use File::Spec;
+use File::Temp qw/tempfile/;
+use Cwd;
+
+Shipwright::Test->init;
+
+my $cwd = getcwd;
+my ( $shipwright_root, $share_root );
+
+if ( grep { m{blib/lib} } @INC ) {
+
+    # found blib/lib, so we're probably in `make test` or something like that.
+    $shipwright_root = File::Spec->catfile( $cwd, 'blib', 'lib' );
+    $share_root =
+      File::Spec->catfile( $cwd, 'blib', 'lib', 'auto', 'Shipwright' );
+}
+else {
+    $shipwright_root = File::Spec->catfile( $cwd, 'lib' );
+    $share_root      = File::Spec->catfile( $cwd, 'share' );
+}
+
+# we want to run shipwright_root and share_root twice to get codes covered.
+for ( 1 .. 2 ) {
+    is(
+        $shipwright_root,
+        Shipwright::Util->shipwright_root,
+        'shipwright_root works',
+    );
+    is( $share_root, Shipwright::Util->share_root, 'share_root works' );
+}
+
+my ( $out, $err );
+$out = Shipwright::Util->run( [ 'ls', 'lib' ] );
+like( $out, qr/Shipwright/, "run 'ls lib' get right output" );
+
+eval { Shipwright::Util->run( [ 'ls', 'lalala' ] ) };
+like( $@, qr/something wrong/i, 'run "ls lalala" results in death' );
+
+( undef, $err ) = Shipwright::Util->run( [ 'ls', 'lalala' ], 1 );
+like(
+    $err,
+    qr/no such file/i,
+    "run 'ls lalala' get 'no file' warning if ignore_failure"
+);
+
+my $hashref = { foo => 'bar' };
+my $string = <<EOF;
+--- 
+foo: bar
+EOF
+
+my ( $fh, $fn ) = tempfile;
+print $fh $string;
+close $fh;
+
+is_deeply( $hashref, Shipwright::Util::LoadFile($fn), 'LoadFile works' );
+is_deeply( $hashref, Shipwright::Util::Load($string), 'Load works' );
+
+is_deeply( $string, Shipwright::Util::Dump($hashref), 'Dump works' );
+
+my ( undef, $fn2 ) = tempfile;
+Shipwright::Util::DumpFile( $fn2, $hashref );
+my $string2;
+{ local $/; open my $fh, '<', $fn2 or die $!; $string2 = <$fh>; }
+
+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' );