| Subject: | Should ignore bogus directives in header |
$ cat ~/tmp/fart.t
#!/usr/bin/perl -w
print <<'END';
1..0 # FART foo reason
END
$ prove ~/tmp/fart.t
/Users/schwern/tmp/fart......skipped: FART foo reason
Files=1, Tests=0, 0 wallclock secs ( 0.01 usr + 0.00 sys = 0.01 CPU)
Result: NOTESTS
"# FART foo reason" is a directive called "FART" with the argument "foo
reason". Bogus directives in the header should be ignored, just like
bogus directives on a test.
So the above should be a skip all with no reason.