diff options
Diffstat (limited to 'rt/sbin/extract_pod_tests')
| -rw-r--r-- | rt/sbin/extract_pod_tests | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/rt/sbin/extract_pod_tests b/rt/sbin/extract_pod_tests index 3987e90c7..4d9d7bd6c 100644 --- a/rt/sbin/extract_pod_tests +++ b/rt/sbin/extract_pod_tests @@ -1,9 +1,9 @@ #!/usr/bin/perl -# {{{ BEGIN BPS TAGGED BLOCK +# BEGIN BPS TAGGED BLOCK {{{ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC # <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. # -# }}} END BPS TAGGED BLOCK +# END BPS TAGGED BLOCK }}} 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"; } |