summaryrefslogtreecommitdiff
path: root/bin/generate-tests
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2006-01-05 09:34:30 +0000
committercvs2git <cvs2git>2006-01-05 09:34:30 +0000
commit0c525f3ba7b2b6730b8939b950e4d76dd16802a9 (patch)
tree9d0c5411f52238759ca3484d5ecc036dc6905414 /bin/generate-tests
parent8f5c91d6c7a8dc85a8b6768a149b4c7b3e144c38 (diff)
This commit was manufactured by cvs2svn to create tag 'SQL_LEDGER_2_4_4'.SQL_LEDGER_2_4_4
Diffstat (limited to 'bin/generate-tests')
-rwxr-xr-xbin/generate-tests21
1 files changed, 0 insertions, 21 deletions
diff --git a/bin/generate-tests b/bin/generate-tests
deleted file mode 100755
index 73fd29ecb..000000000
--- a/bin/generate-tests
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-@files = glob('FS/*.pm');
-foreach (@files) {
-# warn $_;
- chomp;
- s/^FS\///;
- $f=$_;
- $f=~s/pm$/t/;
- $m=$_;
- $m=~s/\.pm$//;
- open(TEST,">t/$f");
- print "t/$f\n";
- print TEST
- 'BEGIN { $| = 1; print "1..1\n" }'. "\n".
- 'END {print "not ok 1\n" unless $loaded;}'. "\n".
- "use FS::$m;\n".
- '$loaded=1;'. "\n".
- 'print "ok 1\n";'. "\n"
- ;
- close TEST;
-}