javonet-ruby-sdk 2.1.1 → 2.1.2

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Test/Alien/Run.pm

@@ -1,365 +0,0 @@
-package Test::Alien::Run;
-
-use strict;
-use warnings;
-use 5.008004;
-use Test2::API qw( context );
-
-# ABSTRACT: Run object
-our $VERSION = '2.78'; # VERSION
-
-
-sub out    { shift->{out} }
-sub err    { shift->{err} }
-sub exit   { shift->{exit} }
-sub signal { shift->{sig} }
-
-
-sub success
-{
-  my($self, $message) = @_;
-  $message ||= 'command succeeded';
-  my $ok = $self->exit == 0 && $self->signal == 0;
-  $ok = 0 if $self->{fail};
-
-  my $ctx = context();
-  $ctx->ok($ok, $message);
-  unless($ok)
-  {
-    $ctx->diag("  command exited with @{[ $self->exit   ]}") if $self->exit;
-    $ctx->diag("  command killed with @{[ $self->signal ]}") if $self->signal;
-    $ctx->diag("  @{[ $self->{fail} ]}") if $self->{fail};
-  }
-  $ctx->release;
-  $self;
-}
-
-
-sub exit_is
-{
-  my($self, $exit, $message) = @_;
-
-  $message ||= "command exited with value $exit";
-  my $ok = $self->exit == $exit;
-
-  my $ctx = context();
-  $ctx->ok($ok, $message);
-  $ctx->diag("  actual exit value was: @{[ $self->exit ]}") unless $ok;
-  $ctx->release;
-  $self;
-}
-
-
-sub exit_isnt
-{
-  my($self, $exit, $message) = @_;
-
-  $message ||= "command exited with value not $exit";
-  my $ok = $self->exit != $exit;
-
-  my $ctx = context();
-  $ctx->ok($ok, $message);
-  $ctx->diag("  actual exit value was: @{[ $self->exit ]}") unless $ok;
-  $ctx->release;
-  $self;
-}
-
-
-sub _like
-{
-  my($self, $regex, $source, $not, $message) = @_;
-
-  my $ok = $self->{$source} =~ $regex;
-  $ok = !$ok if $not;
-
-  my $ctx = context();
-  $ctx->ok($ok, $message);
-  unless($ok)
-  {
-    $ctx->diag("  $source:");
-    $ctx->diag("    $_") for split /\r?\n/, $self->{$source};
-    $ctx->diag($not ? '  matches:' : '  does not match:');
-    $ctx->diag("    $regex");
-  }
-  $ctx->release;
-
-  $self;
-}
-
-sub out_like
-{
-  my($self, $regex, $message) = @_;
-  $message ||= "output matches $regex";
-  $self->_like($regex, 'out', 0, $message);
-}
-
-
-sub out_unlike
-{
-  my($self, $regex, $message) = @_;
-  $message ||= "output does not match $regex";
-  $self->_like($regex, 'out', 1, $message);
-}
-
-
-sub err_like
-{
-  my($self, $regex, $message) = @_;
-  $message ||= "standard error matches $regex";
-  $self->_like($regex, 'err', 0, $message);
-}
-
-
-sub err_unlike
-{
-  my($self, $regex, $message) = @_;
-  $message ||= "standard error does not match $regex";
-  $self->_like($regex, 'err', 1, $message);
-}
-
-
-sub note
-{
-  my($self) = @_;
-  my $ctx = context();
-  $ctx->note("[cmd]");
-  $ctx->note("  @{$self->{cmd}}");
-  if($self->out ne '')
-  {
-    $ctx->note("[out]");
-    $ctx->note("  $_") for split /\r?\n/, $self->out;
-  }
-  if($self->err ne '')
-  {
-    $ctx->note("[err]");
-    $ctx->note("  $_") for split /\r?\n/, $self->err;
-  }
-  $ctx->release;
-  $self;
-}
-
-
-sub diag
-{
-  my($self) = @_;
-  my $ctx = context();
-  $ctx->diag("[cmd]");
-  $ctx->diag("  @{$self->{cmd}}");
-  if($self->out ne '')
-  {
-    $ctx->diag("[out]");
-    $ctx->diag("  $_") for split /\r?\n/, $self->out;
-  }
-  if($self->err ne '')
-  {
-    $ctx->diag("[err]");
-    $ctx->diag("  $_") for split /\r?\n/, $self->err;
-  }
-  $ctx->release;
-  $self;
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Test::Alien::Run - Run object
-
-=head1 VERSION
-
-version 2.78
-
-=head1 SYNOPSIS
-
- use Test2::V0;
- use Test::Alien;
- 
- run_ok([ $^X, -e => 'print "some output"; exit 22'])
-   ->exit_is(22)
-   ->out_like(qr{some});
-
-=head1 DESCRIPTION
-
-This class stores information about a process run as performed by
-L<Test::Alien#run_ok>.  That function is the I<ONLY> way to create
-an instance of this class.
-
-=head1 ATTRIBUTES
-
-=head2 out
-
- my $str = $run->out;
-
-The standard output from the run.
-
-=head2 err
-
- my $str = $run->err;
-
-The standard error from the run.
-
-=head2 exit
-
- my $int = $run->exit;
-
-The exit value of the run.
-
-=head2 signal
-
- my $int = $run->signal;
-
-The signal that killed the run, or zero if the process was terminated normally.
-
-=head1 METHODS
-
-These methods return the run object itself, so they can be chained,
-as in the synopsis above.
-
-=head2 success
-
- $run->success;
- $run->success($message);
-
-Passes if the process terminated normally with an exit value of 0.
-
-=head2 exit_is
-
- $run->exit_is($exit);
- $run->exit_is($exit, $message);
-
-Passes if the process terminated with the given exit value.
-
-=head2 exit_isnt
-
- $run->exit_isnt($exit);
- $run->exit_isnt($exit, $message);
-
-Passes if the process terminated with an exit value of anything
-but the given value.
-
-=head2 out_like
-
- $run->out_like($regex);
- $run->out_like($regex, $message);
-
-Passes if the output of the run matches the given pattern.
-
-=head2 out_unlike
-
- $run->out_unlike($regex);
- $run->out_unlike($regex, $message);
-
-Passes if the output of the run does not match the given pattern.
-
-=head2 err_like
-
- $run->err_like($regex);
- $run->err_like($regex, $message);
-
-Passes if the standard error of the run matches the given pattern.
-
-=head2 err_unlike
-
- $run->err_unlike($regex);
- $run->err_unlike($regex, $message);
-
-Passes if the standard error of the run does not match the given pattern.
-
-=head2 note
-
- $run->note;
-
-Send the output and standard error as test note.
-
-=head2 diag
-
- $run->diag;
-
-Send the output and standard error as test diagnostic.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item L<Test::Alien>
-
-=back
-
-=head1 AUTHOR
-
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-
-Contributors:
-
-Diab Jerius (DJERIUS)
-
-Roy Storey (KIWIROY)
-
-Ilya Pavlov
-
-David Mertens (run4flat)
-
-Mark Nunberg (mordy, mnunberg)
-
-Christian Walde (Mithaldu)
-
-Brian Wightman (MidLifeXis)
-
-Zaki Mughal (zmughal)
-
-mohawk (mohawk2, ETJ)
-
-Vikas N Kumar (vikasnkumar)
-
-Flavio Poletti (polettix)
-
-Salvador Fandiño (salva)
-
-Gianni Ceccarelli (dakkar)
-
-Pavel Shaydo (zwon, trinitum)
-
-Kang-min Liu (劉康民, gugod)
-
-Nicholas Shipp (nshp)
-
-Juan Julián Merelo Guervós (JJ)
-
-Joel Berger (JBERGER)
-
-Petr Písař (ppisar)
-
-Lance Wicks (LANCEW)
-
-Ahmad Fatoum (a3f, ATHREEF)
-
-José Joaquín Atria (JJATRIA)
-
-Duke Leto (LETO)
-
-Shoichi Kaji (SKAJI)
-
-Shawn Laffan (SLAFFAN)
-
-Paul Evans (leonerd, PEVANS)
-
-Håkon Hægland (hakonhagland, HAKONH)
-
-nick nauwelaerts (INPHOBIA)
-
-Florian Weimer
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011-2022 by Graham Ollis.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Test/Alien/Synthetic.pm

@@ -1,261 +0,0 @@
-package Test::Alien::Synthetic;
-
-use strict;
-use warnings;
-use 5.008004;
-use Test2::API qw( context );
-
-# ABSTRACT: A mock alien object for testing
-our $VERSION = '2.78'; # VERSION
-
-
-sub _def ($) { my($val) = @_; defined $val ? $val : '' }
-
-sub cflags       { _def shift->{cflags}             }
-sub libs         { _def shift->{libs}               }
-sub dynamic_libs { @{ shift->{dynamic_libs} || [] } }
-
-sub runtime_prop
-{
-  my($self) = @_;
-  defined $self->{runtime_prop}
-    ? $self->{runtime_prop}
-    : {};
-}
-
-sub cflags_static
-{
-  my($self) = @_;
-  defined $self->{cflags_static}
-    ? $self->{cflags_static}
-    : $self->cflags;
-}
-
-sub libs_static
-{
-  my($self) = @_;
-  defined $self->{libs_static}
-    ? $self->{libs_static}
-    : $self->libs;
-}
-
-sub bin_dir
-{
-  my $dir = shift->{bin_dir};
-  defined $dir && -d $dir ? ($dir) : ();
-}
-
-1;
-
-__END__
-
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-Test::Alien::Synthetic - A mock alien object for testing
-
-=head1 VERSION
-
-version 2.78
-
-=head1 SYNOPSIS
-
- use Test2::V0;
- use Test::Alien;
- 
- my $alien = synthetic {
-   cflags => '-I/foo/bar/include',
-   libs   => '-L/foo/bar/lib -lbaz',
- };
- 
- alien_ok $alien;
- 
- done_testing;
-
-=head1 DESCRIPTION
-
-This class is used to model a synthetic L<Alien>
-class that implements the minimum L<Alien::Base>
-interface needed by L<Test::Alien>.
-
-It can be useful if you have a non-L<Alien::Base>
-based L<Alien> distribution that you need to test.
-
-B<NOTE>: The name of this class may move in the
-future, so do not refer to this class name directly.
-Instead create instances of this class using the
-L<Test::Alien#synthetic> function.
-
-=head1 ATTRIBUTES
-
-=head2 cflags
-
-String containing the compiler flags
-
-=head2 cflags_static
-
-String containing the static compiler flags
-
-=head2 libs
-
-String containing the linker and library flags
-
-=head2 libs_static
-
-String containing the static linker and library flags
-
-=head2 dynamic_libs
-
-List reference containing the dynamic libraries.
-
-=head2 bin_dir
-
-Tool binary directory.
-
-=head2 runtime_prop
-
-Runtime properties.
-
-=head1 EXAMPLE
-
-Here is a complete example using L<Alien::Libarchive> which is a non-L<Alien::Base>
-based L<Alien> distribution.
-
- use strict;
- use warnings;
- use Test2::V0;
- use Test::Alien;
- use Alien::Libarchive;
- 
- my $real = Alien::Libarchive->new;
- my $alien = synthetic {
-   cflags       => scalar $real->cflags,
-   libs         => scalar $real->libs,
-   dynamic_libs => [$real->dlls],
- };
- 
- alien_ok $alien;
- 
- xs_ok do { local $/; <DATA> }, with_subtest {
-   my($module) = @_;
-   my $ptr = $module->archive_read_new;
-   like $ptr, qr{^[0-9]+$};
-   $module->archive_read_free($ptr);
- };
- 
- ffi_ok { symbols => [qw( archive_read_new )] }, with_subtest {
-   my($ffi) = @_;
-   my $new  = $ffi->function(archive_read_new => [] => 'opaque');
-   my $free = $ffi->function(archive_read_close => ['opaque'] => 'void');
-   my $ptr = $new->();
-   like $ptr, qr{^[0-9]+$};
-   $free->($ptr);
- };
- 
- done_testing;
- 
- __DATA__
- 
- #include "EXTERN.h"
- #include "perl.h"
- #include "XSUB.h"
- #include <archive.h>
- 
- MODULE = TA_MODULE PACKAGE = TA_MODULE
- 
- void *archive_read_new(class);
-     const char *class;
-   CODE:
-     RETVAL = (void*) archive_read_new();
-   OUTPUT:
-     RETVAL
- 
- void archive_read_free(class, ptr);
-     const char *class;
-     void *ptr;
-   CODE:
-     archive_read_free(ptr);
-
-=head1 SEE ALSO
-
-=over 4
-
-=item L<Test::Alien>
-
-=back
-
-=head1 AUTHOR
-
-Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>
-
-Contributors:
-
-Diab Jerius (DJERIUS)
-
-Roy Storey (KIWIROY)
-
-Ilya Pavlov
-
-David Mertens (run4flat)
-
-Mark Nunberg (mordy, mnunberg)
-
-Christian Walde (Mithaldu)
-
-Brian Wightman (MidLifeXis)
-
-Zaki Mughal (zmughal)
-
-mohawk (mohawk2, ETJ)
-
-Vikas N Kumar (vikasnkumar)
-
-Flavio Poletti (polettix)
-
-Salvador Fandiño (salva)
-
-Gianni Ceccarelli (dakkar)
-
-Pavel Shaydo (zwon, trinitum)
-
-Kang-min Liu (劉康民, gugod)
-
-Nicholas Shipp (nshp)
-
-Juan Julián Merelo Guervós (JJ)
-
-Joel Berger (JBERGER)
-
-Petr Písař (ppisar)
-
-Lance Wicks (LANCEW)
-
-Ahmad Fatoum (a3f, ATHREEF)
-
-José Joaquín Atria (JJATRIA)
-
-Duke Leto (LETO)
-
-Shoichi Kaji (SKAJI)
-
-Shawn Laffan (SLAFFAN)
-
-Paul Evans (leonerd, PEVANS)
-
-Håkon Hægland (hakonhagland, HAKONH)
-
-nick nauwelaerts (INPHOBIA)
-
-Florian Weimer
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011-2022 by Graham Ollis.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut