a <- getas("cat /etc/passwd" , ['type -> "tab", 'fs -> ":"]);

b <- [ hd(x) -> tl(x) | x <- a ];

_ok("getas, popen","root" in dom(b) /\ "test.cam" in elems(getas("ls -1",[])),
true);

quit.