projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r6252,
[freeside.git]
/
rt
/
sbin
/
extract_pod_tests
diff --git
a/rt/sbin/extract_pod_tests
b/rt/sbin/extract_pod_tests
index
3987e90
..
4d9d7bd
100644
(file)
--- a/
rt/sbin/extract_pod_tests
+++ b/
rt/sbin/extract_pod_tests
@@
-1,9
+1,9
@@
#!/usr/bin/perl
#!/usr/bin/perl
-#
{{{ BEGIN BPS TAGGED BLOCK
+#
BEGIN BPS TAGGED BLOCK {{{
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-200
4
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-200
5
Best Practical Solutions, LLC
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-43,7
+43,7
@@
# works based on those contributions, and sublicense and distribute
# those contributions and any derivatives thereof.
#
# works based on those contributions, and sublicense and distribute
# those contributions and any derivatives thereof.
#
-#
}}} END BPS TAGGED BLOCK
+#
END BPS TAGGED BLOCK }}}
use strict;
use vars qw($VERSION);
$VERSION = '0.06';
use strict;
use vars qw($VERSION);
$VERSION = '0.06';
@@
-121,7
+121,14
@@
else {
}
}
+print $outfh <<EOF;
+use Test::More qw/no_plan/;
+use RT;
+RT::LoadConfig();
+RT::Init();
+
+EOF
foreach my $test (@tests, @examples) {
print $outfh "$test\n";
}
foreach my $test (@tests, @examples) {
print $outfh "$test\n";
}