|
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 #
|
|
|
10 #
|
|
|
11
|
|
|
12 cat <<EOF
|
|
|
13 #!/usr/bin/perl -w -I..
|
|
|
14 #
|
|
|
15 # Test that all the Perl modules we require are available.
|
|
|
16 #
|
|
|
17 # This list is automatically generated by modules.sh
|
|
|
18 #
|
|
|
19 # Steve
|
|
|
20 # --
|
|
|
21 #
|
|
|
22
|
|
|
23 use Test::More qw( no_plan );
|
|
|
24
|
|
|
25 EOF
|
|
|
26
|
|
|
27
|
|
|
28 for i in `rgrep '^use ' .. | awk '{print $2}' | tr -d
\;\(\) | sort | uniq`; \
|
|
|
29 do \
|
|
|
30 echo "BEGIN{ use_ok( '$i' ); }"; \
|
|
|
31 echo "require_ok( '$i' );" ; \
|
|
|
32 echo -e "\n" ; \
|
|
|
33 done
|
|
|
34
|
