t/ctgetreports.t

   1 #!perl -- -*- mode: cperl -*-
   2
   3 use strict;
   4 use Test::More;
   5 use File::Spec;
   6 use CPAN::Testers::ParseReport;
   7 use List::Util qw(sum max);
   8 use utf8;
   9   binmode Test::More->builder->output, ":utf8";
  10   binmode Test::More->builder->failure_output, ":utf8";
  11
  12 my $plan;
  13
  14 sub reportedvariableis ($$$$) {
  15     my($extract,$id,$var,$value) = @_;
  16     is $extract->{$var}, $value, "report $id: $var is $value";
  17 }
  18
  19 {
  20     BEGIN { $plan += 1 }
  21     open my $fh, "<", qq{t/var/nntp-testers/1581994} or die "could not open: $!";
  22     local $/;
  23     my $article = <$fh>;
  24     close $fh;
  25     my $dump = {};
  26     CPAN::Testers::ParseReport::parse_report(1234567, $dump, article => $article, solve => 1, quiet => 1);
  27     my $keys = keys %{$dump->{"==DATA=="}[0]};
  28     ok($keys >= 39, "found at least 39, actually [$keys] keys");
  29 }
  30
  31 {
  32     BEGIN {
  33         $plan += 6;
  34     }
  35     my %Opt = (
  36                'q' => ["meta:perl", "meta:from", "qr:(Undefined.*)", "prereq:Test::More"],
  37                'local' => 1,
  38                'cachedir' => 't/var',
  39                'quiet' => 1,
  40                'dumpvars' => ".",
  41               );
  42     CPAN::Testers::ParseReport::parse_distro
  43           (
  44            "Scriptalicious",
  45            %Opt,
  46           );
  47     my $Y = CPAN::Testers::ParseReport::_yaml_loadfile("ctgetreports.out");
  48     my $count = sum map {values %{$Y->{"meta:from"}{$_}}} keys %{$Y->{"meta:from"}};
  49     is($count, 130, "found $count==130 reports via meta:from");
  50     is($Y->{"meta:ok"}{PASS}{PASS}, 79, "found 79 PASS");
  51     is($Y->{"prereq:Test::More"}{0}{PASS}, 70, "found 70 PASS on prereq Test::More==0");
  52     ok(!$Y->{"env:alignbytes"}, "there is no such thing as an environment alignbytes");
  53     my $undefined = $Y->{'qr:(Undefined.*)'};
  54     my($the_warning) = grep {length} keys %$undefined;
  55     ok($undefined,"found warning: '$the_warning'");
  56     like($the_warning, qr/&main::/, "the ampersand is escaped");
  57 }
  58
  59 {
  60     BEGIN {
  61         $plan += 2;
  62     }
  63     my $sample_0 = 40;
  64     my %Opt = (
  65                'q' => ["meta:perl", "meta:from", "prereq:Test::More"],
  66                'local' => 1,
  67                'cachedir' => 't/var',
  68                'quiet' => 1,
  69                'dumpvars' => ".",
  70                'sample' => $sample_0,
  71               );
  72     CPAN::Testers::ParseReport::parse_distro
  73           (
  74            "Scriptalicious",
  75            %Opt,
  76           );
  77     my $Y = CPAN::Testers::ParseReport::_yaml_loadfile("ctgetreports.out");
  78     unlink "ctgetreports.out" or die "Could not unlink ctgetreports.out: $!";
  79     my $count_all = sum map {values %{$Y->{"meta:from"}{$_}}} keys %{$Y->{"meta:from"}};
  80     is($count_all, $sample_0, "found $count_all==$sample_0 reports via meta:from");
  81     my $count_fail_1 = $Y->{"meta:ok"}{"FAIL"}{"FAIL"};
  82
  83     # if the first pass brings much, we still want one more, if it
  84     # brings just a few, we want at least 22 since we know we have
  85     # more than that
  86     $Opt{minfail} = max(22,$count_fail_1+1);
  87     CPAN::Testers::ParseReport::parse_distro
  88           (
  89            "Scriptalicious",
  90            %Opt,
  91           );
  92     $Y = CPAN::Testers::ParseReport::_yaml_loadfile("ctgetreports.out");
  93     my $count_fail_2 = $Y->{"meta:ok"}{"FAIL"}{"FAIL"};
  94     cmp_ok($count_fail_2, '>', $count_fail_1, "found $count_fail_2 > $count_fail_1: that is more fails with minfail than without");
  95 }
  96
  97 {
  98     BEGIN {
  99         $plan += 5;
 100     }
 101     my $id = 18981290;
 102     my %Opt = (
 103                'q' => ["meta:perl", "meta:from", 'conf:libpth', 'conf:libs', 'conf:perllibs'],
 104                'local' => 1,
 105                'cachedir' => 't/var',
 106                'quiet' => 1,
 107                'dumpvars' => ".",
 108                'report' => $id,
 109               );
 110     my $dumpvars = {};
 111     my $extract = CPAN::Testers::ParseReport::parse_report
 112           (
 113            "t/var/nntp-testers/$id",
 114            $dumpvars,
 115            %Opt,
 116           );
 117     reportedvariableis $extract, $id, 'prereq:Text::Ligature', '0.02';
 118     reportedvariableis $extract, $id, 'prereq:parent', '0';
 119     # ld='cc', ldflags ='-pthread -Wl,-E  -fstack-protector -L/usr/local/lib'
 120     # libpth=/usr/lib /usr/local/lib
 121     # libs=-lgdbm -lm -lcrypt
 122     # perllibs=-lm -lcrypt
 123     # libc=, so=so, useshrplib=false, libperl=libperl.a
 124     # gnulibc_version=''
 125     reportedvariableis $extract, $id, 'conf:libpth', '/usr/lib /usr/local/lib';
 126     reportedvariableis $extract, $id, 'conf:libs', '-lgdbm -lm -lcrypt';
 127     reportedvariableis $extract, $id, 'conf:perllibs', '-lm -lcrypt';
 128 }
 129
 130 {
 131     BEGIN {
 132         $plan += 1;
 133     }
 134     my %Opt = (
 135                'q' => ["meta:perl", "meta:from", "prereq:Test::More"],
 136                'local' => 1,
 137                'cachedir' => 't/var',
 138                'quiet' => 1,
 139                'dumpvars' => ".",
 140                'sample' => 999,
 141               );
 142     CPAN::Testers::ParseReport::parse_distro
 143           (
 144            "Scriptalicious",
 145            %Opt,
 146           );
 147     my $Y = CPAN::Testers::ParseReport::_yaml_loadfile("ctgetreports.out");
 148     my $count = sum map {values %{$Y->{"meta:from"}{$_}}} keys %{$Y->{"meta:from"}};
 149     is($count, 130, "found $count==130 reports via meta:from");
 150 }
 151
 152 {
 153     BEGIN {
 154         $plan += 3;
 155     }
 156     my $id = "3521214";
 157     my %Opt = (
 158                'q' => ["meta:perl", "meta:from", "conf:git_commit_id", "env:PERL5_MINISMOKEBOX"],
 159                'local' => 1,
 160                'cachedir' => 't/var',
 161                'quiet' => 1,
 162                'dumpvars' => ".",
 163                'report' => $id,
 164               );
 165     my $dumpvars = {};
 166     my $extract = CPAN::Testers::ParseReport::parse_report
 167           (
 168            "t/var/nntp-testers/$id",
 169            $dumpvars,
 170            %Opt,
 171           );
 172     reportedvariableis $extract, $id, 'conf:git_commit_id', '245490700bb744b58c708516d2d3c08f18583dc3';
 173     reportedvariableis $extract, $id, 'env:AUTOMATED_TESTING', '1';
 174     reportedvariableis $extract, $id, 'meta:date', '2009-03-20T03:29:23';
 175 }
 176
 177 {
 178     BEGIN {
 179         $plan += 4;
 180     }
 181     my $id = 3851138;
 182     my %Opt = (
 183                'q' => ["meta:perl", "meta:from", "mod:Storable", "env:AUTOMATED_TESTING"],
 184                'local' => 1,
 185                'cachedir' => 't/var',
 186                'quiet' => 1,
 187                'dumpvars' => ".",
 188                'report' => $id,
 189               );
 190     my $dumpvars = {};
 191     my $extract = CPAN::Testers::ParseReport::parse_report
 192           (
 193            "t/var/nntp-testers/3851138",
 194            $dumpvars,
 195            %Opt,
 196           );
 197     like $extract->{'conf:archname'}, qr/64int/, "found 64int on archname";
 198     reportedvariableis $extract, $id, 'env:AUTOMATED_TESTING', '1';
 199     reportedvariableis $extract, $id, 'mod:Storable', '2.18';
 200     reportedvariableis $extract, $id, 'meta:date', '2009-05-10T01:39:11';
 201 }
 202
 203 {
 204     BEGIN {
 205         $plan += 4;
 206     }
 207     my $id = 5698506;
 208     my %Opt = (
 209                'q' => ["conf:nvsize", "conf:uselongdouble"],
 210                'local' => 1,
 211                'cachedir' => 't/var',
 212                'quiet' => 1,
 213                'dumpvars' => ".",
 214                'report' => $id,
 215               );
 216     my $dumpvars = {};
 217     my $extract = CPAN::Testers::ParseReport::parse_report
 218           (
 219            "t/var/nntp-testers/5698506",
 220            $dumpvars,
 221            %Opt,
 222           );
 223     reportedvariableis $extract, $id, 'conf:nvsize', 16;
 224     reportedvariableis $extract, $id, 'conf:uselongdouble', 'define';
 225     reportedvariableis $extract, $id, 'mod:ExtUtils::MakeMaker', '6.55_02';
 226     reportedvariableis $extract, $id, 'meta:date', '2009-10-21T17:30:27';
 227 }
 228
 229 {
 230     BEGIN {
 231         $plan += 4;
 232     }
 233     my $id = 5012315;
 234     my %Opt = (
 235                'q' => ["conf:nvsize", "conf:uselongdouble"],
 236                'local' => 1,
 237                'cachedir' => 't/var',
 238                'quiet' => 1,
 239                'dumpvars' => ".",
 240                'report' => $id,
 241               );
 242     my $dumpvars = {};
 243     my $extract = CPAN::Testers::ParseReport::parse_report
 244           (
 245            "t/var/nntp-testers/$id",
 246            $dumpvars,
 247            %Opt,
 248           );
 249     reportedvariableis $extract, $id, 'conf:nvsize', 8;
 250     reportedvariableis $extract, $id, 'conf:uselongdouble', 'undef';
 251     reportedvariableis $extract, $id, 'mod:ExtUtils::MakeMaker', '6.54';
 252     reportedvariableis $extract, $id, 'meta:date', '2009-08-14T20:18:57';
 253 }
 254
 255 {
 256     BEGIN { $plan += 1 }
 257     open my $fh, "-|", qq{"$^X" "-Ilib" "bin/ctgetreports" "--local" "--cachedir" "t/var" "--solve" "--quiet" "Scriptalicious" 2>&1} or die "could not fork: $!";
 258     my @reg;
 259     my @full;
 260     while (<$fh>) {
 261         push @reg, $1 if /^Regression '(.+)'/;
 262         push @full, $_;
 263     }
 264     close $fh or diag join "", @full;
 265     is "@reg", "fail:t/04-fork meta:osname+perl meta:writer", "found the top 3 candidates";
 266
 267 # Up to 0.0.15:
 268
 269 # State after regression testing: 68 results, showing top 3
 270 #
 271 # (1)
 272 # ****************************************************************
 273 # Regression 'mod:Test::Harness'
 274 # ****************************************************************
 275 # Name                         Theta          StdErr     T-stat
 276 # [0='const']                 1.0000          0.1021       9.80
 277 # [1='eq_2.64']              -0.3846          0.1328      -2.90
 278 # [2='eq_3.09']               0.0000          0.3228       0.00
 279 # [3='eq_3.10']              -0.0200          0.1109      -0.18
 280 # [4='eq_3.11']              -0.0000          0.2042      -0.00
 281 # [5='eq_3.12']              -0.7143          0.1309      -5.46
 282 # [6='eq_3.13']              -0.8696          0.1204      -7.22
 283 # [7='eq_3.14']              -0.8667          0.1291      -6.71
 284 #
 285 # R^2= 0.628, N= 128, K= 8
 286 # ****************************************************************
 287 # (2)
 288 # ****************************************************************
 289 # Regression 'id'
 290 # ****************************************************************
 291 # Name                         Theta          StdErr     T-stat
 292 # [0='const']                 2.4992          0.1514      16.51
 293 # [1='n_id']                 -0.0000          0.0000     -12.66
 294 #
 295 # R^2= 0.560, N= 128, K= 2
 296 # ****************************************************************
 297 # (3)
 298 # ****************************************************************
 299 # Regression 'meta:date'
 300 # ****************************************************************
 301 # Name                         Theta          StdErr     T-stat
 302 # [0='const']                93.9116          7.3952      12.70
 303 # [1='n_meta:date']          -0.0000          0.0000     -12.62
 304 #
 305 # R^2= 0.558, N= 128, K= 2
 306 # ****************************************************************
 307
 308 # From 0.0.16:
 309
 310 # State after regression testing: 110 results, showing top 3
 311 #
 312 # (1)
 313 # ****************************************************************
 314 # Regression 'meta:writer'
 315 # ****************************************************************
 316 # Name                         Theta          StdErr     T-stat
 317 # [0='const']                 0.8929          0.0509      17.54
 318 # [1='eq_CPAN-Reporter-1.1404']       0.1071          0.0992       1.08
 319 # [2='eq_CPAN-Reporter-1.15']         0.1071          0.0720       1.49
 320 # [3='eq_CPAN-Reporter-1.1556']      -0.8929          0.1440      -6.20
 321 # [4='eq_CPAN-Reporter-1.16']        -0.8929          0.2741      -3.26
 322 # [5='eq_CPAN-Reporter-1.1601']      -0.6929          0.1308      -5.30
 323 # [6='eq_CPAN-Reporter-1.1651']      -0.7679          0.0844      -9.10
 324 # [7='eq_CPAN-Reporter-1.17']        -0.6706          0.1032      -6.50
 325 # [8='eq_CPAN-Reporter-1.1702']      -0.7817          0.0814      -9.61
 326 # [9='eq_CPAN::YACSmoke 0.0307']              0.1071          0.1032       1.04
 327 #
 328 # R^2= 0.717, N= 128, K= 10
 329 # ****************************************************************
 330 # (2)
 331 # ****************************************************************
 332 # Regression 'mod:Test::Harness'
 333 # ****************************************************************
 334 # Name                         Theta          StdErr     T-stat
 335 # [0='const']                 1.0000          0.1021       9.80
 336 # [1='eq_2.64']              -0.3846          0.1328      -2.90
 337 # [2='eq_3.09']               0.0000          0.3228       0.00
 338 # [3='eq_3.10']              -0.0200          0.1109      -0.18
 339 # [4='eq_3.11']              -0.0000          0.2042      -0.00
 340 # [5='eq_3.12']              -0.7143          0.1309      -5.46
 341 # [6='eq_3.13']              -0.8696          0.1204      -7.22
 342 # [7='eq_3.14']              -0.8667          0.1291      -6.71
 343 #
 344 # R^2= 0.628, N= 128, K= 8
 345 # ****************************************************************
 346 # (3)
 347 # ****************************************************************
 348 # Regression 'id'
 349 # ****************************************************************
 350 # Name                         Theta          StdErr     T-stat
 351 # [0='const']                 2.4992          0.1514      16.51
 352 # [1='n_id']                 -0.0000          0.0000     -12.66
 353 #
 354 # R^2= 0.560, N= 128, K= 2
 355 # ****************************************************************
 356
 357
 358 }
 359
 360 {
 361     BEGIN {
 362         $plan += 9;
 363     }
 364     my $id = 5834678;
 365     my %Opt = (
 366                'q' => ["conf:nvsize", "conf:uselongdouble"],
 367                'local' => 1,
 368                'cachedir' => 't/var',
 369                'quiet' => 1,
 370                'dumpvars' => ".",
 371                'report' => $id,
 372               );
 373     my $dumpvars = {};
 374     my $extract = CPAN::Testers::ParseReport::parse_report
 375           (
 376            "t/var/nntp-testers/$id",
 377            $dumpvars,
 378            %Opt,
 379           );
 380     is $extract->{'meta:date'}, '2009-11-01T14:07:11', "report $id: date";
 381     is $extract->{'conf:nvsize'}, 8, "report $id: found 8 on nvsize";
 382     is $extract->{'conf:uselongdouble'}, 'undef', "report $id: found uselongdouble";
 383     is $extract->{'mod:CPANPLUS'}, '0.89_06', "report $id: CPANPLUS version";
 384     is $extract->{'mod:Cwd'}, '3.2501', "report $id: Cwd version";
 385     is $extract->{'mod:File::Spec'}, '3.2501', "report $id: File::Spec version";
 386     is $extract->{'mod:version'}, '0.7701', "report $id: version version";
 387     is $extract->{'mod:ExtUtils::MakeMaker'}, '6.54', "report $id: ExtUtils::MakeMaker version";
 388     is $extract->{'mod:l module toolchain versions in'}, undef, "report $id: C:T:PR 0.1.6 had a bug against cpanplus 0.89_06";
 389 }
 390
 391 {
 392     BEGIN {
 393         $plan += 8;
 394     }
 395     my $id = 5928865;
 396     my %Opt = (
 397                'local' => 1,
 398                'cachedir' => 't/var',
 399                'quiet' => 1,
 400                'dumpvars' => ".",
 401                'report' => $id,
 402               );
 403     my $dumpvars = {};
 404     my $extract = CPAN::Testers::ParseReport::parse_report
 405           (
 406            "t/var/nntp-testers/$id",
 407            $dumpvars,
 408            %Opt,
 409           );
 410     is $extract->{'mod:Catalyst::Plugin::Session::State::Cookie'}, "0.17", "report $id: C:P:S:S:C version";
 411     is $extract->{'mod:Catalyst::Controller::ActionRole'}, "0.12", "report $id: C:C:AR mod version";
 412     is $extract->{'prereq:Catalyst::Controller::ActionRole'}, "0.12", "report $id: C:C:AR prereq version";
 413     is $extract->{'mod:Moose::Autobox'}, "0.10", "report $id: M:A mod version";
 414     is $extract->{'prereq:Moose::Autobox'}, "0.09", "report $id: M:A prereq version";
 415     is $extract->{'mod:CPANPLUS'}, '0.89_07', "report $id: CPANPLUS version";
 416     is $extract->{'mod:Cwd'}, '3.30', "report $id: Cwd version";
 417     is $extract->{'meta:date'}, '2009-11-08T14:48:26', "report $id: date";
 418 }
 419
 420 {
 421     BEGIN {
 422         $plan += 1;
 423     }
 424     my $id = 2129076;
 425     my %Opt = (
 426                'local' => 1,
 427                'cachedir' => 't/var',
 428                'quiet' => 1,
 429                'dumpvars' => ".",
 430                'report' => $id,
 431               );
 432     my $dumpvars = {};
 433     my $extract = CPAN::Testers::ParseReport::parse_report
 434           (
 435            "t/var/nntp-testers/$id",
 436            $dumpvars,
 437            %Opt,
 438           );
 439     is $extract->{'meta:date'}, '2008-09-02T18:05:00', "report $id: date";
 440 }
 441
 442 {
 443     BEGIN {
 444         $plan += 1;
 445     }
 446     my $id = 34604012;
 447     my %Opt = (
 448                'local' => 1,
 449                'cachedir' => 't/var',
 450                'quiet' => 1,
 451                'dumpvars' => ".",
 452                'report' => $id,
 453               );
 454     my $dumpvars = {};
 455     my $extract = CPAN::Testers::ParseReport::parse_report
 456           (
 457            "t/var/nntp-testers/$id",
 458            $dumpvars,
 459            %Opt,
 460           );
 461     is $extract->{'fail:t/20-content-types.t'}, 1;
 462 }
 463
 464 {
 465     BEGIN {
 466         $plan += 2;
 467     }
 468     my $id = 6422067;
 469     my %Opt = (
 470                'local' => 1,
 471                'cachedir' => 't/var',
 472                'quiet' => 1,
 473                'dumpvars' => ".",
 474                'report' => $id,
 475                'q' => ['qr:(Failed test\s+\S+.*)'],
 476               );
 477     my $dumpvars = {};
 478     my $extract = CPAN::Testers::ParseReport::parse_report
 479           (
 480            "t/var/nntp-testers/$id",
 481            $dumpvars,
 482            %Opt,
 483           );
 484     is $extract->{'qr:(Failed test\s+\S+.*)'}, q{Failed test 'Pod coverage on App::Pm2Port'}, "report $id: qr...Failed test...";
 485     is $extract->{'fail:t/pod-coverage.t'}, 1;
 486 }
 487
 488 {
 489     BEGIN {
 490         $plan += 1;
 491     }
 492     my $id = 6115651;
 493     my %Opt = (
 494                'local' => 1,
 495                'cachedir' => 't/var',
 496                'quiet' => 1,
 497                'dumpvars' => ".",
 498                'report' => $id,
 499               );
 500     my $dumpvars = {};
 501     my $extract = CPAN::Testers::ParseReport::parse_report
 502           (
 503            "t/var/nntp-testers/$id",
 504            $dumpvars,
 505            %Opt,
 506           );
 507     is $extract->{'meta:perl'}, q{5.11.2}, "report $id: meta:perl";
 508 }
 509
 510 {
 511     BEGIN {
 512         $plan += 1;
 513     }
 514     my $id = 6525411;
 515     my %Opt = (
 516                'local' => 1,
 517                'cachedir' => 't/var',
 518                'quiet' => 1,
 519                'dumpvars' => ".",
 520                'report' => $id,
 521               );
 522     my $dumpvars = {};
 523     my $extract = CPAN::Testers::ParseReport::parse_report
 524           (
 525            "t/var/nntp-testers/$id",
 526            $dumpvars,
 527            %Opt,
 528           );
 529     is $extract->{'mod:Image::Imlib2'}, q{0}, "report $id: mod:Image::Imlib2";
 530 }
 531
 532 {
 533     BEGIN {
 534         $plan += 2;
 535     }
 536     my $id = 8327429;
 537     my %Opt = (
 538                'local' => 1,
 539                'cachedir' => 't/var',
 540                'quiet' => 1,
 541                'dumpvars' => ".",
 542                'report' => $id,
 543               );
 544     my $dumpvars = {};
 545     my $extract = CPAN::Testers::ParseReport::parse_report
 546           (
 547            "t/var/nntp-testers/$id",
 548            $dumpvars,
 549            %Opt,
 550           );
 551     is $extract->{'prereq:Module::Build'}, q{0.36}, "report $id: prereq:Module::Build";
 552     is $extract->{'mod:Module::Build'}, q{0.36_13}, "report $id: mod:Module::Build";
 553 }
 554
 555 {
 556     BEGIN {
 557         $plan += 2;
 558     }
 559     my $id = 1678737;
 560     my %Opt = (
 561                'local' => 1,
 562                'cachedir' => 't/var',
 563                'quiet' => 1,
 564                'dumpvars' => ".",
 565                'report' => $id,
 566               );
 567     my $dumpvars = {};
 568     my $extract = CPAN::Testers::ParseReport::parse_report
 569           (
 570            "t/var/nntp-testers/$id",
 571            $dumpvars,
 572            %Opt,
 573           );
 574     is $extract->{'env:$UID'}, q{1005}, "report $id: UID=1005";
 575     is $extract->{'env:$GID∋1005'}, q{true}, "report $id: GID∋1005";
 576 }
 577
 578 {
 579     BEGIN {
 580         $plan += 2;
 581     }
 582     my $id = 1425132;
 583     my %Opt = (
 584                'local' => 1,
 585                'cachedir' => 't/var',
 586                'quiet' => 1,
 587                'dumpvars' => ".",
 588                'report' => $id,
 589               );
 590     my $dumpvars = {};
 591     my $extract = CPAN::Testers::ParseReport::parse_report
 592           (
 593            "t/var/nntp-testers/$id",
 594            $dumpvars,
 595            %Opt,
 596           );
 597     is $extract->{'env:$UID'}, q{1002}, "report $id: UID=1002";
 598     is $extract->{'env:$GID∋100'}, q{true}, "report $id: GID∋100";
 599 }
 600
 601 {
 602     BEGIN {
 603         $plan += 2;
 604     }
 605     my $id = 3521214;
 606     my %Opt = (
 607                'local' => 1,
 608                'cachedir' => 't/var',
 609                'quiet' => 1,
 610                'dumpvars' => ".",
 611                'report' => $id,
 612               );
 613     my $dumpvars = {};
 614     my $extract = CPAN::Testers::ParseReport::parse_report
 615           (
 616            "t/var/nntp-testers/$id",
 617            $dumpvars,
 618            %Opt,
 619           );
 620     is $extract->{'env:$UID'}, q{502}, "report $id: UID=502";
 621     is $extract->{'env:$GID∋502'}, q{true}, "report $id: GID∋502";
 622 }
 623
 624 {
 625     BEGIN {
 626         $plan += 3;
 627     }
 628     my $id = 5834678;
 629     my %Opt = (
 630                'local' => 1,
 631                'cachedir' => 't/var',
 632                'quiet' => 1,
 633                'dumpvars' => ".",
 634                'report' => $id,
 635               );
 636     my $dumpvars = {};
 637     my $extract = CPAN::Testers::ParseReport::parse_report
 638           (
 639            "t/var/nntp-testers/$id",
 640            $dumpvars,
 641            %Opt,
 642           );
 643     is $extract->{'env:$UID'}, q{1001}, "report $id: UID=1001";
 644     is $extract->{'env:$GID∋1001'}, q{true}, "report $id: GID∋1001";
 645     is $extract->{'env:$^X'}, q{/usr/home/cpan/pit/bare/perl-5.10.0/bin/perl}, "report $id: \$^X=/usr/home/cpan/pit/bare/perl-5.10.0/bin/perl";
 646 }
 647
 648 {
 649     BEGIN {
 650         $plan += 2;
 651     }
 652     my $id = 16833358;
 653     my %Opt = (
 654                'local' => 1,
 655                'cachedir' => 't/var',
 656                'quiet' => 1,
 657                'dumpvars' => ".",
 658                'report' => $id,
 659               );
 660     my $dumpvars = {};
 661     my $extract = CPAN::Testers::ParseReport::parse_report
 662           (
 663            "t/var/nntp-testers/$id",
 664            $dumpvars,
 665            %Opt,
 666           );
 667     is $extract->{'meta:perl'}, q{5.12.4}, "report $id: meta:perl";
 668     is $extract->{'mod:CPANPLUS'}, q{0.9111}, "report $id: mod:CPANPLUS";
 669 }
 670
 671 {
 672     BEGIN {
 673         $plan += 7;
 674     }
 675     my $id = 18548512;
 676     my %Opt = (
 677                'local' => 1,
 678                'cachedir' => 't/var',
 679                'quiet' => 1,
 680                'dumpvars' => ".",
 681                'report' => $id,
 682               );
 683     my $dumpvars = {};
 684     $main::att=1;
 685     my $extract = CPAN::Testers::ParseReport::parse_report
 686           (
 687            "t/var/nntp-testers/$id",
 688            $dumpvars,
 689            %Opt,
 690           );
 691     reportedvariableis $extract, $id, 'conf:usesocks', 'undef';
 692     reportedvariableis $extract, $id, 'conf:use64bitall', 'define';
 693     reportedvariableis $extract, $id, 'conf:use64bitint', 'define';
 694     reportedvariableis $extract, $id, 'conf:useposix', 'true';
 695     reportedvariableis $extract, $id, 'conf:usemymalloc', 'n';
 696     reportedvariableis $extract, $id, 'conf:d_sfio', 'undef';
 697     reportedvariableis $extract, $id, 'conf:bincompat5005', 'undef';
 698 }
 699
 700 unlink "ctgetreports.out";
 701
 702 BEGIN {
 703       plan tests => $plan;
 704 }
 705
 706 __END__
 707
 708 # Local Variables:
 709 # mode: cperl
 710 # cperl-indent-level: 4
 711 # End:
 712