|
1
|
1 #!/bin/sh
|
|
|
2 #
|
|
|
3 # Automatically attempt to create a test which ensures all the modules
|
|
|
4 # used in the code are availabe.
|
|
|
5 #
|
|
|
6 # Steve
|
|
|
7 # --
|
|
|
8 # http://www.steve.org.uk/
|
|
|
9 #
|
|
3
|
10 # $Id: modules.sh,v 1.2 2007-08-13 22:55:11 steve Exp $
|
|
1
|
11 #
|
|
|
12
|
|
|
13 cat <<EOF
|
|
|
14 #!/usr/bin/perl -w -I..
|
|
|
15 #
|
|
|
16 # Test that all the Perl modules we require are available.
|
|
|
17 #
|
|
|
18 # This list is automatically generated by modules.sh
|
|
|
19 #
|
|
|
20 # Steve
|
|
|
21 # --
|
|
|
22 #
|
|
|
23
|
|
|
24 use Test::More qw( no_plan );
|
|
|
25
|
|
|
26 EOF
|
|
|
27
|
|
|
28
|
|
|
29 for i in `rgrep '^use ' .. | awk '{print $2}' | tr -d
\;\(\) | sort | uniq`; \
|
|
|
30 do \
|
|
|
31 echo "BEGIN{ use_ok( '$i' ); }"; \
|
|
|
32 echo "require_ok( '$i' );" ; \
|
|
|
33 echo -e "\n" ; \
|
|
|
34 done
|
|
|
35
|
