Megatest

commonstructs at [0fb9975701]
Login

File commonstructs artifact 58a665f886 part of check-in 0fb9975701


#  Copyright 2006-2017, Matthew Welland.
# 
# This file is part of Megatest.
# 
#     Megatest is free software: you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#     the Free Software Foundation, either version 3 of the License, or
#     (at your option) any later version.
# 
#     Megatest is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU General Public License for more details.
# 
#     You should have received a copy of the GNU General Public License
#     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

The database keys, runs are indexed on this
keys: (db:get-keys #f) =>

      (#("OS"  "TEXT") 
       #("FS"  "TEXT") 
       #("TAG" "TEXT"))

keyvallst: (keys:target->keyval keys "ubuntu/nfs/none")

      (("OS"  "ubuntu")
       ("FS"  "nfs")
       ("TAG" "none"))

keyvals: (db:get-key-vals #f 3) ;; get the key vals for run #3

      ("ubuntu" "nfs" "none")