projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
import rt 3.8.11
[freeside.git]
/
rt
/
sbin
/
extract_pod_tests
diff --git
a/rt/sbin/extract_pod_tests
b/rt/sbin/extract_pod_tests
index
3987e90
..
897564d
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
9
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)
@@
-23,7
+23,9
@@
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+# 02110-1301 or visit their web page on the internet at
+# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
#
#
# CONTRIBUTION SUBMISSION POLICY:
#
#
# CONTRIBUTION SUBMISSION POLICY:
@@
-43,7
+45,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
+123,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";
}