From 1e65efa6a3d996c34c902f2b04257307c2175776 Mon Sep 17 00:00:00 2001
From: Romain d'Alverny <rda@mageia.org>
Date: Sat, 10 Dec 2011 19:28:30 +0000
Subject: more code style fixes (perl_checker & tv)

---
 t/001_check_file.t | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 't/001_check_file.t')

diff --git a/t/001_check_file.t b/t/001_check_file.t
index ce36df0..022a8d7 100644
--- a/t/001_check_file.t
+++ b/t/001_check_file.t
@@ -34,7 +34,7 @@ bail_on_fail;
 if (scalar %info) {
     pass 'ISO has valid filename.';
     while (my ($k, $v) = each %info) {
-        note uc($k), "=$v\n";
+        note uc($k), "=$v\n" if defined $v;
     }
 } else {
     fail 'ISO has valid filename.';
@@ -42,7 +42,7 @@ if (scalar %info) {
 }
 
 # are files available?
-ok -r $image_path, 'ISO file is readable.'
+ok(-r $image_path, 'ISO file is readable.')
     or diag("$image_path: $!");
 
 # is file size correct?
@@ -52,19 +52,19 @@ my $size      = $size_name[0];
 
 # Correct sizes: CD == 700MB & DVD == 4,700.373MB
 my %max_sizes = ("CD" => "700MB", "DVD" => "4700MB");
-ok $size le $max_sizes{$info{medium}},
+ok($size le $max_sizes{$info{medium}},
     sprintf("File has a working size (%s) for its medium type (%s, max %s).",
-        $size, $info{medium}, $max_sizes{$info{medium}});
+        $size, $info{medium}, $max_sizes{$info{medium}}));
 
 #
-ok -r $image_path . '.md5', 'MD5 checksum is available.';
-ok -r $image_path . '.sha1', 'SHA1 checkum is available.';
+ok(-r $image_path . '.md5', 'MD5 checksum is available.');
+ok(-r $image_path . '.sha1', 'SHA1 checkum is available.');
 
 TODO: {
     local $TODO = ".idx & .lst" if 1;
 
-    ok -r $image_path, '.idx list file is available.';
-    ok -r $image_path, '.lst list file is available.';
+    ok(-r $image_path, '.idx list file is available.');
+    ok(-r $image_path, '.lst list file is available.');
 }
 
 
@@ -82,7 +82,7 @@ is($md5, $md5file, 'MD5/.md5 checksums match.');
 my $sha1  = $ts[0];
 @ts       = split(/ /, `cat $sha1file`);
 $sha1file = $ts[0];
-is $sha1, $sha1file, 'SHA1/.sha1 checksums match.';
+is($sha1, $sha1file, 'SHA1/.sha1 checksums match.');
 
 
 # check ISO header info
@@ -94,7 +94,7 @@ my %isoValues = (
     "Volume set id",     "$info{name} $info{version} $info{release} $info{variant} $info{arch} $info{medium}", # TODO $info{'build'} ?
     "Publisher id",      "Mageia.Org",
     "Data preparer id",  "", # ?
-    "Copyright File id", "http://www.mageia.org/2/license/"
+    "Copyright File id", "http://www.mageia.org/2/license/",
     "Abstract File id",  "http://www.mageia.org/2/"
 );
 
@@ -120,7 +120,7 @@ my $result   = `cat is_burnable.log | grep overburn | wc -l | tr -d '\n'`;
 
 -r "is_burnable.log" and system "rm is_burnable.log";
 
-is $result, 0, "ISO can be burnt.";
+is($result, 0, "ISO can be burnt.");
 
 
 done_testing();
-- 
cgit v1.2.1