porting/manifest.t now tests that all files listed in MANIFEST are present.
Nicholas Clark [Sun, 11 Oct 2009 17:56:01 +0000 (18:56 +0100)]
t/porting/manifest.t

index 377f666..97d320b 100644 (file)
@@ -23,6 +23,8 @@ while (<$m>) {
     next unless /\s/;   # Ignore lines without whitespace (i.e., filename only)
     my ($file, $separator) = /^(\S+)(\s+)/;
     isnt($file, undef, "Line $. doesn't start with a blank") or next;
+    # Remember, we're running from t/
+    ok(-f "../$file", "File $file exists");
     if ($separator !~ tr/\t//c) {
        # It's all tabs
        next;