compused has asked for the wisdom of the Perl Monks concerning the following question:
Could a wise monk advise if I need to worry about these two solitary 'make test' errors? Its a linux busybox NAS platform
1. First one:
./perl harness ./porting/manifest.t ..# Test that MANIFEST uses tabs - not spaces - after the name of the fi +le. while (<$m>) { chomp; unless( /\s/ ) { push @files, $_; # no need for further tests on lines without whitespace (i.e., + filename only) next; } my ($file, $separator) = /^(\S+)(\s+)/; push @files, $file; isnt($file, undef, "Line $. doesn't start with a blank") or next; # Remember, we're running from t/ ok(-f "../$file", "File $file exists");
2. Second one
./perl harness ./op/magic.tThanks to anyone with the wisdom!SKIP: { skip("\$0 check only on Linux and FreeBSD", 2) unless $^O =~ /^(linux|freebsd)$/ && open CMDLINE, "/proc/$$/cmdline"; chomp(my $line = scalar <CMDLINE>); my $me = (split /\0/, $line)[0]; is $me, $0, 'altering $0 is effective (testing with /proc/)'; close CMDLINE; # perlbug #22811 my $mydollarzero = sub { my($arg) = shift; $0 = $arg if defined $arg; # In FreeBSD the ps -o command= will cause # an empty header line, grab only the last line. my $ps = (`ps -o command= -p $$`)[-1]; return if $?; chomp $ps; printf "# 0[%s]ps[%s]\n", $0, $ps; $ps; }; my $ps = $mydollarzero->("x"); ok(!$ps # we allow that something goes wrong with the ps +command
update
I have fixed the magic.t problem via pointing to a newer ps busybox command
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: "make test" errors
by davido (Cardinal) on Feb 11, 2012 at 17:38 UTC | |
by compused (Acolyte) on Feb 12, 2012 at 14:48 UTC | |
| A reply falls below the community's threshold of quality. You may see it by logging in. |