Permalink
Browse files

Fixed neutro paths in smoker.pl

  • Loading branch information...
1 parent 377aa3b commit 2a6c6f2ce15565b7ece06f454ec6799ff364de0a @tadzik committed Sep 12, 2010
Showing with 40 additions and 40 deletions.
  1. +40 −40 bin/smoker.pl
View
@@ -1,48 +1,48 @@
#!/usr/bin/env perl6
use v6;
-my @list = qqx[./neutro l].split("\n").grep({$_});
+my @list = qqx[neutro l].split("\n").grep({$_});
for @list -> $module {
- print "$module - ";
- my $result = qqx[./neutro i $module --strict --nocolor];
- my @lines = $result.split("\n").grep({$_});
- my $lastline = @lines[@lines.end];
- given $lastline {
- when /:s Tests failed for $module/ {
- say 'tests failed'
- }
- when /:s Tests failed/ {
- say 'tests failed for some dependencies'
- }
- when /:s Successfully installed $module/ {
- say 'ok'
- }
- when /:s No tests for $module/ {
- say 'no tests available'
- }
- when /:s Building $module failed/ {
- say 'building failed'
- }
- when /:s Building .+ failed/ {
- say 'building dependencies failed'
- }
- when /:s Configure.pl has failed for $module/ {
- say 'Configure.pl failed'
- }
- when /:s Configure.pl has failed/ {
- say 'building dependencies failed'
- }
- when /:s Installing $module failed/ {
- say 'installing failed'
- }
- when /:s Installing .+ failed/ {
- say 'installing dependencies failed'
- }
- default {
- say "Unknown result: '$lastline'"
- }
- }
+ print "$module - ";
+ my $result = qqx[neutro i $module --strict --nocolor];
+ my @lines = $result.split("\n").grep({$_});
+ my $lastline = @lines[@lines.end];
+ given $lastline {
+ when /:s Tests failed for $module/ {
+ say 'tests failed'
+ }
+ when /:s Tests failed/ {
+ say 'tests failed for some dependencies'
+ }
+ when /:s Successfully installed $module/ {
+ say 'ok'
+ }
+ when /:s No tests for $module/ {
+ say 'no tests available'
+ }
+ when /:s Building $module failed/ {
+ say 'building failed'
+ }
+ when /:s Building .+ failed/ {
+ say 'building dependencies failed'
+ }
+ when /:s Configure.pl has failed for $module/ {
+ say 'Configure.pl failed'
+ }
+ when /:s Configure.pl has failed/ {
+ say 'building dependencies failed'
+ }
+ when /:s Installing $module failed/ {
+ say 'installing failed'
+ }
+ when /:s Installing .+ failed/ {
+ say 'installing dependencies failed'
+ }
+ default {
+ say "Unknown result: '$lastline'"
+ }
+ }
}
# vim: ft=perl6

0 comments on commit 2a6c6f2

Please sign in to comment.