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