syscall-test.amb

#lang shill/ambient

require shill/native;
require "syscall-test.cap";

val wallet = create-wallet();
populate-native-wallet(wallet
                      ,open-dir("/")
                      ,"/home/danking/tests/individual-system-call-tests"
                      ,"/libexec:/lib:/usr/lib"
                      ,pipe-factory
                      ,lookups = [open-dir("/home"), open-dir("/dev")]);

syscall-test(wallet,stdout,cwd);

syscall-test.cap

#lang shill/cap

provide [syscall-test :
          [wallet : native-wallet?]
          [out : writeable?]
          [cwd : dir/c(+chdir, +lookup, +path)]
           -> integer?];

require shill/native;
require shill/contracts;
require shill/io;

val syscall-test = fun (wallet,out,cwd) {
    find = pkg-native("a.out",wallet);
    find([],stdout = out, stderr = out, extra = [cwd]);
}