From 73301e163a277eae7fd8270cff2cf6277ac925a1 Mon Sep 17 00:00:00 2001 From: Romain d'Alverny Date: Sat, 10 Dec 2011 17:27:16 +0000 Subject: remove test for now, fix typo --- t/001_check_file.t | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 't') 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"; } -- cgit v1.2.1