Preprocess-Ops v20201117 Perl 5 v5.30.2 amd64-freebsd

Status

Unknown

From

Slaven Rezić

Dist

Preprocess-Ops v20201117

Platform

Perl 5 v5.30.2 amd64-freebsd

Date

2020-11-17 21:14:28

ID

e0605d64-2919-11eb-aa16-541a1f24ea8f

This distribution has been tested as part of the CPAN Testers
project, supporting the Perl programming language.  See
http://wiki.cpantesters.org/ for more information or email
questions to cpan-testers-discuss@perl.org


--
Dear Philip R Brenan,

This is a computer-generated report for Preprocess-Ops-20201117
on perl 5.30.2, created by CPAN-Reporter-1.2018.

Thank you for uploading your work to CPAN.  However, attempting to
test your distribution gave an inconclusive result.

This could be because your distribution had an error during the make/build
stage, did not define tests, tests could not be found, because your tests were
interrupted before they finished, or because the results of the tests could not
be parsed.  You may wish to consult the CPAN Testers Wiki:

http://wiki.cpantesters.org/wiki/CPANAuthorNotes

Sections of this report:

    * Tester comments
    * Program output
    * Prerequisites
    * Environment and other context

------------------------------
TESTER COMMENTS
------------------------------

Additional comments from tester:

none provided

------------------------------
PROGRAM OUTPUT
------------------------------

Output from './Build test':

Unable to confirm presence of command: gcc
 at /usr/perl5.30.2p/lib/site_perl/5.30.2/Data/Table/Text.pm line 4539, <DATA> line 246.
	Data::Table::Text::confirmHasCommandLineCommand("gcc") called at (eval 14) line 7
	eval 'use warnings FATAL=>qw(all);
use strict;
require v5.26;
use Time::HiRes qw(time);
use Test::More;

my $hasgcc = confirmHasCommandLineCommand(q(gcc));

if ($^O =~ m(bsd|linux)i and $hasgcc)                                           # Only these operating systems are supported
 {plan tests => 7
 }
else
 {plan skip_all => \'Not supported\'
 }

