diff options
| author | Romain d'Alverny <rda@mageia.org> | 2011-12-10 17:27:16 +0000 |
|---|---|---|
| committer | Romain d'Alverny <rda@mageia.org> | 2011-12-10 17:27:16 +0000 |
| commit | 73301e163a277eae7fd8270cff2cf6277ac925a1 (patch) | |
| tree | 6cf499691f3d70a2a097da1d806d86322301974c /t | |
| parent | 55986d1758d7ae948c0bed1645ae49ca7103f96e (diff) | |
| download | isocheck-73301e163a277eae7fd8270cff2cf6277ac925a1.tar isocheck-73301e163a277eae7fd8270cff2cf6277ac925a1.tar.gz isocheck-73301e163a277eae7fd8270cff2cf6277ac925a1.tar.bz2 isocheck-73301e163a277eae7fd8270cff2cf6277ac925a1.tar.xz isocheck-73301e163a277eae7fd8270cff2cf6277ac925a1.zip | |
remove test for now, fix typo
Diffstat (limited to 't')
| -rw-r--r-- | t/001_check_file.t | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/t/001_check_file.t b/t/001_check_file.t index bd4a000..ce36df0 100644 --- a/t/001_check_file.t +++ b/t/001_check_file.t @@ -30,9 +30,6 @@ my %info; bail_on_fail; -note $image_path; -note $name; - %info = Tools::parse_mageia_iso_name($name); if (scalar %info) { pass 'ISO has valid filename.'; @@ -96,14 +93,18 @@ my %isoValues = ( "Volume id", "$info{name} $info{version} $info{release}", # TODO not defined for sure yet "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", "?", - "Application id", "http://code.mageia.org/bcd/", - "Copyright file id", "http://www.mageia.org/2/license/", - "Abstract file id", "http://www.mageia.org/2/" + "Data preparer id", "", # ? + "Copyright File id", "http://www.mageia.org/2/license/" + "Abstract File id", "http://www.mageia.org/2/" ); +my $testval; while (my ($k, $v) = each(%isoValues)) { - is `printf "%s\n" "$info" | grep -i "$k:"`, "$k: $v", "$k is correct."; + $testval = `printf "%s\n" "$isoinfo" | grep -i "$k:" |tr -d '\n'`; + + # not testing right now, all expected values are not sure yet. + # is $testval, "$k: $v", "$k is correct. Found $testval."; + note "Found: $testval - expecting: $k: $v"; } |