irce = require "irce"
socket = require "socket"

describe "ngircd protocol support", ->
  local file
  local last_msg
  client = socket.tcp!
  client\settimeout 1
  irc = irce.new!
  irc\set_send_func (message) =>
    last_msg = message
    print "[server] > " .. message
    client\send message
  irc\load_module require "irce.modules.ngircd"

  setup ->
    print "got here"
    file = io.popen "ngircd -n -f ./spec/ngircd.conf", "r"

  teardown ->
    with io.popen "killall ngircd", "r"
      \close!
    with file
      print \read "*all"
      \close!

  it "actually is running ngircd", ->
    with io.popen "pstree"
      data = \read "*all"
      assert.truthy string.find data, "ngircd"

  it "registers", ->
    bursted = false
    irc\set_callback "376", =>
      bursted = true

    client\connect "127.0.0.1", 6667
    irc\REGISTER "hunter2", "kc-test", "0.0.1", "ketracel.akua", "test", "31"

    while not bursted
      msg = client\receive!
      print "[server] " .. msg
      irc\process msg

    irc\clear_callback "376"

  it "can do a normal client connection", ->
    irc_client = socket.tcp!
    ircce = irce.new!
    ircce\set_send_func (message) =>
      print "[client] > " .. message
      irc_client\send message
    running = true
    ircce\set_callback "005", =>
      running = false

    ircce\load_module require "irce.modules.base"
    irc_client\connect "127.0.0.1", 6667
    ircce\NICK "test"
    ircce\USER "test", "hunter2"

    while running
      msg = irc_client\receive!
      print "[client] < " .. msg
      ircce\process msg

    ircce\QUIT "bye"
    irc_client\close!