my $startTime = time();
my $localTest = ((caller(1))[0]//\'Preprocess::Ops\') eq "Preprocess::Ops";       # Local testing mode
Test::More->builder->output("/dev/null") if $localTest;                         # Suppress output in local testing mode

sub readCFile($)                                                                # Remove #line number statements from a C file
 {my ($file) = @_;                                                              # C file name
  my $c = readFile($file);
  $c =~ s(#line (\\d+) ".*/(\\w+).c") (#line $1 "$2.c");
  $c =~ s(\\A\\s+) ()s;
  $c =~ s(\\s+\\Z) ()s;
  "$c\\n"
 }

if (88) {                                                                       #Tc
  my $d  = q(zzz);
  my $ds = fpd($d,  qw(source));
  my $dd = fpd($d,  qw(derived));
  my $sc = fpe($ds, qw(node c));
  my $dc = fpe($dd, qw(node c));
  my $dh = fpe($dd, qw(node h));

  owf($sc, <<END);
#include <stdio.h>

typedef struct Node                                                             // Node
 {const struct ProtoTypes_Node *proto;
  int data;
 } Node;

#include "node.h"

static Node by                                                                  // New from node * number
 (const Node * n,                                                               // Node
  const int    i)                                                               // Multiplier
 {return new Node(data: i * n->data);
 }

static void dump                                                                // Dump a node to stdout
 (const Node * n)                                                               // Node to dump
 {printf("data=%d\\\\n", n->data);
 }

int main(void)                                                                  //TnewNode //Tdump //Tby
 {a ◁ new Node(data: 6);
  b ◁ a ▷ by(7);
  b ▷ dump;
  return 0;
 }
END

  my $r = c($sc, $dc, $dh);                                                     # Preprocess source c to get derived c
  my $c = qq((cd $dd; gcc node.c -o a; ./a));
  is_deeply scalar(qx($c)), "data=42\\n";

  is_deeply readCFile($dc), <<\'END\';                                            # Generated base.c
#line 1 "node.c"
#include <stdio.h>

typedef struct Node                                                             // Node
 {const struct ProtoTypes_Node *proto;
  int data;
 } Node;

#include "node.h"

static Node by                                                                  // New from node * number
 (const Node * n,                                                               // Node
  const int    i)                                                               // Multiplier
 {return newNode(({struct Node t = {data: i * n->data, proto: &ProtoTypes_Node}; t;}));
 }

static void dump                                                                // Dump a node to stdout
 (const Node * n)                                                               // Node to dump
 {printf("data=%d\\n", n->data);
 }

int main(void)                                                                  //TnewNode //Tdump //Tby
 {const typeof(newNode(({struct Node t = {data: 6, proto: &ProtoTypes_Node}; t;}))) a = newNode(({struct Node t = {data: 6, proto: &ProtoTypes_Node}; t;}));
  const typeof(a.proto->by(&a, 7)) b = a.proto->by(&a, 7);
  b.proto->dump(&b);
  return 0;
 }
END

  is_deeply readCFile($dh), <<END;                                              # Generated include file
static Node by
 (const Node * n,
  const int    i);
static void dump
 (const Node * n);
int main(void);
struct ProtoTypes_Node {
  Node  (*by)(                                                                  // New from node * number
    const Node * n,                                                             // Node
    const int i);                                                               // Multiplier
  void  (*dump)(                                                                // Dump a node to stdout
    const Node * n);                                                            // Node to dump
 } const ProtoTypes_Node =
{by, dump};
Node newNode(Node allocator) {return allocator;}
END

  clearFolder($d, 10);
 }

if (36) {                                                                       #Tc
  my $d = q(zzz);
  my $c = owf(fpe($d, qw(source c)), <<\'END\');
#include <assert.h>
#include <stdio.h>
int main(void)
 {a ◁ ◉;
a
  b
◉
  ✓ a[0] == \'a\';
  printf("%s", a);
 }
END

  my $h = fpe($d, qw(source  h));
  my $g = fpe($d, qw(derived c));

  my $r = c($c, $g, $h);

  is_deeply scalar(qx(cd $d; gcc derived.c -o a; ./a)), <<END, \'aaaa\';
a
  b
END

  is_deeply readCFile($g), <<\'END\', \'bbbb\';
#line 1 "source.c"
#include <assert.h>
#include <stdio.h>
int main(void)
 {const typeof("a\\n" "  b\\n") a = "a\\n" "  b\\n";
//◉a
//◉  b
//◉
  assert( a[0] == \'a\');
  printf("%s", a);
 }
END
  clearFolder($d, 10);
 }

if (26) {                                                                       #Tc
  my $d = q(zzz);
  my $c = owf(fpe($d, qw(source c)), <<\'END\');
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int main(void)
 {typedef struct
   {int a;
    int b;
   } S;
  S s; s.a = 1; s.b = 2;
  S t;
    t ≞ s;  ✓ s ≞≞ t;
    t ≞ 0;  ✓ s !≞ t;

  S *ps = &s, *pt = &t;

   t ≞ 0; ✓ t.a == 0;   ✓ t.b == 0;    ✓ pt !◧ s;
  pt ◧ s; ✓ t.a == s.a; ✓ t.b == s.b;  ✓ pt ◧◧ s;

   s ≞ 0; ✓ s.a == 0;   ✓ s.b == 0;    ✓ t !◨ ps;
  ps ◧ t; ✓ s.a == t.a; ✓ s.b == t.b;  ✓ t ◨◨ ps;
  printf(◉);
success
◉
 }
END

  my $h = fpe($d, qw(source  h));
  my $g = fpe($d, qw(derived c));
  my $r = c($c, $g, $h);
  is_deeply scalar(qx(cd $d; gcc -g -Wall derived.c -o a; ./a)), <<END;
success
END
# clearFolder($d, 10);
 }

if (26) {                                                                       #Tc
  my $d = q(zzz);
  my $c = owf(fpe($d, qw(source c)), <<\'END\');
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int main(void)
 {  a ≋ 12; b ≋ 12; c ≋ 12;
    a ≈ "aaaa";
    b ≈ "bbbb";
    A ◁ c +≈ a; B ◁ A +≈ b;
    C ◁  c ∼ b;

  ✓ a ≈≈ "aaaa";
  ✓ b ≈≈ "bbbb";
  ✓ b !≈ a;
  ✓ c ≈≈ "aaaabbbb";
  ✓ A ≈≈ b;
  ✓ B ≈≈ "";
  ✓ C ≈≈ b;

  printf(◉);
success
◉
 }
END

  my $h = fpe($d, qw(source  h));
  my $g = fpe($d, qw(derived c));
  my $r = c($c, $g, $h);
  is_deeply scalar(qx(cd $d; gcc -g -Wall derived.c -o a; ./a)), <<END;
success
END
# clearFolder($d, 10);
 }

done_testing;
# owf($logC, readCFile($dc));
# owf($logH, readCFile($dh));

if ($localTest)
 {say "TO finished in ", (time() - $startTime), " seconds";
 }

1;
' called at /usr/home/cpansand/.cpan/build/2020111718/Preprocess-Ops-20201117-2/blib/lib/Preprocess/Ops.pm line 1316
	Preprocess::Ops::test() called at test.pl line 11
test.pl .. skipped: Not supported
Files=1, Tests=0,  0 wallclock secs ( 0.02 usr  0.01 sys +  0.11 cusr  0.03 csys =  0.17 CPU)
Result: NOTESTS

------------------------------
PREREQUISITES
------------------------------

Prerequisite modules loaded:

requires:

    Module            Need     Have    
    ----------------- -------- --------
    Carp              0        1.50    
    Data::Dump        0        1.23    
    Data::Table::Text 20201029 20201029
    Test2::API        0        1.302183
    Test::More        0        1.302183

configure_requires:

    Module            Need     Have    
    ----------------- -------- --------
    Module::Build     0.4224   0.4231  


------------------------------
ENVIRONMENT AND OTHER CONTEXT
------------------------------

Environment variables:

    PATH = /usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin:/home/cpansand/bin/sh:/home/cpansand/bin:/usr/games:/home/cpansand/devel:/usr/home/eserte/src/srezic-misc/scripts
    PERL5LIB = 
    PERL5OPT = 
    PERL5_CPANPLUS_IS_RUNNING = 76746
    PERL5_CPAN_IS_RUNNING = 76746
    PERL5_CPAN_IS_RUNNING_IN_RECURSION = 76556,76746
    PERL_BATCH = yes
    PERL_CANARY_STABILITY_NOPROMPT = 1
    PERL_CPAN_REPORTER_CONFIG = /var/tmp/cpansmoker-1023/2020111718/cpanreporter_000_config.ini
    PERL_EXTUTILS_AUTOINSTALL = --defaultdeps
    PERL_USE_UNSAFE_INC = 1
    SHELL = /bin/sh
    TMPDIR = /var/tmp/cpansmoker-1023/2020111718

Perl special variables (and OS-specific diagnostics, for MSWin32):

    $^X = /usr/perl5.30.2p/bin/perl5.30.2
    $UID/$EUID = 1023 / 1023
    $GID = 1023 1023
    $EGID = 1023 1023

Perl module toolchain versions installed:

    Module              Have    
    ------------------- --------
    CPAN                2.22    
    CPAN::Meta          2.150010
    Cwd                 3.78    
    ExtUtils::CBuilder  0.280231
    ExtUtils::Command   7.54    
    ExtUtils::Install   2.18    
    ExtUtils::MakeMaker 7.54    
    ExtUtils::Manifest  1.72    
    ExtUtils::ParseXS   3.40    
    File::Spec          3.78    
    JSON                4.02    
    JSON::PP            4.05    
    Module::Build       0.4231  
    Module::Signature   0.86    
    Parse::CPAN::Meta   2.150010
    Test::Harness       3.42    
    Test::More          1.302183
    YAML                1.30    
    YAML::Syck          1.33    
    version             0.9924  


--

Summary of my perl5 (revision 5 version 30 subversion 2) configuration:
   
  Platform:
    osname=freebsd
    osvers=12.1-stable
    archname=amd64-freebsd
    uname='freebsd cloud1.bbbike.org 12.1-stable freebsd 12.1-stable 300cf9f9b89(stable12) generic amd64 '
    config_args='-ds -e -Dprefix=/usr/perl5.30.2p -Dcf_email=srezic@cpan.org -Doptimize=-O2 -pipe'
    hint=recommended
    useposix=true
    d_sigaction=define
    useithreads=undef
    usemultiplicity=undef
    use64bitint=define
    use64bitall=define
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=define
    bincompat5005=undef
  Compiler:
    cc='cc'
    ccflags ='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
    optimize='-O2 -pipe'
    cppflags='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
    ccversion=''
    gccversion='FreeBSD Clang 9.0.1 (git@github.com:llvm/llvm-project.git c1a0a213378a458fbea1a5c77b315c7dce08fd05)'
    gccosandvers=''
    intsize=4
    longsize=8
    ptrsize=8
    doublesize=8
    byteorder=12345678
    doublekind=3
    d_longlong=define
    longlongsize=8
    d_longdbl=define
    longdblsize=16
    longdblkind=3
    ivtype='long'
    ivsize=8
    nvtype='double'
    nvsize=8
    Off_t='off_t'
    lseeksize=8
    alignbytes=8
    prototype=define
  Linker and Libraries:
    ld='cc'
    ldflags ='-pthread -Wl,-E  -fstack-protector-strong -L/usr/local/lib'
    libpth=/usr/lib /usr/local/lib /usr/lib/clang/9.0.1/lib /usr/lib
    libs=-lpthread -lgdbm -ldl -lm -lcrypt -lutil -lc
    perllibs=-lpthread -ldl -lm -lcrypt -lutil -lc
    libc=
    so=so
    useshrplib=false
    libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=so
    d_dlsymun=undef
    ccdlflags=' '
    cccdlflags='-DPIC -fPIC'
    lddlflags='-shared  -L/usr/local/lib -fstack-protector-strong'


Characteristics of this binary (from libperl): 
  Compile-time options:
    HAS_TIMES
    PERLIO_LAYERS
    PERL_COPY_ON_WRITE
    PERL_DONT_CREATE_GVSV
    PERL_MALLOC_WRAP
    PERL_OP_PARENT
    PERL_PRESERVE_IVUV
    USE_64_BIT_ALL
    USE_64_BIT_INT
    USE_LARGE_FILES
    USE_LOCALE
    USE_LOCALE_COLLATE
    USE_LOCALE_CTYPE
    USE_LOCALE_NUMERIC
    USE_LOCALE_TIME
    USE_PERLIO
    USE_PERL_ATOF
  Built under freebsd
  Compiled at Mar 14 2020 21:35:07
  %ENV:
    PERL5LIB=""
    PERL5OPT=""
    PERL5_CPANPLUS_IS_RUNNING="76746"
    PERL5_CPAN_IS_RUNNING="76746"
    PERL5_CPAN_IS_RUNNING_IN_RECURSION="76556,76746"
    PERL_BATCH="yes"
    PERL_CANARY_STABILITY_NOPROMPT="1"
    PERL_CPAN_REPORTER_CONFIG="/var/tmp/cpansmoker-1023/2020111718/cpanreporter_000_config.ini"
    PERL_EXTUTILS_AUTOINSTALL="--defaultdeps"
    PERL_USE_UNSAFE_INC="1"
  @INC:
    /usr/perl5.30.2p/lib/site_perl/5.30.2/amd64-freebsd
    /usr/perl5.30.2p/lib/site_perl/5.30.2
    /usr/perl5.30.2p/lib/5.30.2/amd64-freebsd
    /usr/perl5.30.2p/lib/5.30.2
    .