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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jun 17 15:31:34 2008
New Revision: 13362

Added:
   Shipwright/trunk/t/07.script.t
Modified:
   Shipwright/trunk/   (props changed)

Log:
 r13491 at sunnavys-mb:  sunnavy | 2008-06-18 01:59:27 +0800
 basic tests for script


Added: Shipwright/trunk/t/07.script.t
==============================================================================
--- (empty file)
+++ Shipwright/trunk/t/07.script.t	Tue Jun 17 15:31:34 2008
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use Shipwright::Script;
+
+is_deeply(
+    { del => 'delete', ls => 'list', up => 'update' },
+    { Shipwright::Script->alias },
+    "alias returns ( del => 'delete', ls => 'list', up => 'update' )"
+);
+
+my $logger = Shipwright::Script->log;
+isa_ok( $logger, 'Log::Log4perl::Logger', 'Shipwright::Script->log' );
+