expected <- eval(parse(text="structure(list(size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c(\"size\", \"isdir\", \"mode\", \"mtime\", \"ctime\", \"atime\", \"uid\", \"gid\", \"uname\", \"grname\"), class = \"data.frame\", row.names = \"/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc\")"));              
test(id=0, code={              
argv <- eval(parse(text="list(structure(list(size = 284, isdir = FALSE, mode = structure(436L, class = \"octmode\"), mtime = structure(1386397148.36693, class = c(\"POSIXct\", \"POSIXt\")), ctime = structure(1386397148.36693, class = c(\"POSIXct\", \"POSIXt\")), atime = structure(1386397148.36793, class = c(\"POSIXct\", \"POSIXt\")), uid = 501L, gid = 501L, uname = \"lzhao\", grname = \"lzhao\"), .Names = c(\"size\", \"isdir\", \"mode\", \"mtime\", \"ctime\", \"atime\", \"uid\", \"gid\", \"uname\", \"grname\"), class = \"data.frame\", row.names = \"/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc\"), structure(list(    size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c(\"size\", \"isdir\", \"mode\", \"mtime\", \"ctime\", \"atime\", \"uid\", \"gid\", \"uname\", \"grname\"), class = \"data.frame\", row.names = \"/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc\"))"));              
.Internal(copyDFattr(argv[[1]], argv[[2]]));              
}, o=expected);              

