README

   1 dnf install fedora-repos-rawhide mock /usr/bin/parallel /usr/bin/readelf nosync.{x86_64,i686} /usr/bin/iostat gdb git /usr/bin/llvm-readelf
   2 echo 99|extendtesttime.sh
   3 setenforce 0
   4 swapoff -a
   5 echo "config_opts['nosync'] = True" >>/etc/mock/site-defaults.cfg
   6 echo "config_opts['nosync_force'] = True" >>/etc/mock/site-defaults.cfg
   7 usermod -a -G mock test
   8 cp -a ~/.ssh/ ~test/;chown -R test.test ~test/.ssh
   9 dnf '--disablerepo=*' --enablerepo=rawhide-source repoquery -a --arch src
  10 df -h /home/test/ /var/lib/mock/
  11 mv /var/lib/mock/ /home/;ln -s ../../home/mock /var/lib/mock;ls -ld /var/lib/mock/;df -h /var/lib/mock/
  12 passwd
  13 passwd test
  14 scp -p run* stat debuginfosize test@
  15 vim run
  16
  17
  18 Failed to register machine: Connection timed out || Failed to register machine: File exists
  19 https://bugzilla.redhat.com/show_bug.cgi?id=1866545
  20 for q in $(for i in *.{,bs}mockfail;do j=$(basename $(basename $i .mockfail) .bsmockfail);if egrep -q 'Failed to download metadata for repo|Failed to register machine: Connection timed out|Cannot download .*: All mirrors were tried|Failed to register machine: File exists' $j.mocklog $j.d/resultdir/*.log 2>/dev/null;then k=$(basename $j .dt.rpm);k=$(basename $k .dt5.rpm);basename $k .src.rpm;fi;done);do mv -i ${q}* ../mockfail/;done
  21
  22
  23 # DWZ vs. DT5 stddev:
  24 (cd build;find *src.rpm.dt5.rpm.rpms/ -type f -name "*.rpm" -printf "%p %s\n"|sed 's/.src.rpm.dt5.rpm/.src.rpm/'|sort >../rpmsizes-dt5)
  25 (cd build;find *src.rpm.rpms/         -type f -name "*.rpm" -printf "%p %s\n"                                   |sort >../rpmsizes-dwz)
  26 perl -e 'open F,"rpmsizes-dt5" or die;while (<F>) { m{^([^/]*)/} or die $_; $a{$1}=1; };close F;open F,"rpmsizes-dwz" or die;while (<F>) { m{^([^/]*)/} or die $_; next if !$a{$1}; print; } close F;' >rpmsizes-dwz-havingdt5
  27 # diff -u <(sed 's/ .*//' <rpmsizes-dwz-havingdt5) <(sed 's/ .*//' <rpmsizes-dt5)|less # OK as some /usr/lib/debug/.dwz/ are the only file of base *-debuginfo.rpm
  28 perl -lne 'm{^([^/]*)/[^/]* (\d+)$} or die;$p{$1}+=$2;END{for (sort keys %p){print $p{$_}}}' <rpmsizes-dwz-havingdt5 >rpmsizes-dwz-havingdt5.sum
  29 perl -lne 'm{^([^/]*)/[^/]* (\d+)$} or die;$p{$1}+=$2;END{for (sort keys %p){print $p{$_}}}' <rpmsizes-dt5           >rpmsizes-dt5.sum
  30 wc -l rpmsizes-dwz-havingdt5.sum rpmsizes-dt5.sum
  31 perl -MList::Util -MStatistics::Basic::StdDev -MData::Dumper -le 'sub r($){my($fn)=@_;open F,$fn or die;my @R;while (<F>) { /^(\d+)\n$/ or die $_; push @R,$1; } close F;return @R;}my @A=r "rpmsizes-dwz-havingdt5.sum";my @B=r "rpmsizes-dt5.sum";die if @A!=@B;my @C;for my $i (0..$#A) { my $C=$A[$i]/$B[$i];push @C,$C; } print "sum/sum=".(1-List::Util::sum(@A)/List::Util::sum(@B));print "avg(ratio)=".(1-List::Util::sum(@C)/@C);print "stddev=".Statistics::Basic::stddev(\@C);print Dumper \@C;'|less