test/testrunner_data.tcl

   1
   2
   3
   4 namespace eval trd {
   5   variable tcltest
   6   variable extra
   7   variable all_configs
   8
   9
  10   # Tcl tests to run for various builds.
  11   #
  12   set tcltest(linux.Fast-One)             veryquick
  13   set tcltest(linux.Debug-One)            veryquick
  14   set tcltest(linux.Debug-Two)            veryquick
  15   set tcltest(linux.Have-Not)             veryquick
  16   set tcltest(linux.Secure-Delete)        veryquick
  17   set tcltest(linux.Unlock-Notify)        veryquick
  18   set tcltest(linux.User-Auth)            veryquick
  19   set tcltest(linux.Update-Delete-Limit)  veryquick
  20   set tcltest(linux.Extra-Robustness)     veryquick
  21   set tcltest(linux.Device-Two)           veryquick
  22   set tcltest(linux.No-lookaside)         veryquick
  23   set tcltest(linux.Devkit)               veryquick
  24   set tcltest(linux.Apple)                veryquick
  25   set tcltest(linux.Sanitize)             veryquick
  26   set tcltest(linux.Device-One)           all
  27   set tcltest(linux.Default)              all_plus_autovacuum_crash
  28   set tcltest(linux.Valgrind)             valgrind
  29
  30   set tcltest(osx.Locking-Style)          veryquick
  31   set tcltest(osx.Have-Not)               veryquick
  32   set tcltest(osx.Apple)                  all
  33
  34   set tcltest(win.Stdcall)                veryquick
  35   set tcltest(win.Have-Not)               veryquick
  36   set tcltest(win.Windows-Memdebug)       veryquick
  37   set tcltest(win.Windows-Win32Heap)      veryquick
  38   set tcltest(win.Default)                full
  39
  40   # Extra [make xyz] tests that should be run for various builds.
  41   #
  42   set extra(linux.Check-Symbols)          checksymbols
  43   set extra(linux.Fast-One)               {fuzztest sourcetest}
  44   set extra(linux.Debug-One)              {fuzztest sourcetest mptest}
  45   set extra(linux.Debug-Two)              {fuzztest sourcetest}
  46   set extra(linux.Have-Not)               {fuzztest sourcetest}
  47   set extra(linux.Secure-Delete)          {fuzztest sourcetest}
  48   set extra(linux.Unlock-Notify)          {fuzztest sourcetest}
  49   set extra(linux.Update-Delete-Limit)    {fuzztest sourcetest}
  50   set extra(linux.Extra-Robustness)       {fuzztest sourcetest}
  51   set extra(linux.Device-Two)             {fuzztest sourcetest threadtest}
  52   set extra(linux.No-lookaside)           {fuzztest sourcetest}
  53   set extra(linux.Devkit)                 {fuzztest sourcetest}
  54   set extra(linux.Apple)                  {fuzztest sourcetest}
  55   set extra(linux.Sanitize)               {fuzztest sourcetest}
  56   set extra(linux.Default)                {fuzztest sourcetest threadtest}
  57
  58   set extra(osx.Apple)                    {fuzztest threadtest}
  59   set extra(osx.Have-Not)                 {fuzztest sourcetest}
  60   set extra(osx.Locking-Style)            {mptest fuzztest sourcetest}
  61
  62   set extra(win.Default)                  mptest
  63   set extra(win.Stdcall)                  {fuzztest sourcetest}
  64   set extra(win.Windows-Memdebug)         {fuzztest sourcetest}
  65   set extra(win.Windows-Win32Heap)        {fuzztest sourcetest}
  66   set extra(win.Have-Not)                 {fuzztest sourcetest}
  67
  68   # The following mirrors the set of test suites invoked by "all.test".
  69   #
  70   set all_configs {
  71     full no_optimization memsubsys1 memsubsys2 singlethread
  72     multithread onefile utf16 exclusive persistent_journal
  73     persistent_journal_error no_journal no_journal_error
  74     autovacuum_ioerr no_mutex_try fullmutex journaltest
  75     inmemory_journal pcache0 pcache10 pcache50 pcache90
  76     pcache100 prepare mmap
  77   }
  78 }
  79
  80
  81 #-------------------------------------------------------------------------
  82 proc trd_import {} {
  83   uplevel {
  84     variable ::trd::tcltest
  85     variable ::trd::extra
  86     variable ::trd::all_configs
  87   }
  88 }
  89
  90 proc trd_builds {platform} {
  91   trd_import
  92
  93   set klist [lsort -uniq [concat \
  94       [array names tcltest ${platform}.*] \
  95       [array names extra ${platform}.*]   \
  96   ]]
  97   if {[llength $klist]==0} {
  98     error "no such platform: $platform"
  99   }
 100
 101   set ret ""
 102   foreach k $klist {
 103     foreach {p c} [split $k "."] {}
 104     lappend ret $c
 105   }
 106   set ret
 107 }
 108
 109 proc trd_configs {platform build} {
 110   trd_import
 111
 112   set clist [list]
 113
 114   if {[info exists tcltest($platform.$build)]} {
 115     set clist $tcltest($platform.$build)
 116     if {$clist=="all"} {
 117       set clist $all_configs
 118     } elseif {$clist=="all_plus_autovacuum_crash"} {
 119       set clist [concat $all_configs autovacuum_crash]
 120     }
 121   }
 122
 123   set clist
 124 }
 125
 126 proc trd_extras {platform build} {
 127   trd_import
 128
 129   set elist [list]
 130   if {[info exists extra($platform.$build)]} {
 131     set elist $extra($platform.$build)
 132   }
 133
 134   set elist
 135 }
 136
 137 proc trd_all_configs {} {
 138   trd_import
 139   set all_configs
 140 }
 141
 142
 143