expected <- eval(parse(text="structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(10L, 10L))"));            
test(id=0, code={            
argv <- eval(parse(text="list(structure(c(\"white\", \"aquamarine3\", \"bisque2\", \"blueviolet\", \"burlywood4\", \"chartreuse4\", \"coral4\", \"cyan3\", \"darkgreen\", \"darkorange1\", \"aliceblue\", \"white\", \"white\", \"white\", \"white\", \"chocolate\", \"cornflowerblue\", \"cyan4\", \"darkgrey\", \"darkorange2\", \"antiquewhite\", \"white\", \"white\", \"white\", \"white\", \"chocolate1\", \"cornsilk\", \"darkblue\", \"darkkhaki\", \"darkorange3\", \"antiquewhite1\", \"white\", \"white\", \"white\", \"white\", \"chocolate2\", \"cornsilk1\", \"darkcyan\", \"darkmagenta\", \"darkorange4\", \"antiquewhite2\", \"azure2\", \"blanchedalmond\", \"brown3\", \"cadetblue3\", \"chocolate3\", \"cornsilk2\", \"darkgoldenrod\", \"darkolivegreen\", \"darkorchid\", \"antiquewhite3\", \"azure3\", \"blue\", \"brown4\", \"cadetblue4\", \"chocolate4\", \"cornsilk3\", \"darkgoldenrod1\", \"darkolivegreen1\", \"darkorchid1\", \"antiquewhite4\", \"azure4\", \"blue1\", \"burlywood\", \"chartreuse\", \"coral\", \"cornsilk4\", \"darkgoldenrod2\", \"darkolivegreen2\", \"darkorchid2\", \"aquamarine\", \"beige\", \"blue2\", \"burlywood1\", \"chartreuse1\", \"coral1\", \"cyan\", \"darkgoldenrod3\", \"darkolivegreen3\", \"darkorchid3\", \"aquamarine1\", \"bisque\", \"blue3\", \"burlywood2\", \"chartreuse2\", \"coral2\", \"cyan1\", \"darkgoldenrod4\", \"darkolivegreen4\", \"darkorchid4\", \"aquamarine2\", \"bisque1\", \"blue4\", \"burlywood3\", \"chartreuse3\", \"coral3\", \"cyan2\", \"darkgray\", \"darkorange\", \"darkred\"), .Dim = c(10L, 10L), class = \"raster\"), \"white\")"));            
do.call(`==`, argv);            
}, o=expected);            

