Return to verify CVS log

Up to [Research Unix] / researchv10no / cmd / cbt

Annotation of researchv10no/cmd/cbt/verify, revision 1.1.1.1

1.1       root        1: export PATH
                      2: x=$1
                      3: if test $# = 0
                      4: then
                      5:        echo verify rec-cnt
                      6:        exit 1
                      7: fi
                      8: echo 1. loading a btree with $x empty records
                      9: cbt creat junk
                     10: awk '{for(i = 0; i < $1; i++) printf "%8.8d\n", i}' <<! | cbt build junk
                     11: $x
                     12: !
                     13: echo 1. does report think there are $x records
                     14: cbt report junk
                     15: echo 2. check them with cat, it will report errors
                     16: cbt cat junk | awk 'length != 9 || $0+0 != NR-1 {print length, $0+0, NR, "bad"}'
                     17: echo 2. end of load test
                     18: echo 3. delete all the records
                     19: awk '{for(i = 0; i < $1; i++) printf "%8.8d\n", i}' <<!| cbt delete junk
                     20: $x
                     21: !
                     22: echo 3. report should think they are all gone
                     23: cbt report junk
                     24: echo 4. cat should too
                     25: cbt cat junk | awk '{next}; END {print NR " records"}'
                     26: echo 4. there should be no records left
                     27: echo
                     28: echo 5. now load them back one at a time in different order
                     29: echo $x | awk '{for(i = $1; --i >= 0; ) printf "%8.8d\n", i}' |
                     30:        cbt add junk
                     31: echo 5. report should think there are $x records
                     32: cbt report junk
                     33: echo 6. cat should think so too
                     34: cbt cat junk | awk 'length != 9 || $0+0 != NR-1 {print length, $0+0, NR, "bad"}
                     35:        END {print NR " records"}'
                     36: echo 6. there should have been no bad records
                     37: echo
                     38: echo 7. now throw every other one away
                     39: awk '{for(i = 0; i < $1; i+=2) printf "%8.8d\n", i}' <<! | cbt delete junk
                     40: $x
                     41: !
                     42: echo 7. report should think they are gone
                     43: cbt report junk
                     44: echo 8. cat should too
                     45: cbt cat junk | awk '{next}; END {print NR " records"}'
                     46: echo 8. there should be half the records left
                     47: echo
                     48: echo 9. now squash the file
                     49: cbt squash junk
                     50: echo 9. report says
                     51: cbt report junk
                     52: echo 10. and can cat find them all:
                     53: cbt cat junk | awk 'length != 9 || $0+0 != 2*NR-1 {print length, $0+0, NR, "bad"}
                     54:        END {print NR " records"}'
                     55: echo 10. there should be half the records left
                     56: echo
                     57: echo 11. now put the other half back
                     58: echo $x | awk '{for(i = 0; i < $1; i+=2) printf "%8.8d\n", i}' |
                     59:        cbt add junk
                     60: echo 11. report should see $x records
                     61: cbt report junk
                     62: echo 12. so should cat
                     63: cbt cat junk | awk 'length != 9 || $0+0 != NR-1 {print length, $0+0, NR, "bad"}
                     64:        END {print NR " records"}'
                     65: echo 13. and they should all be there after squashing
                     66: cbt squash junk
                     67: echo 13. report should see $x records
                     68: cbt report junk
                     69: echo 14. so should cat
                     70: cbt cat junk | awk 'length != 9 || $0+0 != NR-1 {print length, $0+0, NR, "bad"}
                     71:        END {print NR " records"}'
                     72: echo and that is all I could think of doing

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.