diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/resolve.t | 46 | ||||
| -rw-r--r-- | t/synthesis.t | 52 |
2 files changed, 96 insertions, 2 deletions
diff --git a/t/resolve.t b/t/resolve.t new file mode 100644 index 0000000..56869b1 --- /dev/null +++ b/t/resolve.t @@ -0,0 +1,46 @@ +#!/usr/bin/perl + +use strict ; +use warnings ; +use Test::More; +use URPM::Resolve; + +my $testcases = [ + { + property => 'mageia-release[>= 1]', + name => 'mageia-release', + op => '>=', + version => '1', + }, { + property => 'python3.10dist(fonttools[unicode])[>= 4.10]', + name => 'python3.10dist(fonttools[unicode])', + op => '>=', + version => '4.10', + }, { + property => 'python3.10dist(fonttools[unicode])', + name => 'python3.10dist(fonttools[unicode])', + op => '', + version => '', + }, { + property => 'openssl[*][>= 0.9.7]', + name => 'openssl', + op => '>=', + version => '0.9.7', + }, { + property => 'openssl[*]', + name => 'openssl', + op => '', + version => '', + }]; + +foreach my $tc (@$testcases) { + is(URPM::property2name($tc->{property}), $tc->{name}, "property2name(\"$tc->{property}\")"); + my $expected = [$tc->{name}, $tc->{op} ? "$tc->{op} $tc->{version}" : ""]; + my @got = URPM::property2name_range($tc->{property}); + is_deeply(\@got, $expected, "property2name_range(\"$tc->{property}\")"); + $expected = [$tc->{name}, $tc->{op}, $tc->{version}]; + @got = URPM::property2name_op_version($tc->{property}); + is_deeply(\@got, $expected, "property2name_op_version(\"$tc->{property}\")"); +} + +done_testing(); diff --git a/t/synthesis.t b/t/synthesis.t index 8246b36..794fd7a 100644 --- a/t/synthesis.t +++ b/t/synthesis.t @@ -2,7 +2,7 @@ use strict ; use warnings ; -use Test::More tests => 95; +use Test::More tests => 113; use URPM; chdir 't' if -d 't'; @@ -27,7 +27,25 @@ $s =~ s/-devel//g; print $f $s; close $f; -END { unlink $file1, $file2 } +$s = <<'EOF'; +@provides@python3-fonttools+ufo[== 4.18.2-4.mga9]@python3dist(fonttools[ufo])[== 4.18.2] +@summary@Metapackage for python3-fonttools: ufo extras +@info@python3-fonttools+ufo-4.18.2-4.mga9.noarch@0@221683@Development/Other +@provides@config(dovecot)[== 2.3.19.1-2.mga9] +@requires@openssl[*]@rpm-helper[*][>= 0.21] +@summary@Secure IMAP and POP3 server +@info@dovecot-2.3.19.1-2.mga9.x86_64@0@17815993@System/Servers +@provides@openimageio[== 2.3.20.0-2.mga9]@font(:lang=aa) +@summary@Library for reading and writing images +@info@openimageio-2.3.20.0-2.mga9.x86_64@0@42@Development/Other +EOF + +my $file3 = 'synthesis.squarebrackets.cz'; +open $f, "| gzip -9 >$file3"; +print $f $s; +close $f; + +END { unlink $file1, $file2, $file3 } my $a = URPM->new; ok($a); @@ -161,3 +179,33 @@ ok($requires[8] eq 'rpmlib(CompressedFileNames)'); @provides = $pkg->provides_nosense; ok(@provides == 1); ok($provides[0] eq 'glibc-devel'); + +my $b = URPM->new; +$b->parse_synthesis($file3); +$pkg = $b->{depslist}[0]; +ok($pkg); +is($pkg->name, 'python3-fonttools+ufo'); +@provides = $pkg->provides; +is(@provides, 2); +is($provides[1], 'python3dist(fonttools[ufo])[== 4.18.2]'); +@provides = $pkg->provides_nosense; +is(@provides, 2); +is($provides[1], 'python3dist(fonttools[ufo])'); +$pkg = $b->{depslist}[1]; +ok($pkg); +is($pkg->name, 'dovecot'); +@requires = $pkg->requires; +is(@requires, 2); +is($requires[0], 'openssl[*]'); +is($requires[1], 'rpm-helper[*][>= 0.21]'); +@requires = $pkg->requires_nosense; +is(@requires, 2); +is($requires[0], 'openssl'); +is($requires[1], 'rpm-helper'); +$pkg = $b->{depslist}[2]; +ok($pkg); +is($pkg->name, 'openimageio'); +@provides = $pkg->provides; +is(@provides, 2); +is($provides[1], 'font(:lang=aa)'); + |