t/05_wheezy_ignore.t

   1 # -*- mode: cperl; -*-
   2 use Test::More;
   3
   4 BEGIN{
   5     $ENV{DEBBUGS_CONFIG_FILE}="t/test_spool_debbugs_config";
   6 }
   7
   8 use Debbugs::Config qw(%config);
   9 use Data::Dumper;
  10
  11 use_ok('Debbugs::Config');
  12
  13 use_ok('bugcfg');
  14 use_ok('scanlib');
  15
  16 # scan all bugs; this should keep everything appropriately
  17 scanlib::scanspool();
  18 ok(exists $scanlib::bugs{710069},'710069 is kept from scanlib');
  19 ok(exists $scanlib::bugs{710357},'710357 is kept from scanlib');
  20 use Data::Dumper;
  21 ok(!scanlib::check_worry_stable($scanlib::bugs{710069}),'710069 does not concern stable');
  22 # this bug would concern testing, but the package isn't in testing...
  23 # ok(scanlib::check_worry($scanlib::bugs{710069}),'710069 does concerns testing');
  24 ok(scanlib::check_worry_unstable($scanlib::bugs{710069}),'710069 concerns unstable');
  25 ok(!scanlib::check_worry_stable($scanlib::bugs{710357}),'710357 does not concern stable');
  26 ok(!scanlib::check_worry($scanlib::bugs{710357}),'710357 does not concern testing');
  27 ok(!scanlib::check_worry_unstable($scanlib::bugs{710357}),'710357 does not concern unstable');
  28
  29 # OK; things seem to work properly here, so why are these being counted?
  30 ok(scanlib::get_taginfo($scanlib::bugs{710357}) =~ qr/I$/,'710357 has an I taginfo' );
  31 ok(scanlib::get_taginfo($scanlib::bugs{710069}) =~ qr/I$/,'710069 has an I taginfo' );
  32
  33 # done testing
  34 done_testing();