# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4

package require tcltest 2
namespace import tcltest::*

source "testlib.tcl"

test dup2_dt_socket "Test that dup(2) over the darwintrace socket moves the socket" \
    -setup [setup {}] \
    -cleanup [expect] \
    -body {exec -ignorestderr -- ./dup2 2>@1} \
    -result ""

cleanupTests