|
copy gitweblite soruce code
|
1 |
use strict; |
| 2 |
use warnings; |
|
| 3 |
use Test::ModuleVersion; |
|
| 4 |
use FindBin; |
|
| 5 | ||
| 6 |
# Create module test |
|
| 7 |
my $tm = Test::ModuleVersion->new; |
|
| 8 |
$tm->before(<<'EOS'); |
|
| 9 |
use 5.008007; |
|
| 10 | ||
| 11 |
=pod |
|
| 12 | ||
| 13 |
run mvt.pl to create this module version test(t/module.t). |
|
| 14 | ||
| 15 |
perl mvt.pl |
|
| 16 | ||
| 17 |
=cut |
|
| 18 | ||
| 19 |
EOS |
|
| 20 |
$tm->lib(['../extlib/lib/perl5']); |
|
| 21 |
$tm->test_script(output => "$FindBin::Bin/t/module.t"); |
|
| 22 | ||
| 23 |
1; |