1# 2008 June 21 2# 3# The author disclaims copyright to this source code. In place of 4# a legal notice, here is a blessing: 5# 6# May you do good and not evil. 7# May you find forgiveness for yourself and forgive others. 8# May you share freely, never taking more than you give. 9# 10#*********************************************************************** 11# 12# $Id: permutations.test,v 1.49 2009/04/10 18:32:29 danielk1977 Exp $ 13 14set testdir [file dirname $argv0] 15source $testdir/tester.tcl 16 17# Argument processing. 18# 19#puts "PERM-DEBUG: argv=$argv" 20namespace eval ::perm { 21 variable testmode [lindex $::argv 0] 22 variable testfile [lindex $::argv 1] 23} 24set argv [lrange $argv 2 end] 25#puts "PERM-DEBUG: testmode=$::perm::testmode tstfile=$::perm::testfile" 26 27set ::permutations_presql "" 28set ::permutations_test_prefix "" 29 30if {$::perm::testmode eq "veryquick"} { 31 set ::perm::testmode [list persistent_journal no_journal] 32 set ISQUICK 1 33} 34if {$::perm::testmode eq "quick"} { 35 set ::perm::testmode [list persistent_journal no_journal autovacuum_ioerr] 36 set ISQUICK 1 37} 38if {$::perm::testmode eq "all" || $::perm::testmode eq ""} { 39 set ::perm::testmode { 40 memsubsys1 memsubsys2 singlethread multithread onefile utf16 exclusive 41 persistent_journal persistent_journal_error no_journal no_journal_error 42 autovacuum_ioerr no_mutex_try fullmutex journaltest inmemory_journal 43 pcache0 pcache10 pcache50 pcache90 pcache100 44 } 45} 46if {$::perm::testmode eq "targets"} { 47 puts "" 48 puts -nonewline "veryquick " 49 puts "Same as persistent_journal and no_journal" 50 puts -nonewline "quick " 51 puts "Same as persistent_journal, no_journal and autovacuum_ioerr" 52 puts -nonewline "all " 53 puts "Everything except autovacuum_crash" 54} 55#puts "PERM-DEBUG: testmode=$::perm::testmode" 56 57set EXCLUDE { 58 all.test in2.test onefile.test 59 async2.test incrvacuum_ioerr.test permutations.test 60 async.test jrnlmode2.test quick.test 61 autovacuum_crash.test jrnlmode3.test shared_err.test 62 autovacuum_ioerr.test jrnlmode4.test soak.test 63 btree8.test loadext.test speed1p.test 64 corrupt.test malloc2.test speed1.test 65 crash2.test malloc3.test speed2.test 66 crash3.test malloc4.test speed3.test 67 crash4.test mallocAll.test speed4p.test 68 crash6.test malloc.test speed4.test 69 crash7.test memleak.test sqllimits1.test 70 crash.test memsubsys1.test thread001.test 71 exclusive3.test memsubsys2.test thread002.test 72 fts3.test misc7.test utf16.test 73 fuzz_malloc.test misuse.test veryquick.test 74 fuzz.test mutex2.test vtab_err.test 75 lookaside.test fuzz3.test savepoint4.test 76 savepoint6.test 77} 78set ALLTESTS [list] 79foreach filename [glob $testdir/*.test] { 80 set filename [file tail $filename] 81 if {[lsearch $EXCLUDE $filename] < 0} { lappend ALLTESTS $filename } 82} 83set ALLTESTS [lsort $ALLTESTS] 84 85rename finish_test really_finish_test2 86proc finish_test {} {} 87 88rename do_test really_do_test 89 90proc do_test {name args} { 91 eval really_do_test [list "perm-$::permutations_test_prefix.$name"] $args 92} 93 94# Overload the [sqlite3] command 95rename sqlite3 really_sqlite3 96proc sqlite3 {args} { 97 set r [eval really_sqlite3 $args] 98 if { [llength $args] == 2 && $::permutations_presql ne "" } { 99 [lindex $args 0] eval $::permutations_presql 100 } 101 set r 102} 103 104# run_tests OPTIONS 105# 106# where available options are: 107# 108# -initialize SCRIPT (default "") 109# -shutdown SCRIPT (default "") 110# -include LIST-OF-FILES (default $::ALLTESTS) 111# -exclude LIST-OF-FILES (default "") 112# -presql SQL (default "") 113# -description TITLE (default "") 114# 115proc run_tests {name args} { 116 set ::permutations_test_prefix $name 117 set options(-shutdown) "" 118 set options(-initialize) "" 119 set options(-exclude) "" 120 set options(-include) $::ALLTESTS 121 set options(-presql) "" 122 set options(-description) "no description supplied (fixme)" 123 array set options $args 124 #puts "PERM-DEBUG: name=$name testfile=$::perm::testfile" 125 #puts "PERM-DEBUG: [array get options]" 126 127 if {$::perm::testmode eq "targets"} { 128 puts [format "% -20s %s" $name [string trim $options(-description)]] 129 return 130 } 131 if {$::perm::testmode ne "" && [lsearch $::perm::testmode $name]<0} { 132 puts "skipping permutation test $name..." 133 return 134 } 135 136 uplevel $options(-initialize) 137 set ::permutations_presql $options(-presql) 138 139 foreach file [lsort $options(-include)] { 140 if {[lsearch $options(-exclude) $file] < 0 && 141 ( $::perm::testfile eq "" || 142 $::perm::testfile eq $file || 143 "$::perm::testfile.test" eq $file ) 144 } { 145 set ::perm::shared_cache_setting [shared_cache_setting] 146 uplevel source $::testdir/$file 147 if {$::perm::shared_cache_setting ne [shared_cache_setting]} { 148 error "File $::testdir/$file changed the shared cache setting from $::perm::shared_cache_setting to [shared_cache_setting]" 149 } 150 } else { 151 # puts "skipping file $file" 152 } 153 } 154 155 uplevel $options(-shutdown) 156 set ::permutations_test_prefix "" 157} 158 159proc shared_cache_setting {} { 160 set ret 0 161 catch { 162 set ret [sqlite3_enable_shared_cache] 163 } 164 return $ret 165} 166 167############################################################################# 168# Start of tests 169 170# Run some tests using pre-allocated page and scratch blocks. 171# 172run_tests "memsubsys1" -description { 173 Tests using pre-allocated page and scratch blocks 174} -exclude { 175 ioerr5.test 176 malloc5.test 177} -initialize { 178 catch {db close} 179 sqlite3_shutdown 180 sqlite3_config_pagecache 4096 24 181 sqlite3_config_scratch 25000 1 182 sqlite3_initialize 183 autoinstall_test_functions 184} -shutdown { 185 catch {db close} 186 sqlite3_shutdown 187 sqlite3_config_pagecache 0 0 188 sqlite3_config_scratch 0 0 189 sqlite3_initialize 190 autoinstall_test_functions 191} 192 193# Run some tests using pre-allocated page and scratch blocks. This time 194# the allocations are too small to use in most cases. 195# 196# Both ioerr5.test and malloc5.test are excluded because they test the 197# sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality. 198# This functionality is disabled if a pre-allocated page block is provided. 199# 200run_tests "memsubsys2" -description { 201 Tests using small pre-allocated page and scratch blocks 202} -exclude { 203 ioerr5.test 204 malloc5.test 205} -initialize { 206 catch {db close} 207 sqlite3_shutdown 208 sqlite3_config_pagecache 512 5 209 sqlite3_config_scratch 1000 1 210 sqlite3_initialize 211 autoinstall_test_functions 212} -shutdown { 213 catch {db close} 214 sqlite3_shutdown 215 sqlite3_config_pagecache 0 0 216 sqlite3_config_scratch 0 0 217 sqlite3_initialize 218 autoinstall_test_functions 219} 220 221# Run all tests with the lookaside allocator disabled. 222# 223run_tests "nolookaside" -description { 224 OOM tests with lookaside disabled 225} -initialize { 226 catch {db close} 227 sqlite3_shutdown 228 sqlite3_config_lookaside 0 0 229 sqlite3_initialize 230 autoinstall_test_functions 231} -shutdown { 232 catch {db close} 233 sqlite3_shutdown 234 sqlite3_config_lookaside 100 500 235 sqlite3_initialize 236 autoinstall_test_functions 237} 238 239# Run some tests in SQLITE_CONFIG_SINGLETHREAD mode. 240# 241run_tests "singlethread" -description { 242 Tests run in SQLITE_CONFIG_SINGLETHREAD mode 243} -initialize { 244 catch {db close} 245 sqlite3_shutdown 246 catch {sqlite3_config singlethread} 247 sqlite3_initialize 248 autoinstall_test_functions 249} -include { 250 delete.test delete2.test insert.test rollback.test select1.test 251 select2.test trans.test update.test vacuum.test types.test 252 types2.test types3.test 253} -shutdown { 254 catch {db close} 255 sqlite3_shutdown 256 catch {sqlite3_config serialized} 257 sqlite3_initialize 258 autoinstall_test_functions 259} 260 261run_tests "nomutex" -description { 262 Tests run with the SQLITE_OPEN_MULTITHREADED flag passed to sqlite3_open(). 263} -initialize { 264 rename sqlite3 sqlite3_nomutex 265 proc sqlite3 {args} { 266 if {[string range [lindex $args 0] 0 0] ne "-"} { 267 lappend args -fullmutex 0 -nomutex 1 268 } 269 uplevel [concat sqlite3_nomutex $args] 270 } 271} -include { 272 delete.test delete2.test insert.test rollback.test select1.test 273 select2.test trans.test update.test vacuum.test types.test 274 types2.test types3.test 275} -shutdown { 276 rename sqlite3 {} 277 rename sqlite3_nomutex sqlite3 278} 279 280# Run some tests in SQLITE_CONFIG_MULTITHREAD mode. 281# 282run_tests "multithread" -description { 283 Tests run in SQLITE_CONFIG_MULTITHREAD mode 284} -initialize { 285 catch {db close} 286 sqlite3_shutdown 287 catch {sqlite3_config multithread} 288 sqlite3_initialize 289 autoinstall_test_functions 290} -include { 291 delete.test delete2.test insert.test rollback.test select1.test 292 select2.test trans.test update.test vacuum.test types.test 293 types2.test types3.test 294} -shutdown { 295 catch {db close} 296 sqlite3_shutdown 297 catch {sqlite3_config serialized} 298 sqlite3_initialize 299 autoinstall_test_functions 300} 301 302# Run some tests in SQLITE_OPEN_FULLMUTEX mode. 303# 304run_tests "fullmutex" -description { 305 Tests run in SQLITE_OPEN_FULLMUTEX mode 306} -initialize { 307 rename sqlite3 sqlite3_fullmutex 308 proc sqlite3 {args} { 309 if {[string range [lindex $args 0] 0 0] ne "-"} { 310 lappend args -nomutex 0 -fullmutex 1 311 } 312 uplevel [concat sqlite3_fullmutex $args] 313 } 314} -include { 315 delete.test delete2.test insert.test rollback.test select1.test 316 select2.test trans.test update.test vacuum.test types.test 317 types2.test types3.test 318} -shutdown { 319 rename sqlite3 {} 320 rename sqlite3_fullmutex sqlite3 321} 322 323# Run some tests using the "onefile" demo. 324# 325run_tests "onefile" -description { 326 Run some tests using the "test_onefile.c" demo 327} -initialize { 328 rename sqlite3 sqlite3_onefile 329 proc sqlite3 {args} { 330 if {[string range [lindex $args 0] 0 0] ne "-"} { 331 lappend args -vfs fs 332 } 333 uplevel [concat sqlite3_onefile $args] 334 } 335} -include { 336 conflict.test insert.test insert2.test insert3.test 337 rollback.test select1.test select2.test select3.test 338} -shutdown { 339 rename sqlite3 {} 340 rename sqlite3_onefile sqlite3 341} 342 343# Run some tests using UTF-16 databases. 344# 345run_tests "utf16" -description { 346 Run tests using UTF-16 databases 347} -presql { 348 pragma encoding = 'UTF-16' 349} -include { 350 alter.test alter3.test 351 auth.test bind.test blob.test capi2.test capi3.test collate1.test 352 collate2.test collate3.test collate4.test collate5.test collate6.test 353 conflict.test date.test delete.test expr.test fkey1.test func.test 354 hook.test index.test insert2.test insert.test interrupt.test in.test 355 intpkey.test ioerr.test join2.test join.test lastinsert.test 356 laststmtchanges.test limit.test lock2.test lock.test main.test 357 memdb.test minmax.test misc1.test misc2.test misc3.test notnull.test 358 null.test progress.test quote.test rowid.test select1.test select2.test 359 select3.test select4.test select5.test select6.test sort.test 360 subselect.test tableapi.test table.test temptable.test 361 trace.test trigger1.test trigger2.test trigger3.test 362 trigger4.test types2.test types.test unique.test update.test 363 vacuum.test view.test where.test 364} 365 366# Run some tests in exclusive locking mode. 367# 368run_tests "exclusive" -description { 369 Run tests in exclusive locking mode. 370} -presql { 371 pragma locking_mode = 'exclusive' 372} -include { 373 rollback.test select1.test select2.test 374 malloc.test ioerr.test 375} 376 377# Run some tests in exclusive locking mode with truncated journals. 378# 379run_tests "exclusive-truncate" -description { 380 Run tests in exclusive locking mode and truncate journal mode. 381} -presql { 382 pragma locking_mode = 'exclusive'; 383 pragma journal_mode = TRUNCATE; 384} -include { 385 delete.test delete2.test insert.test rollback.test select1.test 386 select2.test update.test malloc.test ioerr.test 387} 388 389# Run some tests in persistent journal mode. 390# 391run_tests "persistent_journal" -description { 392 Run tests in persistent-journal mode. 393} -presql { 394 pragma journal_mode = persist 395} -include { 396 delete.test delete2.test insert.test rollback.test select1.test 397 select2.test trans.test update.test vacuum.test 398} 399 400# Run some tests in truncating journal mode. 401# 402run_tests "truncate_journal" -description { 403 Run tests in persistent-journal mode. 404} -presql { 405 pragma journal_mode = truncate 406} -include { 407 delete.test delete2.test insert.test rollback.test select1.test 408 select2.test trans.test update.test vacuum.test 409 malloc.test ioerr.test 410} 411 412# Run some error tests in persistent journal mode. 413# 414run_tests "persistent_journal_error" -description { 415 Run malloc.test and ioerr.test in persistent-journal mode. 416} -presql { 417 pragma journal_mode = persist 418} -include { 419 malloc.test ioerr.test 420} 421 422# Run some tests in no journal mode. 423# 424run_tests "no_journal" -description { 425 Run tests in no-journal mode. 426} -presql { 427 pragma journal_mode = persist 428} -include { 429 delete.test delete2.test insert.test rollback.test select1.test 430 select2.test trans.test update.test vacuum.test 431} 432 433# Run some error tests in no journal mode. 434# 435run_tests "no_journal_error" -description { 436 Run malloc.test and ioerr.test in no-journal mode. 437} -presql { 438 pragma journal_mode = persist 439} -include { 440 malloc.test ioerr.test 441} 442 443# Run some crash-tests in autovacuum mode. 444# 445run_tests "autovacuum_crash" -description { 446 Run crash.test in autovacuum mode. 447} -presql { 448 pragma auto_vacuum = 1 449} -include crash.test 450 451# Run some ioerr-tests in autovacuum mode. 452# 453run_tests "autovacuum_ioerr" -description { 454 Run ioerr.test in autovacuum mode. 455} -presql { 456 pragma auto_vacuum = 1 457} -include ioerr.test 458 459# Run tests with an in-memory journal. 460# 461run_tests "inmemory_journal" -description { 462 Run tests with an in-memory journal file. 463} -presql { 464 pragma journal_mode = 'memory' 465} -exclude { 466 # Exclude all tests that simulate IO errors. 467 autovacuum_ioerr2.test incrvacuum_ioerr.test ioerr.test 468 ioerr.test ioerr2.test ioerr3.test ioerr4.test ioerr5.test 469 vacuum3.test incrblob_err.test diskfull.test backup_ioerr.test 470 471 # Exclude test scripts that use tcl IO to access journal files or count 472 # the number of fsync() calls. 473 pager.test exclusive.test jrnlmode.test sync.test misc1.test 474 journal1.test conflict.test crash8.test tkt3457.test io.test 475} 476 477ifcapable mem3 { 478 run_tests "memsys3" -description { 479 Run tests using the allocator in mem3.c. 480 } -exclude { 481 autovacuum.test delete3.test manydb.test 482 bigrow.test incrblob2.test memdb.test 483 bitvec.test index2.test memsubsys1.test 484 capi3c.test ioerr.test memsubsys2.test 485 capi3.test join3.test pagesize.test 486 collate5.test limit.test 487 } -initialize { 488 catch {db close} 489 sqlite3_reset_auto_extension 490 sqlite3_shutdown 491 sqlite3_config_heap 25000000 0 492 sqlite3_config_lookaside 0 0 493 install_malloc_faultsim 1 494 sqlite3_initialize 495 autoinstall_test_functions 496 } -shutdown { 497 catch {db close} 498 sqlite3_shutdown 499 sqlite3_config_heap 0 0 500 sqlite3_config_lookaside 100 500 501 install_malloc_faultsim 1 502 sqlite3_initialize 503 autoinstall_test_functions 504 } 505} 506 507ifcapable mem5 { 508 run_tests "memsys5" -description { 509 Run tests using the allocator in mem5.c. 510 } -exclude { 511 autovacuum.test delete3.test manydb.test 512 bigrow.test incrblob2.test memdb.test 513 bitvec.test index2.test memsubsys1.test 514 capi3c.test ioerr.test memsubsys2.test 515 capi3.test join3.test pagesize.test 516 collate5.test limit.test zeroblob.test 517 } -initialize { 518 catch {db close} 519 sqlite3_shutdown 520 sqlite3_config_heap 25000000 64 521 sqlite3_config_lookaside 0 0 522 install_malloc_faultsim 1 523 sqlite3_initialize 524 autoinstall_test_functions 525 } -shutdown { 526 catch {db close} 527 sqlite3_shutdown 528 sqlite3_config_heap 0 0 529 sqlite3_config_lookaside 100 500 530 install_malloc_faultsim 1 531 sqlite3_initialize 532 autoinstall_test_functions 533 } 534 535 run_tests "memsys5-2" -description { 536 Run tests using the allocator in mem5.c in a different configuration. 537 } -include { 538 select1.test 539 } -initialize { 540 catch {db close} 541 sqlite3_shutdown 542 sqlite3_config_heap 40000000 16 543 sqlite3_config_lookaside 0 0 544 install_malloc_faultsim 1 545 sqlite3_initialize 546 autoinstall_test_functions 547 } -shutdown { 548 catch {db close} 549 sqlite3_shutdown 550 sqlite3_config_heap 0 0 551 sqlite3_config_lookaside 100 500 552 install_malloc_faultsim 1 553 sqlite3_initialize 554 autoinstall_test_functions 555 } 556} 557 558ifcapable threadsafe { 559 run_tests "no_mutex_try" -description { 560 The sqlite3_mutex_try() interface always fails 561 } -exclude [concat $EXCLUDE mutex1.test mutex2.test] \ 562 -initialize { 563 catch {db close} 564 sqlite3_shutdown 565 install_mutex_counters 1 566 set ::disable_mutex_try 1 567 sqlite3_initialize 568 autoinstall_test_functions 569 } -shutdown { 570 catch {db close} 571 sqlite3_shutdown 572 install_mutex_counters 0 573 sqlite3_initialize 574 autoinstall_test_functions 575 } 576} 577 578# run_tests "crash_safe_append" -description { 579# Run crash.test with persistent journals on a SAFE_APPEND file-system. 580# } -initialize { 581# rename crashsql sa_crashsql 582# proc crashsql {args} { 583# set options [lrange $args 0 [expr {[llength $args]-2}]] 584# lappend options -char safe_append 585# set sql [lindex $args end] 586# lappend options " 587# PRAGMA journal_mode=persistent; 588# $sql 589# " 590# set fd [open test.db-journal w] 591# puts $fd [string repeat 1234567890 100000] 592# close $fd 593# eval sa_crashsql $options 594# } 595# } -shutdown { 596# rename crashsql {} 597# rename sa_crashsql crashsql 598# } -include crash.test 599 600run_tests "safe_append" -description { 601 Run some tests on a SAFE_APPEND file-system. 602} -initialize { 603 rename sqlite3 sqlite3_safeappend 604 proc sqlite3 {args} { 605 if {[string range [lindex $args 0] 0 0] ne "-"} { 606 lappend args -vfs devsym 607 } 608 uplevel [concat sqlite3_safeappend $args] 609 } 610 sqlite3_simulate_device -char safe_append 611} -shutdown { 612 rename sqlite3 {} 613 rename sqlite3_shutdown sqlite3 614} -include [lsort [concat shared_err.test $ALLTESTS]] \ 615 -exclude async3.test 616 617# The set of tests to run on the alternative-pcache 618set perm-alt-pcache-testset { 619 async.test 620 attach.test 621 delete.test delete2.test 622 index.test 623 insert.test insert2.test 624 join.test join2.test 625 rollback.test 626 select1.test select2.test 627 trans.test 628 update.test 629} 630 631run_tests "pcache0" -description { 632 Alternative pcache implementation without random discard 633} -initialize { 634 catch {db close} 635 sqlite3_shutdown 636 sqlite3_config_alt_pcache 1 0 1 637 sqlite3_initialize 638 autoinstall_test_functions 639} -shutdown { 640 catch {db close} 641 sqlite3_shutdown 642 sqlite3_config_alt_pcache 0 0 0 643 sqlite3_config_lookaside 100 500 644 install_malloc_faultsim 1 645 sqlite3_initialize 646 autoinstall_test_functions 647} -include ${perm-alt-pcache-testset} 648 649run_tests "pcache10" -description { 650 Alternative pcache implementation without 10% random discard 651} -initialize { 652 catch {db close} 653 sqlite3_shutdown 654 sqlite3_config_alt_pcache 1 50 1 655 sqlite3_initialize 656 autoinstall_test_functions 657} -shutdown { 658 catch {db close} 659 sqlite3_shutdown 660 sqlite3_config_alt_pcache 0 0 0 661 sqlite3_initialize 662 autoinstall_test_functions 663} -include ${perm-alt-pcache-testset} 664 665run_tests "pcache50" -description { 666 Alternative pcache implementation without 50% random discard 667} -initialize { 668 catch {db close} 669 sqlite3_shutdown 670 sqlite3_config_alt_pcache 1 50 1 671 sqlite3_initialize 672 autoinstall_test_functions 673} -shutdown { 674 catch {db close} 675 sqlite3_shutdown 676 sqlite3_config_alt_pcache 0 0 0 677 sqlite3_initialize 678 autoinstall_test_functions 679} -include ${perm-alt-pcache-testset} 680 681run_tests "pcache90" -description { 682 Alternative pcache implementation without 90% random discard 683} -initialize { 684 catch {db close} 685 sqlite3_shutdown 686 sqlite3_config_alt_pcache 1 50 1 687 sqlite3_initialize 688 autoinstall_test_functions 689} -shutdown { 690 catch {db close} 691 sqlite3_shutdown 692 sqlite3_config_alt_pcache 0 0 0 693 sqlite3_initialize 694 autoinstall_test_functions 695} -include ${perm-alt-pcache-testset} 696 697run_tests "pcache100" -description { 698 Alternative pcache implementation that always discards when unpinning 699} -initialize { 700 catch {db close} 701 sqlite3_shutdown 702 sqlite3_config_alt_pcache 1 100 1 703 sqlite3_initialize 704 autoinstall_test_functions 705} -shutdown { 706 catch {db close} 707 sqlite3_shutdown 708 sqlite3_config_alt_pcache 0 0 0 709 sqlite3_initialize 710 autoinstall_test_functions 711} -include ${perm-alt-pcache-testset} 712 713run_tests "journaltest" -description { 714 Check that pages are synced before being written (test_journal.c). 715} -initialize { 716 set ISQUICK 1 717 catch {db close} 718 register_jt_vfs -default "" 719 #sqlite3_instvfs binarylog -default binarylog ostrace.bin 720} -shutdown { 721 #sqlite3_instvfs destroy binarylog 722 unregister_jt_vfs 723} -include [concat $::ALLTESTS savepoint6.test 724] -exclude { 725 incrvacuum.test 726 ioerr.test 727 corrupt4.test 728 io.test 729 crash8.test 730} 731 732# End of tests 733############################################################################# 734 735if {$::perm::testmode eq "targets"} { puts "" ; exit } 736 737# Restore the [sqlite3] command. 738# 739rename sqlite3 {} 740rename really_sqlite3 sqlite3 741 742# Restore the [finish_test] command. 743# 744rename finish_test "" 745rename really_finish_test2 finish_test 746 747# Restore the [do_test] command. 748# 749rename do_test "" 750rename really_do_test do_test 751 752finish_test 753