1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#! /usr/bin/perl
# $OpenBSD: check-name,v 1.5 2007/05/15 10:17:01 espie Exp $
# Written by Marc Espie
# Public domain
use Test::Simple tests => 12;
use OpenBSD::Search;
use OpenBSD::PackageName;
sub check_list
{
my $expected = shift;
@_ = sort(@_);
if (@$expected != @_) {
return 0;
}
for my $i (0 .. @_ -1) {
if ($expected->[$i] ne $_[$i]) {
return 0;
}
}
return 1;
}
sub check_pkgspec
{
my ($s, @list) = @_;
my $o = OpenBSD::Search::PkgSpec->new($s);
return $o->filter(@list);
}
@list = qw(py-MxDateTime-2.0.1-py2.1);
ok(check_list(\@list,
check_pkgspec('py-MxDateTime->=2.0-py2.1', @list)),
'flavor with number');
# packages without a version number should work
my @list = qw(hugs98-Nov2003);
ok(check_list(\@list,
check_pkgspec('hugs98-Nov2003', @list)),
'no version number');
@list = qw(foo-1.0 foo-1.0p0 foo-1.0p25);
ok(check_list([qw(foo-1.0)],
check_pkgspec('foo-<1.0p0', @list)),
'before 1.0p0 came 1.0');
ok(check_list([qw(foo-1.0 foo-1.0p0)],
check_pkgspec('foo-<=1.0p0', @list)),
'1.0 and 1.0p0 both match <=1.0p0');
ok(check_list([qw(foo-1.0 foo-1.0p0 foo-1.0p25)],
check_pkgspec('foo-1.0', @list)),
'any 1.0p* matches 1.0');
my @pkglist=qw(foo-1.0 bar-2.0 foo-2.5 foobar-2.3-pouet hugs-noversion baz-0.0
baz-1.1 baz-25.3 pouet-1.0 pouet-zoinx-1.0 pouet-0.0-foo);
my $hash = OpenBSD::PackageName::compile_stemlist(@pkglist);
ok(check_list([qw(bar-2.0)],
$hash->find('bar')),
'simple stem lookup');
ok(check_list([qw(foo-1.0 foo-2.5)],
$hash->find('foo')),
'simple stem lookup with several results');
ok(check_list([qw(baz-0.0 baz-1.1 baz-25.3)],
$hash->find('baz')),
'stem lookup, no duplicates');
ok(check_list([qw(foobar-2.3-pouet)],
$hash->find('foobar')),
'stem lookup with flavor');
ok(check_list([qw(pouet-0.0-foo pouet-1.0)],
$hash->find('pouet')),
'complicated stem matching');
ok(check_list([],
$hash->find('hugs')),
'bogus stem matching with no version');
ok(check_list([qw(hugs-noversion)],
$hash->find('hugs-noversion')),
'stem matching with no version');
|
