# structure tests

source defs_mk.tcl

T 1 {recursive subviews} {
  mk::file open db [F].mk
  mk::view layout db.v {tag {nest ^}}
  
  mk::row append db.v tag a
  mk::row append db.v!0.nest tag b
  mk::row append db.v!0.nest!0.nest tag c
  
  C [mk::get db.v!0 tag] a
  C [mk::get db.v!0.nest!0 tag] b
  C [mk::get db.v!0.nest!0.nest!0 tag] c
}

Q 2