testlist <- list(sid_mode = -62487468L)
result <- do.call(swephR:::get_ayanamsa_name,testlist)
str(result)