cscript p_vlists
which p_vlists

input str18 make price mpg rep78 hdroom trunk weight length turn /*
      */ displ gratio foreign
"AMC Concord"  4099  22 3 2.5 11 2930 186 40 121 3.58  0
"AMC Pacer"    4749  17 3 3.0 11 3350 173 40 258 2.53  0
"Volvo 260"   11995  17 5 2.5 14 3170 193 37 163 2.98  1
end

p_vlists varlist : price-hdroom if mpg>20
assert `s(n)'==1 
assert "`s(v1)'" == "price mpg rep78 hdroom"
assert trim("`s(rest)'") == "if mpg>20"

p_vlists varlist : price-hdroom
assert `s(n)'==1 
assert "`s(v1)'" == "price mpg rep78 hdroom"
assert "`s(rest)'" == ""

p_vlists varname varlist : tur price-hdroom if mpg>20
assert `s(n)'==2 
assert "`s(v1)'"=="turn"
assert "`s(v2)'" == "price mpg rep78 hdroom"
assert trim("`s(rest)'") == "if mpg>20"

rcof "noi p_vlists varname varlist : turn if mpg>20" ==102
rcof "noi p_vlists varname varlist : turn" ==102

p_vlists varname [varlist] : tur if mpg>20
assert `s(n)'==1 
assert "`s(v1)'"=="turn"
assert "`s(v2)'" == ""
assert trim("`s(rest)'") == "if mpg>20"

p_vlists varname [varlist varlist] : tur if mpg>20
assert `s(n)'==1 
assert "`s(v1)'"=="turn"
assert "`s(v2)'" == ""
assert "`s(v3)'" == ""
assert trim("`s(rest)'") == "if mpg>20"

p_vlists varname [varlist varlist] : tur (price-hdroom) if mpg>20
assert `s(n)'==2 
assert "`s(v1)'"=="turn"
assert "`s(v2)'" == "price mpg rep78 hdroom"
assert "`s(v3)'" == ""
assert trim("`s(rest)'") == "if mpg>20"

p_vlists varname [varlist varlist] : tur (price-hdroom) weight if mpg>20
assert `s(n)'==3 
assert "`s(v1)'"=="turn"
assert "`s(v2)'" == "price mpg rep78 hdroom"
assert "`s(v3)'" == "weight"
assert trim("`s(rest)'") == "if mpg>20"

rcof "noi p_vlists varname [varlist varlist] : if mpg>20" == 102
p_vlists [varname varlist varlist] : if mpg>20
assert `s(n)'==0 
assert "`s(v1)'"==""
assert "`s(v2)'"==""
assert "`s(v3)'"==""
assert trim("`s(rest)'") == "if mpg>20"