test suite for the utils in RPM.pm

CVS patchset: 3759
CVS date: 2000/05/27 03:56:38

1 files changed, 27 insertions, 0 deletions

diff --git a/Perl-RPM/t/04_utils.t b/Perl-RPM/t/04_utils.t
new file mode 100755
index 000000000..751f5687e
--- /dev/null
+++ b/Perl-RPM/t/04_utils.t
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test the basic util functions
+
+use RPM;
+
+print "1..2\n";
+
+$arch = $os = '';
+
+open(PIPE, "rpm --showrc |");
+while (defined($line = <PIPE>))
+{
+    chomp $line;
+
+    $line =~ /^build arch\s*:\s*(\S+)\s*$/ and $arch = $1;
+    $line =~ /^build os\s*:\s*(\S+)\s*$/ and $os = $1;
+}
+close(PIPE);
+
+print 'not ' unless ($arch eq GetArchName);
+print "ok 1\n";
+
+print 'not ' unless ($os eq GetOsName);
+print "ok 2\n";
+
+exit;