r27263 - /trunk/dh-make-perl/t/corelist.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Nov 25 22:29:57 2008
New Revision: 27263

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27263
Log:
Simple tests to ensure that get_stdmodules() works.

Added:
    trunk/dh-make-perl/t/corelist.t   (with props)

Added: trunk/dh-make-perl/t/corelist.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/corelist.t?rev=27263&op=file
==============================================================================
--- trunk/dh-make-perl/t/corelist.t (added)
+++ trunk/dh-make-perl/t/corelist.t Tue Nov 25 22:29:57 2008
@@ -1,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+
+use FindBin qw($Bin);
+
+require "$Bin/../dh-make-perl";        # Load our code for testing.
+
+my @std_modules = get_stdmodules();
+
+# Check to see if our module list contains some obvious candidates.
+
+my %modules_index;
+ at modules_index{@std_modules} = ();
+
+foreach my $module ( qw(Fatal File::Copy FindBin CGI IO::Handle Safe) ) {
+    ok(exists $modules_index{$module}, "$module should be a core module");
+}

Propchange: trunk/dh-make-perl/t/corelist.t
------------------------------------------------------------------------------
    svn:executable = *