[Pancutan-commits] r75 - in pancutan: . debian defs tests/lib/Pancutan/Test

[tincho-guest at alioth.debian.org]

Author: tincho-guest
Date: 2007-08-20 18:47:32 +0000 (Mon, 20 Aug 2007)
New Revision: 75

Added:
   pancutan/TODO
Modified:
   pancutan/MANIFEST
   pancutan/debian/changelog
   pancutan/defs/Booting.yaml
   pancutan/pancutan
   pancutan/tests/lib/Pancutan/Test/Booting.pm
Log:
Added TODO, fixed wrong output to stderr, added missing check for bootability.



Modified: pancutan/MANIFEST
===================================================================
--- pancutan/MANIFEST	2007-08-20 18:15:56 UTC (rev 74)
+++ pancutan/MANIFEST	2007-08-20 18:47:32 UTC (rev 75)
@@ -21,3 +21,4 @@
 tests/Makefile.PL
 README
 COPYING
+TODO

Added: pancutan/TODO
===================================================================
--- pancutan/TODO	                        (rev 0)
+++ pancutan/TODO	2007-08-20 18:47:32 UTC (rev 75)
@@ -0,0 +1,12 @@
+What's missing, but planned:
+
+ * Presence of optional tools (W)
+ * Presence of documentation
+ * {md5,sha1,sha256}sum check of packages
+ * matching of checksums from packages and mirror (if available)
+ * consistency check of cd repository
+ * consistency check of base_instalable, cd_type, and available packages
+ * presence check of essential d-i packages (black magic)
+ * kernel ABI matching in vmlinuz image, udebs and initrd.
+ * check kernel from cd and mirror versions match
+ * check preseeding in simple-cdd if possible (needs research)

Modified: pancutan/debian/changelog
===================================================================
--- pancutan/debian/changelog	2007-08-20 18:15:56 UTC (rev 74)
+++ pancutan/debian/changelog	2007-08-20 18:47:32 UTC (rev 75)
@@ -5,8 +5,9 @@
   * Support for running without any privilege, inside user-mode-linux.
   * More documentation added.
   * Properly added copyright notices to source.
+  * Test diagnostics now go to stdout.
 
- -- Martín Ferrari <martin.ferrari at gmail.com>  Mon, 20 Aug 2007 18:08:32 +0100
+ -- Martín Ferrari <martin.ferrari at gmail.com>  Mon, 20 Aug 2007 19:47:18 +0100
 
 pancutan (0.2) unstable; urgency=low
 

Modified: pancutan/defs/Booting.yaml
===================================================================
--- pancutan/defs/Booting.yaml	2007-08-20 18:15:56 UTC (rev 74)
+++ pancutan/defs/Booting.yaml	2007-08-20 18:47:32 UTC (rev 75)
@@ -56,6 +56,9 @@
       - detect_alpha_boot
 #    desc: Scans the image for boot loaders (isolinux, yaboot, etc)
 errors:
+  can-not-boot:
+    type: error
+    desc: No method of booting this image was found
   unknown-boot:
     type: warn
     desc: The bootable image cannot be mapped to a file

Modified: pancutan/pancutan
===================================================================
--- pancutan/pancutan	2007-08-20 18:15:56 UTC (rev 74)
+++ pancutan/pancutan	2007-08-20 18:47:32 UTC (rev 75)
@@ -96,9 +96,9 @@
             my $errord = $errors->{$error};
             die("Invalid error returned from task ", $rnode->{task}{name},
                 ": $error\n") unless($errord);
-            printf STDERR ("%s: %s; %s\n - %s\n", $error_t{$errord->{type}}[0],
+            printf("%s: %s; %s\n - %s\n", $error_t{$errord->{type}}[0],
                 $file, $error, $errord->{desc});
-            printf STDERR " + %s\n", $extended if($extended);
+            printf " + %s\n", $extended if($extended);
             $ecode |= $error_t{$errord->{type}}[1];
             exit $ecode if($errord->{type} eq "fatal" and
                 not $CONFIG{continue_on_fatal});

Modified: pancutan/tests/lib/Pancutan/Test/Booting.pm
===================================================================
--- pancutan/tests/lib/Pancutan/Test/Booting.pm	2007-08-20 18:15:56 UTC (rev 74)
+++ pancutan/tests/lib/Pancutan/Test/Booting.pm	2007-08-20 18:47:32 UTC (rev 75)
@@ -950,6 +950,9 @@
         info("Detected booting path, kernel: $bootpair{$_}[0]" .
             ($bootpair{$_}[1] ? ", initrd: " . $bootpair{$_}[1] : ""));
     }
+    unless(keys %bootpair) {
+        push(@res, "can-not-boot", "");
+    }
     return @res;
 }
 sub _myread {