projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
add pkey to batch payments and fix a doc typo
[freeside.git]
/
bin
/
generate-tests
1
#!/usr/bin/perl
2
@files = glob('FS/*.pm');
3
foreach (@files) {
4
# warn $_;
5
chomp;
6
s/^FS\///;
7
$f=$_;
8
$f=~s/pm$/t/;
9
$m=$_;
10
$m=~s/\.pm$//;
11
open(TEST,">t/$f");
12
print "t/$f\n";
13
print TEST
14
'BEGIN { $| = 1; print "1..1\n" }'. "\n".
15
'END {print "not ok 1\n" unless $loaded;}'. "\n".
16
"use FS::$m;\n".
17
'$loaded=1;'. "\n".
18
'print "ok 1\n";'. "\n"
19
;
20
close TEST;
21
}