Mercurial > hg > chronicle
comparison tests/modules.sh @ 1:bc8961a81af6 release
2007-08-13 22:53:14 by steve
Initial revision
| author | steve |
|---|---|
| date | Mon, 13 Aug 2007 22:53:14 +0000 |
| parents | |
| children | 8503c495b169 |
comparison
equal
deleted
inserted
replaced
| 0:30c6796bded8 | 1:bc8961a81af6 |
|---|---|
| 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 # $Id: modules.sh,v 1.1.1.1 2007-08-13 22:53:14 steve Exp $ | |
| 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 | |
| 30 \;\(\) | sort | uniq`; \ | |
| 31 do \ | |
| 32 echo "BEGIN{ use_ok( '$i' ); }"; \ | |
| 33 echo "require_ok( '$i' );" ; \ | |
| 34 echo -e "\n" ; \ | |
| 35 done | |
| 36 |