RPM Package Manager, CVS Repository
http://rpm5.org/cvs/
____________________________________________________________________________
Server: rpm5.org Name: Olivier Thauvin
Root: /v/rpm/cvs Email: [EMAIL PROTECTED]
Module: rpm Date: 15-Aug-2007 21:52:29
Branch: HEAD Handle: 2007081520522900
Modified files:
rpm/perl/t 01.rpm.t
Log:
- add test for delete_macro
Summary:
Revision Changes Path
1.3 +4 -2 rpm/perl/t/01.rpm.t
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: rpm/perl/t/01.rpm.t
============================================================================
$ cvs diff -u -r1.2 -r1.3 01.rpm.t
--- rpm/perl/t/01.rpm.t 15 Aug 2007 02:59:59 -0000 1.2
+++ rpm/perl/t/01.rpm.t 15 Aug 2007 19:52:29 -0000 1.3
@@ -2,12 +2,14 @@
use strict;
-use Test::More tests => 11;
+use Test::More tests => 12;
use_ok('RPM');
like(RPM::expand_macro('%{?_rpmversion}%{?!_rpmversion:ver}'), '/^[^%]/',
"can expand %_rpmversion macro");
RPM::add_macro('_test_macro I_am_set');
-is(RPM::expand_macro('%_test_macro'), 'I_am_set', 'setting a marco works');
+is(RPM::expand_macro('%_test_macro'), 'I_am_set', 'setting a macro works');
+RPM::delete_macro('_test_macro');
+is(RPM::expand_macro('%_test_macro'), '%_test_macro', 'deleting a macro
works');
can_ok('RPM', qw(rpmlog setlogcallback setlogfile lastlogmsg setverbosity));
ok(!rpmlog('DEBUG', 'test message'), "can rpmlog()");
@@ .
______________________________________________________________________
RPM Package Manager http://rpm5.org
CVS Sources Repository rpm-cvs@rpm5.org
