aboutsummaryrefslogtreecommitdiffstats
path: root/t/synthesis.t
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-06-27 23:53:08 +0000
committerThierry Vignaud <tv@mageia.org>2012-06-27 23:53:08 +0000
commitf08fbba859b2c21b85c5aa7170c704271e0ca62d (patch)
treeca75f5b36ecd6d37a156068f141f7dca81155ce6 /t/synthesis.t
parentf3a5346c94ceed8c28a10511db0b1019ec532971 (diff)
parent0f5e4ddc50cf8f93de30d8c10477fff5d9d99282 (diff)
downloadperl-URPM-f08fbba859b2c21b85c5aa7170c704271e0ca62d.tar
perl-URPM-f08fbba859b2c21b85c5aa7170c704271e0ca62d.tar.gz
perl-URPM-f08fbba859b2c21b85c5aa7170c704271e0ca62d.tar.bz2
perl-URPM-f08fbba859b2c21b85c5aa7170c704271e0ca62d.tar.xz
perl-URPM-f08fbba859b2c21b85c5aa7170c704271e0ca62d.zip
add new t/01setter-getter.t to MANIFEST
Diffstat (limited to 't/synthesis.t')
-rw-r--r--t/synthesis.t20
1 files changed, 15 insertions, 5 deletions
diff --git a/t/synthesis.t b/t/synthesis.t
index 6729b3b..4d9d79b 100644
--- a/t/synthesis.t
+++ b/t/synthesis.t
@@ -2,29 +2,39 @@
use strict ;
use warnings ;
-use Test::More tests => 94;
+use Test::More tests => 95;
use URPM;
chdir 't' if -d 't';
my $file1 = 'synthesis.sample.cz';
+my $file2 = 'synthesis.sample-xz.cz';
-open my $f, "| gzip -9 >$file1";
-print $f <<'EOF';
+my $s = <<'EOF';
@provides@glibc-devel == 6:2.2.4-25mdk
@requires@/sbin/install-info@glibc == 2.2.4@kernel-headers@kernel-headers >= 2.2.1@/bin/sh@/bin/sh@/bin/sh@rpmlib(PayloadFilesHavePrefix) <= 4.0-1@rpmlib(CompressedFileNames) <= 3.0.4-1
@conflicts@texinfo < 3.11@gcc < 2.96-0.50mdk
@obsoletes@libc-debug@libc-headers@libc-devel@linuxthreads-devel@glibc-debug
@info@glibc-devel-2.2.4-25mdk.i586@6@45692097@Development/C
EOF
+open my $f, "| gzip -9 >$file1";
+print $f $s;
+close $f;
+open my $f, "| xz -9 >$file2";
+print $f $s;
+$s =~ s/-devel//g;
+print $f $s;
close $f;
-END { unlink $file1 }
+END { unlink $file1, $file2 }
-my $a = new URPM;
+my $a = URPM->new;
ok($a);
my ($first, $end);
+($first, $end) = URPM->new->parse_synthesis($file2);
+ok($first == 0 && $end == 1, 'parse XZ synthesis');
+
($first, $end) = URPM->new->parse_synthesis('empty_synthesis.cz');
is("$first $end", "0 -1", 'parse empty synthesis');