Acme-MetaSyntactic-soviet
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
# Note: this file was auto-generated by Module::Build::Compat version 0.4001
use ExtUtils::MakeMaker;
WriteMakefile
(
'ABSTRACT' => 'Metasyntactic theme with NATO codenames for Soviet-designed equipment',
'PL_FILES' => {},
'INSTALLDIRS' => 'site',
'NAME' => 'Acme::MetaSyntactic::soviet',
'EXE_FILES' => [],
lib/Acme/MetaSyntactic/soviet.pm view on Meta::CPAN
any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, see
L<https://www.gnu.org/licenses/gpl-1.0.html> or contact the Free
Software Foundation, Inc., L<https://www.fsf.org/>.
This program is free software; you can redistribute it and you can
modify it under the same terms as Perl itself.
=cut
t/00-load.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More tests => 1;
BEGIN {
use_ok( 'Acme::MetaSyntactic::soviet' );
}
diag( "Testing Acme::MetaSyntactic::soviet $Acme::MetaSyntactic::soviet::VERSION, Perl $], $^X" );
t/01-default.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 20;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet' );
my @names = $meta->name( $number );
foreach (@names) {
t/02-elec.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 20;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'electronic' );
my @names = $meta->name( $number );
foreach (@names) {
t/03-radars.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'electronic/radars' );
my @names = $meta->name( $number );
foreach (@names) {
t/04-misc.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'electronic/misc' );
my @names = $meta->name( $number );
foreach (@names) {
t/05-submarines.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 20;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles' );
my @names = $meta->name( $number );
foreach (@names) {
t/05-vehicles.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 20;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles' );
my @names = $meta->name( $number );
foreach (@names) {
t/06-aircraft.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles/aircraft' );
my @names = $meta->name( $number );
foreach (@names) {
t/07-helicopters.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles/helicopters' );
my @names = $meta->name( $number );
foreach (@names) {
t/08-missiles.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles/missiles' );
my @names = $meta->name( $number );
foreach (@names) {
t/09-errors.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles/errors' );
my @names = $meta->name( $number );
foreach (@names) {
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Acme::MetaSyntactic;
my $number = 50;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => ':all' );
my @names = $meta->name( $number );
foreach (@names) {
t/boilerplate.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
t/metasyntactic.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use Test::More;
use Test::MetaSyntactic;
# allow passing themes on the command-line
if (@ARGV) {
plan tests => scalar @ARGV;
theme_ok($_) for @ARGV;
}
else {
t/pod-coverage.t view on Meta::CPAN
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, contact the Free Software Foundation,
# Inc., <https://www.fsf.org/>.
#
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
( run in 1.307 second using v1.01-cache-2.11-cpan-e1769b4cff6 )