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/roman/r-instrumented/tests/myLib/pkgA/R/pkgA\")"));    
test(id=0, code={    
argv <- eval(parse(text="list(structure(list(size = 1056, isdir = FALSE, mode = structure(420L, class = \"octmode\"), mtime = structure(1395082115.08988, class = c(\"POSIXct\", \"POSIXt\")), ctime = structure(1395082122.18188, class = c(\"POSIXct\", \"POSIXt\")), atime = structure(1395082175.70988, class = c(\"POSIXct\", \"POSIXt\")), uid = 1001L, gid = 1001L, uname = \"roman\", grname = \"roman\"), .Names = c(\"size\", \"isdir\", \"mode\", \"mtime\", \"ctime\", \"atime\", \"uid\", \"gid\", \"uname\", \"grname\"), class = \"data.frame\", row.names = \"/home/roman/r-instrumented/tests/myLib/pkgA/R/pkgA\"), 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/roman/r-instrumented/tests/myLib/pkgA/R/pkgA\"))"));    
.Internal(`copyDFattr`(argv[[1]], argv[[2]]));    
}, o=expected);    

