expected <- list()       
test(id=4, code={       
argv <- structure(list(structure(list(), class = structure("L", package = ".GlobalEnv")),        
    value = NULL), .Names = c("", "value"))       
do.call('attributes<-', argv);       
},  o = expected);       
       
