5 $ENV{DEBBUGS_CONFIG_FILE}="t/test_spool_debbugs_config";
8 use Debbugs::Config qw(%config);
11 use_ok('Debbugs::Config');
16 # scan all bugs; this should keep everything appropriately
18 ok(exists $scanlib::bugs{710069},'710069 is kept from scanlib');
19 ok(exists $scanlib::bugs{710357},'710357 is kept from scanlib');
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');
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' );