bin/test_send_report.pl

   1 use File::Temp;
   2 use Test::Reporter;
   3 my($ft) = File::Temp->new(TEMPLATE => "bugdemo-XXXX", SUFFIX=>".rpt");
   4 print $ft <<EOF;
   5 From: andreas.koenig.gmwojprw@franz.ak.mind.de
   6 X-Test-Reporter-Distfile: DLAND/BSD-Process-0.07.tar.gz
   7 X-Test-Reporter-Perl: v5.18.0
   8 Subject: FAIL BSD-Process-0.07 amd64-freebsd 9.2-release
   9 Report: This distribution has been tested as part of the CPAN Testers
  10 project, supporting the Perl programming language.  See
  11 http://wiki.cpantesters.org/ for more information or email
  12 questions to cpan-testers-discuss@perl.org
  13
  14
  15 --
  16 Dear David Landgren,
  17 [...]
  18 Summary of my perl5 (revision 5 version 18 subversion 0) configuration:
  19   Commit id: a9acda3b5f74585852a57b51b724804ac586cb0b
  20   Platform:
  21     osname=freebsd, osvers=9.2-release, archname=amd64-freebsd
  22 EOF
  23 $ft->flush;
  24 my $file = $ft->filename;
  25 my $r = Test::Reporter->new(
  26                             transport => 'Metabase',
  27 )->read($file);
  28 warn "archname: $r->{_perl_version}{_archname}\n";
  29
  30
  31 # Local Variables:
  32 # mode: cperl
  33 # cperl-indent-level: 4
  34 # End: