view release on metacpan or search on metacpan
t/synopsis.t view on Meta::CPAN
system "mv $FindBin::Bin/../examples/lib/Hello.pm $FindBin::Bin/../examples/lib/Hello.🧅";
}
use Test::More;
use lib 'examples/lib';
use Acme::Onion;
use Hello;
ok +Hello->onion;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use strict;
use warnings;
use ExtUtils::MakeMaker;
use lib qw(../blib/lib lib );
use Apache::TestMM qw(test clean); #enable 'make test'
# prerequisites
my @scripts = qw(t/TEST);
view release on metacpan or search on metacpan
- Fix bugtracker.
0.04 2021-03-19T18:24:58+01:00
- Add LICENSE file.
- Add tests.
- Fix use lib '.' in Makefile.PL.
- Improve LICENSE AND COPYRIGHT section in doc.
- Improve SYNOPSIS section in doc.
- Rewrite doc to use =head2.
- Update Module::Install to 1.19 version.
- Update author github username.
view release on metacpan or search on metacpan
example/funcall.pl view on Meta::CPAN
#!perl -w
use strict;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Acme::Perl::VM::Run;
sub hello{
my($s) = @_;
view release on metacpan or search on metacpan
t/01_compile.t view on Meta::CPAN
#!/usr/bin/perl -w
# Compile testing for Acme::PerlML
use strict;
use lib ();
use File::Spec::Functions ':ALL';
BEGIN {
$| = 1;
unless ( $ENV{HARNESS_ACTIVE} ) {
require FindBin;
view release on metacpan or search on metacpan
#!/usr/bin/perl -w
BEGIN
{
chdir 't' if -d 't';
use lib '../lib', '../blib/lib';
}
use strict;
use vars qw( $looping $moving_on );
use Test::More 'no_plan'; # tests => 20;
view release on metacpan or search on metacpan
maint/Makefile.PL.include view on Meta::CPAN
BEGIN { -e 'Distar' or system qw(git clone https://github.com/p5sagit/Distar.git) }
use lib 'Distar/lib';
use Distar 0.001;
author 'haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>';
1;
view release on metacpan or search on metacpan
#!/usr/bin/perl
use strict;
use warnings;
use lib "/home/anarion/perl/rtb";
use Acme::RTB;
my $robot = Acme::RTB->new({ Name => 'Killer Montses',
Colour => 'ff0000 ff0000',
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
BEGIN {
use_ok 'Acme::Resume';
}
use lib 't/01/lib';
use Acme::Resume::For::Tester;
my $resume = Acme::Resume::For::Tester->new;
view release on metacpan or search on metacpan
use Test::More tests => 1;
use Acme::RunDoc;
use lib "t";
use lib ".";
Acme::RunDoc->use('Local::TestModule');
my $pass = Local::TestModule->can('PASS');
ok($pass && $pass->());
view release on metacpan or search on metacpan
use lib 't';
use t::UnsafeSourceFilter;
use Acme::SafetyGoggles;
use Test::More tests => length("xx"); # Can't say tests=>2 because of source filter!
my $foo = 42;
view release on metacpan or search on metacpan
bin/schlong view on Meta::CPAN
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Data::Printer;
use Acme::Schlong;
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
}
sub _startperl { shift()->config('startperl') }
# Return any directories in @INC which are not in the default @INC for
# this perl. For example, stuff passed in with -I or loaded with "use lib".
sub _added_to_INC {
my $self = shift;
my %seen;
$seen{$_}++ foreach $self->_default_INC;
view release on metacpan or search on metacpan
#!perl -w
use strict;
use FindBin;
use lib $FindBin::Bin;
use Tester;
Tester::test_package('Acme::Steganography::Image::Png::FlashingNeonSignGrey');
view release on metacpan or search on metacpan
t/01_validating.t view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use lib ('./blib','./lib','../blib','../lib');
use Acme::Sub::Parms;
my @tests_list = (
{ -code => \&bind_parms_test, -desc => 'BindParms (validating, non-normalized) ' },
);
view release on metacpan or search on metacpan
t/01-function.t view on Meta::CPAN
use lib './lib';
use Acme::Syntax::Python;
from Data::Dumper import Dumper, DumperX;
import Test::More;
def test:
view release on metacpan or search on metacpan
#!/usr/bin/perl -w
use strict;
use lib qw( ./blib/lib ../blib/lib );
use Test::More tests => 3;
use Acme::Test::Pr0n;
my $filename = 't/test.data';
view release on metacpan or search on metacpan
lib/Acme/Test.pm view on Meta::CPAN
=head1 EXAMPLE
Imagine your test.pl script would look something like this:
use lib '../devel/file-basename/lib';
use Acme::Test 'File::Basename';
Then the resulting test output would look pretty much like this:
# Testing File::Basename
view release on metacpan or search on metacpan
t/00_compile.t view on Meta::CPAN
use warnings;
use Test::More 0.98 tests => 7;
use Test::More::UTF8;
use lib 'lib';
use_ok 'Acme::Text::Viceversa'; # 1
my $v = new_ok('Acme::Text::Viceversa'); # 2
note "start to upset the echoes...";
view release on metacpan or search on metacpan
use Test::More;
use IO::Handle;
use FindBin qw/ $Bin /;
use lib "$Bin/lib";
use Capture::Tiny qw/ capture_stderr /; # bundled under t/lib
# make sure all test output supports utf
binmode( \$_, ":utf8" ) for *STDERR, *STDOUT;
$_->autoflush(1) for *STDERR, *STDOUT;
view release on metacpan or search on metacpan
t/test_speed_pushsort.pl view on Meta::CPAN
#!/usr/bin/perl
use lib 'blib/lib';
use Acme::Tools;
print "Version $Acme::Tools::VERSION\n";
for(qw/1000 10000 100000 1000000 2000000 3000000 4000000 5000000/){
print "----------$_\n";
my $t=time_fp();
view release on metacpan or search on metacpan
t/test_travigator.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use lib qw(./lib);
use Acme::Travigator;
my $directions = Acme::Travigator->travigate;
isnt($directions, undef, 'Got the directions');
view release on metacpan or search on metacpan
use strict;
use lib '.';
use Acme::Ukrop;
ÄÏËÉ (<>) ÔÏ
×iÄÒiÖÅÍÏÞÉÅÝÏ;
ËÁÖÉ "ÔÉ ËÁÚÁ×: $_\n";
view release on metacpan or search on metacpan
t/01_void.t view on Meta::CPAN
use strict;
use lib qw(blib/lib);
use Acme::Void;
push my @test, sub {
eval {
view release on metacpan or search on metacpan
#!/usr/bin/perl -w
use strict;
use lib qw( ./lib/ );
use Acme::Yoda;
use Test::More tests => 16;
ok(my $yoda = Acme::Yoda->new(), 'Create Yoda object');
view release on metacpan or search on metacpan
Brings the first C<lib/> directory found by directory ascencion and adds it to
C<@INC>.
Instead of:
use lib::relative '../../lib';
# or
use FindBin;
use lib "$FindBin::Bin/../lib";
# or even
BEGIN {
use Path::Tiny;
my $base = path(__FILE__)->parent;
$base = $base->parent until -d "$base/lib" or $base->is_rootdir;
view release on metacpan or search on metacpan
t/require.t view on Meta::CPAN
use Test::More 0.96;
use Test::Fatal;
use Test::FailWarnings;
use Capture::Tiny qw/capture/;
use File::Spec;
use lib 't/lib';
plan skip_all => "Your filesystem respects case"
unless -f 't/lib/foo.pm'; # it's really Foo.pm
use Acme::require::case;
view release on metacpan or search on metacpan
t/01-usage.t view on Meta::CPAN
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::More tests => 1;
use Test::Output;
sub use_it { eval "use Acme::this;"; }
view release on metacpan or search on metacpan
t/naughty_modules.t view on Meta::CPAN
# as we want to let the naughty modules do their thing we can't use the -w flag
# irritatingly warnings come out on the underlying IO STDERR, rather than
# anything tied to the file handle.
use strict;
use lib 't';
use Test::More tests => 8;
use GagMe;
# Aargh. WTF is test harness doing turning on warnings when I explicity
# don't want them?
view release on metacpan or search on metacpan
examples/Class.pl view on Meta::CPAN
#!/usr/bin/perl
# Modules {{{
use FindBin qw($Bin);
use lib "$Bin/../lib";
use 5.010;
use strict;
use warnings;
use Acpi::Class;
#}}}