diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2004-04-22 05:43:07 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2004-04-22 05:43:07 +0000 |
| commit | 85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac (patch) | |
| tree | 45f549990f98fdca067cc303ce2aadfa7d30fb08 /t/parse.t | |
| parent | e8f3cac95471ca34f77307ec26564bcea181c295 (diff) | |
| download | perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar.gz perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar.bz2 perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.tar.xz perl-URPM-85e0e85498d71d4ac6c7bf4f75c6bd8f7709c7ac.zip | |
- remove unusefull function
- start to add parsing test
Diffstat (limited to 't/parse.t')
| -rw-r--r-- | t/parse.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/parse.t b/t/parse.t new file mode 100644 index 0000000..16dfc94 --- /dev/null +++ b/t/parse.t @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use strict ; +use warnings ; +use Test::More tests => 4; +use URPM; +use URPM::Build; +use URPM::Query; + +my $a = new URPM; +ok($a); + +my ($start, $end) = $a->parse_rpms_build_headers(rpms => [ "test-rpm-1.0-1mdk.noarch.rpm" ], keep_all_tags => 1); +ok(@{$a->{depslist}} == 1); +my $pkg = $a->{depslist}[0]; +ok($pkg); +ok($pkg->get_tag(1000) eq 'test-rpm'); + + + + |