diff options
Diffstat (limited to 't/001_check_file.t')
| -rw-r--r-- | t/001_check_file.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/001_check_file.t b/t/001_check_file.t index f82b149..2eded9f 100644 --- a/t/001_check_file.t +++ b/t/001_check_file.t @@ -24,7 +24,7 @@ if (scalar %info) { } } else { fail 'ISO has valid filename.'; - diag 'See https://wiki.mageia.org/en/Product_naming'; + diag 'See https://wiki.mageia.org/en/Product_naming for more information.'; } # are files available? @@ -32,12 +32,12 @@ ok -r $image_path, 'ISO file is readable.' or diag("$image_path: $!"); # is file size correct? -my $du = `du --apparent-size --block-size=M $image_path`; +my $du = `du --apparent-size --block-size=MB $image_path`; my @size_name = split(/\t/, $du); my $size = $size_name[0]; -# FIXME put correct sizes here -my %max_sizes = ( "CD" => "740M", "DVD" => "4200M" ); +# Correct sizes: CD == 700MB & DVD == 4,700.373MB +my %max_sizes = ( "CD" => "700MB", "DVD" => "4700MB" ); 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"}})); |