~ubuntu-branches/ubuntu/edgy/rpm/edgy

« back to all changes in this revision

Viewing changes to Perl-RPM/t/04_utils.t

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

Perl-RPM/t/04_utils.t

 

1

#!/usr/bin/perl

 

2

 

 

3

# Test the basic util functions

 

4

 

 

5

use RPM;

 

6

 

 

7

print "1..2\n";

 

8

 

 

9

$arch = $os = '';

 

10

 

 

11

open(PIPE, "rpm --showrc |");

 

12

while (defined($line = <PIPE>))

 

13

{

 

14

    chomp $line;

 

15

 

 

16

    $line =~ /^build arch\s*:\s*(\S+)\s*$/ and $arch = $1;

 

17

    $line =~ /^build os\s*:\s*(\S+)\s*$/ and $os = $1;

 

18

}

 

19

close(PIPE);

 

20

 

 

21

print 'not ' unless ($arch eq rpm_archname);

 

22

print "ok 1\n";

 

23

 

 

24

print 'not ' unless ($os eq rpm_osname);

 

25

print "ok 2\n";

 

26

 

 

27

exit;

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1