diagnose: diagnostics for task views

also filter out SystemRequirement fails; this shows whether there are
still some C header and other failures attributable to things other than
declared SystemRequirements (short answer: there are, annoyingly).

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@42 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/trunk/diagnose b/pkg/trunk/diagnose
index 979e04c9d07371f8c017579b4d6a3a86470eeed6..5f303e79467c76bfa41e9fa8f54bc4369e1e11e7 100755 (executable)
--- a/pkg/trunk/diagnose
+++ b/pkg/trunk/diagnose
@@ -1,21 +1,23 @@
 #!/usr/bin/rc
 
-success=`{ls var/results/*.deb | wc -l}
-echo $success successful packages
-total=$success
+#success=`{ls var/results/*.deb | wc -l}
+#echo $success successful packages
+#total=$success
+total=0
 
 fn count_dup { sort | uniq -c | sort -n}# | awk '$1 > 1{print}' }
 fn collapse { a=`{echo $^* | sed -e 's/ | /|/g'}; echo $^a }
 echo 'warnings:'
-{for (x in warn/*) cut -d: -f3- <$x | sort -u} | awk '{print $1}' | count_dup
+{for (x in (warn/* /dev/null)) cut -d: -f3- <$x | sort -u} | awk '{print $1}' | count_dup
 echo
 
 faildep=('^Error: package ''.*'' could not be loaded'
      '|' '^ERROR: lazy loading failed for package ''.*'''
-     '|' '^[[:space:]]*package .* is not available')
+     '|' '^[[:space:]]*package .* is not available'
+     '|' 'there is no package called ''.*''')
+faildeb='Unsupported SystemRequirements:'
 faillic=('No acceptable license: ')
 failspc=': No space left on device'
-failbdl='TODO: bundles'
 failhdr='error: .*\.hp?p?: No such file or directory'
 faildep=`{collapse $faildep}
 faildep=$^faildep
@@ -23,46 +25,48 @@ faillic=`{collapse $faillic}
 faillic=$^faillic
 other=''
 
-nfaildep=`{grep -El $faildep fail/* | wc -l}
+nfaildep=`{grep -El $faildep fail/* /dev/null | wc -l}
 echo $nfaildep failed R dependencies.
 grep -Eh $faildep fail/* | count_dup
 other=$faildep
-total=$total+$nfaildep
+#total=$total+$nfaildep
 echo
 
-nfaillic=`{grep -El $faillic `{grep -EL $other fail/*} | wc -l}
+nfaillic=`{grep -El $faillic `{grep -EL $other fail/*} /dev/null | wc -l}
 echo $nfaillic failed licenses.
 grep -Eh $faillic `{grep -EL $other fail/*} | count_dup
 other=$other^'|'^$faillic
 total=$total+$nfaillic
 echo
 
-nfailspc=`{grep -El $failspc `{grep -EL $other fail/*} | wc -l}
+nfailspc=`{grep -El $failspc `{grep -EL $other fail/*} /dev/null | wc -l}
 echo $nfailspc out of space
 other=$other^'|'^$failspc
 total=$total+$nfailspc
 echo
 
-nfailbdl=`{grep -El $failbdl `{grep -EL $other fail/*} | wc -l}
-echo $nfailbdl bundles
-other=$other^'|'^$failbdl
-total=$total+$nfailbdl
-echo
-
-nfailhdr=`{grep -El $failhdr `{grep -EL $other fail/*} | wc -l}
+nfailhdr=`{grep -El $failhdr `{grep -EL $other fail/*} /dev/null | wc -l}
 echo $nfailhdr missing C header
+grep -Eh $failhdr `{grep -EL $other fail/* /dev/null} | count_dup
 other=$other^'|'^$failhdr
 total=$total+$nfailhdr
 echo
 
-nfailother=`{grep -EL $other fail/* | wc -l}
+nfaildeb=`{grep -El $faildeb `{grep -EL $other fail/*} /dev/null | wc -l}
+echo $nfaildeb system requirement failures.
+grep -Eh $faildeb `{grep -EL $other fail/* /dev/null} | count_dup
+other=$other^'|'^$faildeb
+total=$total+$nfaildeb
+echo
+
+nfailother=`{hoc -e `{grep -EL $other fail/* /dev/null | wc -l}^-1}
 echo $nfailother other failures.
-grep -EL $other fail/*  | xargs tail -n 50
 
-total=`{hoc -e $total}
-succrate=`{hoc -e $success/'('$total')*100'}
-echo $succrate% success rate '('$total' total)'
-total=`{hoc -e $total-$nfaillic-$nfailspc-$nfailbdl-$nfailhdr}
-succrate=`{hoc -e $success/'('$total')*100'}
-echo $succrate% success rate without licensing, space, Debian deps and bundle issues '('$total' total)'
+#total=`{hoc -e $total}
+#succrate=`{hoc -e $success/'('$total')*100'}
+#echo $succrate% success rate '('$total' total)'
+#total=`{hoc -e $total-$nfaillic-$nfailspc-$nfailhdr}
+#succrate=`{hoc -e $success/'('$total')*100'}
+#echo $succrate% success rate without licensing, space and Debian deps issues '('$total' total)'
+grep -EL $other fail/* /dev/null | xargs tail -n 20
 

diff --git a/pkg/trunk/diagnose_ctv b/pkg/trunk/diagnose_ctv
new file mode 100755 (executable)
index 0000000..665ff8c
--- /dev/null
+++ b/pkg/trunk/diagnose_ctv
@@ -0,0 +1,2 @@
+#!/usr/bin/env rc
+{for (x in ctv/*) {echo;echo;echo $x: ; cd $x && ../../diagnose && cd ../..}} >ctv.results