Function Main

ppcc/adlib/test2.cc:4–26

#include "set.h"

void Main() {
  StrArr *arr
      = ReadProcessLines(new Str("seq"), new StrArr(1, new Str("10000")));
  Check(arr->len() == 10001, "read process output as lines");
  Word hash = 0;
  for (StrArr::Each it(arr); it; ++it) {
    hash += Hash(*it);
  }
  Check((hash & 0xffff) == 0xc756, "hashing strings");
  Str *data = ReadFile("/dev/null");
  FileInfo *finfo = FileStat(__FILE__);
  Check(finfo != NULL && finfo->is_file && finfo->size > 0, "file stat");
  Check(data && data->len() == 0, "read bytes from file");
  arr = ReadLines(__FILE__);
  Check(arr && arr->len() > __LINE__, "read lines from file");
  Check(WriteFile("/dev/null", S("test")), "write bytes to file");
  static CStr args[] = { "17" };
  Check(System(S("exit"), StrArrLit(args)) == 17, "invoke shell");
  Check(ListFiles(".")->len() > 0, "reading directories");
  StrSet *files = new StrSet(ListFiles("adlib"));
  files = new StrSet(ListFileTree(CurrentDir(), ListFilesRelative));
  Check(files->contains(S(__FILE__)), "reading directories recursively");
}