echo BOOT-OK-$?
echo ===ARCH===; dpkg --print-architecture; echo ARC=$?
echo ===COUNT===; dpkg -l | grep -c "^ii"; echo CRC=$?
echo ===QUERY===; dpkg-query -W -f=" \n" dpkg bzip2 xz 2>&1; echo QRC=$?
echo ===STATUS===; dpkg -s dpkg 2>&1 | grep -E "^(Package|Status|Architecture):"; echo SRC=$?
echo ===LISTHEAD===; dpkg -l 2>&1 | head -8
echo ===DONE===
sh /usr/bin/brintos-selftest dpkg
/usr/bin/brintos-selftest dpkg
sh /usr/bin/brintos-selftest dpkg
brintos-selftest dpkg
id
ls -ld /var/lib/dpkg
ls -la /var/lib/dpkg/lock 2>&1; touch /var/lib/dpkg/xx 2>&1 && echo WRITE-OK || echo WRITE-NO
mount | head -3
dpkg -l dpkg-selftest 2>&1 | tail -2
tar --version 2>&1 | head -1
ls -la /var/lib/dpkg/lock /var/lib/dpkg/lock-frontend 2>&1
: > /var/lib/dpkg/probe-w 2>&1 && echo TRUNC-W-OK || echo TRUNC-W-FAIL
sh -c 'exec 3<>/var/lib/dpkg/probe-rw' 2>&1 && echo RDWR-NEW-OK || echo RDWR-NEW-FAIL
sh -c 'exec 3<>/var/lib/dpkg/lock' 2>&1 && echo RDWR-LOCK-OK || echo RDWR-LOCK-FAIL
: > /var/lib/dpkg/lock 2>&1 && echo TRUNC-LOCK-OK || echo TRUNC-LOCK-FAIL
dpkg -i /usr/lib/brintos-tests/data/dpkg-selftest.deb 2>&1 | head -2
perl -MFcntl -e 'sysopen(my $f, "/var/lib/dpkg/lock", O_RDWR|O_CREAT|O_TRUNC, 0660) or die "FAIL: $!\n"; print "OPEN-OK\n"' 2>&1
perl -MFcntl -e 'sysopen(my $f, "/tmp/p1", O_RDWR|O_CREAT|O_TRUNC, 0660) or die "FAIL: $!\n"; print "TMP-OPEN-OK\n"' 2>&1
perl -MFcntl -e 'sysopen(my $f, "/var/lib/dpkg/lock", O_RDWR|O_CREAT, 0660) or die "OPENFAIL: $!\n"; my $s = pack("s s l l i", F_WRLCK, 0, 0, 0, 0); fcntl($f, F_SETLK, $s) or die "LOCKFAIL: $!\n"; print "LOCK-OK\n"' 2>&1
perl -e 'print "uid=$< euid=$>\n"' 2>&1
perl -MFcntl -e 'sysopen(F, q{/var/lib/dpkg/pA}, O_RDWR|O_CREAT|O_TRUNC, 0660) ? print(qq{A-OK\n}) : print(qq{A-FAIL $!\n})'
perl -MFcntl -e 'sysopen(F, q{/var/lib/dpkg/lock}, O_RDWR|O_CREAT, 0660) ? print(qq{B-OK\n}) : print(qq{B-FAIL $!\n})'
perl -MFcntl -e 'sysopen(F, q{/var/lib/dpkg/lock}, O_WRONLY|O_CREAT|O_TRUNC, 0660) ? print(qq{C-OK\n}) : print(qq{C-FAIL $!\n})'
perl -MFcntl -e 'sysopen(F, q{/var/lib/dpkg/lock}, O_RDWR|O_CREAT|O_TRUNC, 0660) ? print(qq{D-OK\n}) : print(qq{D-FAIL $!\n})'
perl -MFcntl -e 'sysopen(F, q{/var/lib/dpkg/lock}, O_RDWR|O_TRUNC, 0660) ? print(qq{E-OK\n}) : print(qq{E-FAIL $!\n})'
perl -MFcntl -e 'sysopen(F, q{/tmp/pF}, O_RDWR|O_CREAT|O_TRUNC, 0660) ? print(qq{F-OK\n}) : print(qq{F-FAIL $!\n})'
dpkg -i /usr/lib/brintos-tests/data/dpkg-selftest.deb 2>&1 | head -n 2
perl -MFcntl -e 'sysopen(F, q{/var/lib/dpkg/warm1}, O_RDWR|O_CREAT|O_TRUNC, 0660) ? print(qq{WARM-OK\n}) : print(qq{WARM-FAIL $!\n})'
dpkg -i /usr/lib/brintos-tests/data/dpkg-selftest.deb 2>&1 | head -n 2
dpkg -l dpkg-selftest 2>&1 | tail -n 1
brintos-selftest vfs