set more off
set rmsg on

/*change to the directory which contains the version I want to cerify*/
local home "h"  /*university*/
*local home "c" /*laptop*/
*local home "d" /*home desktop*/
cd "`home':/mijn documenten/projecten/stata/indepvars/1.0.1"
version 7


capture indeplist
assert _rc == 198

sysuse auto, clear
recode rep78 1/2=3
label define rep78 4 "bla bla" /*just to create an equation name with spaces*/
label values rep78 rep78
mlogit rep78 price mpg

indeplist
assert "`r(Xblabla)'" == "price mpg"
assert "`r(X5)'" == "price mpg"
assert "`Xblabla'" == ""
assert "`X5'" == ""
assert "`locnames'" == ""
local r : r(macros)
assert "`r'" == "X5 Xblabla"

indeplist, local
assert "`r(Xblabla)'" == "price mpg"
assert "`r(X5)'" == "price mpg"
assert "`Xblabla'" == "price mpg"
assert "`X5'" == "price mpg"
assert "`locnames'" == "Xblabla X5"
local r : r(macros)
assert "`r'" == "X5 Xblabla"

indeplist, local cons
assert "`r(Xblabla)'" == "price mpg _cons"
assert "`r(X5)'" == "price mpg _cons"
assert "`Xblabla'" == "price mpg _cons"
assert "`X5'" == "price mpg _cons"
assert "`locnames'" == "Xblabla X5"
local r : r(macros)
assert "`r'" == "X5 Xblabla"


capture indeplist, eq("foo bar")
assert _rc == 198

indeplist, eq("bla bla")
assert "`r(Xblabla)'" == "price mpg"
local r : r(macros)
assert "`r'" == "Xblabla"

indeplist, eq("bla bla" "5")
assert "`r(Xblabla)'" == "price mpg"
assert "`r(X5)'" == "price mpg"
local r : r(macros)
assert "`r'" == "X5 Xblabla"

reg price mpg foreign weight rep78
indeplist
assert "`r(X)'" == "mpg foreign weight rep78"
local r : r(macros)
assert "`r'" == "X"

reg price mpg foreign weight rep78
indeplist, local
assert "`r(X)'" == "mpg foreign weight rep78"
local r : r(macros)
assert "`X'" == "mpg foreign weight rep78"
assert "`locnames'" == "X"
assert "`r'" == "X"

indeplist, local cons
assert "`r(X)'" == "mpg foreign weight rep78 _cons"
local r : r(macros)
assert "`X'" == "mpg foreign weight rep78 _cons"
assert "`locnames'" == "X"
assert "`r'" == "X"

/*check if maximum string length doesn't bite*/
rename mpg x1234567890123456789012345678901
rename foreign x2234567890123456789012345678901
rename weight x3234567890123456789012345678901
rename rep78 x4234567890123456789012345678901
rename headroom x5234567890123456789012345678901
rename trunk x6234567890123456789012345678901
rename displacement x7234567890123456789012345678901
rename gear_ratio x8234567890123456789012345678901
rename length x9234567890123456789012345678901

reg price x1 x2 x3 x4 x5 x6 x7 x8 x9

indeplist
assert "`r(X)'" == "x1234567890123456789012345678901 x2234567890123456789012345678901 x3234567890123456789012345678901 x4234567890123456789012345678901 x5234567890123456789012345678901 x6234567890123456789012345678901 x7234567890123456789012345678901 x8234567890123456789012345678901 x9234567890123456789012345678901"
local r : r(macros)
assert "`r'" == "X"

indeplist, local
assert "`r(X)'" == "x1234567890123456789012345678901 x2234567890123456789012345678901 x3234567890123456789012345678901 x4234567890123456789012345678901 x5234567890123456789012345678901 x6234567890123456789012345678901 x7234567890123456789012345678901 x8234567890123456789012345678901 x9234567890123456789012345678901"
local r : r(macros)
assert "`r'" == "X"
assert "`X'" == "x1234567890123456789012345678901 x2234567890123456789012345678901 x3234567890123456789012345678901 x4234567890123456789012345678901 x5234567890123456789012345678901 x6234567890123456789012345678901 x7234567890123456789012345678901 x8234567890123456789012345678901 x9234567890123456789012345678901"
assert "`locnames'" == "X"

indeplist, local constant
assert "`r(X)'" == "x1234567890123456789012345678901 x2234567890123456789012345678901 x3234567890123456789012345678901 x4234567890123456789012345678901 x5234567890123456789012345678901 x6234567890123456789012345678901 x7234567890123456789012345678901 x8234567890123456789012345678901 x9234567890123456789012345678901 _cons" 
assert "`X'" == "x1234567890123456789012345678901 x2234567890123456789012345678901 x3234567890123456789012345678901 x4234567890123456789012345678901 x5234567890123456789012345678901 x6234567890123456789012345678901 x7234567890123456789012345678901 x8234567890123456789012345678901 x9234567890123456789012345678901 _cons"
assert "`locnames'" == "X"
local r : r(macros)
assert "`r'" == "X"

exit