sub specific_suite_has_vsn_in_our_history ($) {
my ($suite) = @_;
- my $in_suite = apiquery "/dsc_in_suite/$suite/$pkg";
+ my $in_suite = apiquery "dsc_in_suite/$suite/$pkg";
foreach my $entry (@$in_suite) {
my $vsn = $entry->{version};
die "$pkg ?" unless defined $vsn;
}
sub good_suite_has_vsn_in_our_history () {
- my $suites = apiquery "/suites";
+ my $suites = apiquery "suites";
foreach my $suitei (@$suites) {
my $suite = $suitei->{name};
die unless defined $suite;