[svn:parrot] r37914 - branches/install_tools/t/tools/install

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Sun Apr  5 01:53:53 2009
New Revision: 37914
URL: https://trac.parrot.org/parrot/changeset/37914

Log:
Add a few tests and specify exact number of tests in the plan.

Modified:
   branches/install_tools/t/tools/install/02-install_files.t
   branches/install_tools/t/tools/install/03-lines_to_files.t

Modified: branches/install_tools/t/tools/install/02-install_files.t
==============================================================================
--- branches/install_tools/t/tools/install/02-install_files.t	Sun Apr  5 01:53:15 2009	(r37913)
+++ branches/install_tools/t/tools/install/02-install_files.t	Sun Apr  5 01:53:53 2009	(r37914)
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use Test::More qw(no_plan); # tests => 11;
+use Test::More tests => 17;
 use Carp;
 use Cwd;
 use File::Copy;

Modified: branches/install_tools/t/tools/install/03-lines_to_files.t
==============================================================================
--- branches/install_tools/t/tools/install/03-lines_to_files.t	Sun Apr  5 01:53:15 2009	(r37913)
+++ branches/install_tools/t/tools/install/03-lines_to_files.t	Sun Apr  5 01:53:53 2009	(r37914)
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use Test::More qw(no_plan); # tests => 11;
+use Test::More tests =>  6;
 use Carp;
 use Cwd;
 use File::Copy;
@@ -105,6 +105,8 @@
     );
     like($stderr, qr/MANIFEST\.generated:\d+:\s+Duplicate entry/,
         "Detected duplicate entries in one or more manifest files" );
+    is( scalar @{ $installable_exe_ref }, 0,
+        "No installable executables in this test" );
 
     chdir $cwd or die "Unable to return to starting directory: $!";
 }