Return to fts3corrupt2.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/fts3corrupt2.test, revision 1.1.1.1

1.1       misho       1: # 2010 October 30
                      2: #
                      3: #    May you do good and not evil.
                      4: #    May you find forgiveness for yourself and forgive others.
                      5: #    May you share freely, never taking more than you give.
                      6: #
                      7: #***********************************************************************
                      8: # Test that the FTS3 extension does not crash when it encounters a
                      9: # corrupt data structure on disk.
                     10: #
                     11: 
                     12: set testdir [file dirname $argv0]
                     13: source $testdir/tester.tcl
                     14: 
                     15: # If SQLITE_ENABLE_FTS3 is not defined, omit this file.
                     16: ifcapable !fts3 { finish_test ; return }
                     17: 
                     18: set ::testprefix fts3corrupt2
                     19: 
                     20: set data [list]
                     21: lappend data {*}{
                     22:    "amxtvoo adqwroyhz auq aithtir avniqnuynvf axp ahibayfynig agbicpm"
                     23:    "ajdtebs anteaxr aieynenwmd awpl alo akxcrwow aoxftge aoqvgul"
                     24:    "amcfvdr auz apu aebelm ahuxyz aqc asyafdb agulvhvqu"
                     25:    "apepwfyz azkhdvkw aenyelxzbk aslnitbyet aycdsdcpgr aqzzdbc agfi axnypydou"
                     26:    "aaqrzzcm apcxdxo atumltzj aevvivo aodknoft aqoyytoz alobx apldt"
                     27:    "adjllxlhnmj aiuhvuj adwppceuht atvj azrsam ahkjqdhny audlqxr aotgcd"
                     28:    "aira azflsceos awj auzbobfkc awmezplr aeh awec ahndxlmv"
                     29:    "aydwnied alk auoap agihyqeix aymqxzajnl aydwnied aojkarx agbo"
                     30:    "ahajsmcl anvx amdhjm aoptsj agugzjjm apkevm acnj acjg"
                     31:    "amwtkw aogttbykvt aubwrfqnbjf ajow agsj aerkqzjdqst anenlvbalkn arfajzzgckx"
                     32:    "adqqqofkmz amjpavjuhw aqgehgnb awvvxlbtqzn agstqko akmkzehyh atagzey agwja"
                     33:    "amag ahe autkllywhr avnk atmt akn anvdh aixfrv"
                     34:    "aqdyerbws avefykly awl azaduojgzo anxfsmw axpt abgbvk ati"
                     35:    "attyqkwz aiweypiczul afy asitaqbczhh aitxisizpv auhviq aibql ajfqc"
                     36:    "aylzprtmta aiuemihqrpi awluvgsw ampbuy axlifpzfqr aems aoaxwads apianfn"
                     37:    "aodrkijelq acdb aaserrdxm aqyasgofqu aevvivo afi apmwu aeoqysl"
                     38:    "amqnk ankaotm ayfy ajcupeeoc advcbukan aucahlwnyk adbfyo azqjpeant"
                     39:    "afczpp asqrs ahslvda akhlf aiqgdp atyd aznuglxqbrg awirndrh"
                     40:    "aqhiajp amxeazb asxuehg akod axvolvsp agcz asmovmohy acmqa"
                     41:    "avvomv aafms ashuaec arevx audtq alrwqhjvao avgsgpg ajbrctpsel"
                     42:    "atxoirr ayopboobqdu ajunntua arh aernimxid aipljda aglo aefk"
                     43:    "aonxf acmnnkna abgviaswe aulvcbv axp apemgakpzo aibql acioaid"
                     44:    "axo alrwqhjvao ayqounftdzl azmoakdyh apajze ajk artvy apxiamy"
                     45:    "ayjafsraz addjj agsj asejtziqws acatvhegu aoxdjqblsvv aekdmmbs aaobe"
                     46:    "abjjvzubkwt alczv ati awz auyxgcxeb aymjoym anqoukprtyt atwfhpmbooh"
                     47:    "ajfqz aethlgir aclcx aowlyvetby aproqm afjlqtkv anebfy akzrcpfrrvw"
                     48:    "aoledfotm aiwlfm aeejlaej anz abgbvk aktfn aayoh anpywgdvgz"
                     49:    "acvmldguld asdvz aqb aeomsyzyu aggylhprbdz asrfkwz auipybpsn agsnszzfb"
                     50: }
                     51: 
                     52: do_test fts3corrupt2-1.0 {
                     53:   execsql BEGIN
                     54:   execsql { CREATE VIRTUAL TABLE t2 USING FTS3(a, b); }
                     55:   execsql { INSERT INTO t2(t2) VALUES('nodesize=32') }
                     56:   foreach d $data {
                     57:     execsql { INSERT INTO t2 VALUES($d, $d) }
                     58:   }
                     59:   execsql COMMIT
                     60:   execsql { SELECT count(*) FROM t2_segments }
                     61: } {163}
                     62: 
                     63: proc set_byte {blob byte val} {
                     64:   binary format a*ca*                         \
                     65:       [string range $blob 0 [expr $byte-1]]   \
                     66:       $val                                    \
                     67:       [string range $blob [expr $byte+1] end] \
                     68: }
                     69: 
                     70: set tn 0
                     71: set c 256
                     72: foreach {rowid sz blob} [
                     73:   db eval {SELECT rowid, length(block), block FROM t2_segments}
                     74: ] {
                     75:   incr tn
                     76:   set c [expr (($c+255)%256)]
                     77:   for {set i 0} {$i < $sz} {incr i} {
                     78:     set b2 [set_byte $blob $i $c]
                     79:     execsql { UPDATE t2_segments SET block = $b2 WHERE rowid = $rowid }
                     80:     do_test fts3corrupt2-1.$tn.$i {
                     81:       catchsql { SELECT * FROM t2 WHERE t2 MATCH 'a*' }
                     82:       set {} {}
                     83:     } {}
                     84:   }
                     85:   execsql { UPDATE t2_segments SET block = $blob WHERE rowid = $rowid }
                     86: }
                     87: 
                     88: foreach c {50 100 150 200 250} {
                     89:   foreach {rowid sz blob} [
                     90:     db eval {SELECT rowid, length(root), root FROM t2_segdir}
                     91:   ] {
                     92:     incr tn
                     93:     for {set i 0} {$i < $sz} {incr i} {
                     94:       set b2 [set_byte $blob $i $c]
                     95:       execsql { UPDATE t2_segdir SET root = $b2 WHERE rowid = $rowid }
                     96:       do_test fts3corrupt2-2.$c.$tn.$i {
                     97:         catchsql { SELECT * FROM t2 WHERE t2 MATCH 'a*' }
                     98:         set {} {}
                     99:       } {}
                    100:     }
                    101:     execsql { UPDATE t2_segdir SET root = $blob WHERE rowid = $rowid }
                    102:   }
                    103: }
                    104: 
                    105: 
                    106: 
                    107: 
                    108: 
                    109: 
                    110: finish_test