openClosePortTest :: IO ()
openClosePortTest = do
  port <- openPort infoNull
  closePort port
openClosePortTest :: IO ()
openClosePortTest = do
  port <- openPort infoNull
  closePort port
openClosePortTest = do
  port <- openPort infoNull
  closePort port