--TEST--
RADIUS: RFC 3576 disconnect message support
--INI--
display_errors=1
error_reporting=22527
--SKIPIF--
<?php
include dirname(__FILE__).'/server/fake_server.php';

if (FakeServer::skip()) {
    die('SKIP: pcntl, radius and sockets extensions required');
}
?>
--FILE--
<?php
include dirname(__FILE__).'/server/fake_server.php';

$server = new FakeServer;
$res = $server->getAuthResource();

$request = Request::expect(RADIUS_ACCESS_REQUEST, array(
    Attribute::expect(RADIUS_USER_NAME, 'foo'),
));

$response = new RadiusResponse;
$response->code = RADIUS_DISCONNECT_REQUEST;
$response->attributes = array(
    Attribute::expect(RADIUS_NAS_IDENTIFIER, 'NAS'),
);

$server->addTransaction($request, $response);

$request = Request::expect(RADIUS_DISCONNECT_NAK, array(
    Attribute::expect(RADIUS_ERROR_CAUSE, pack('N', RADIUS_ERROR_CAUSE_MISSING_ATTRIBUTE)),
));

$server->addTransaction($request, $response);

$request = Request::expect(RADIUS_DISCONNECT_ACK, array(
));

$response = new RadiusResponse;
$response->code = RADIUS_DISCONNECT_ACK;

$server->addTransaction($request, $response);

$server->handle();

radius_create_request($res, RADIUS_ACCESS_REQUEST);
radius_put_string($res, RADIUS_USER_NAME, 'foo');
radius_put_string($res, RADIUS_USER_PASSWORD, 'bar');

var_dump(radius_send_request($res) == RADIUS_DISCONNECT_REQUEST);
var_dump(radius_get_attr($res));

radius_create_request($res, RADIUS_DISCONNECT_NAK);
radius_put_int($res, RADIUS_ERROR_CAUSE, RADIUS_ERROR_CAUSE_MISSING_ATTRIBUTE);

var_dump(radius_send_request($res) == RADIUS_DISCONNECT_REQUEST);
var_dump(radius_get_attr($res));

radius_create_request($res, RADIUS_DISCONNECT_ACK);
radius_send_request($res);

var_dump($server->wait());
?>
--EXPECTF--
bool(true)
array(2) {
  ["attr"]=>
  int(32)
  ["data"]=>
  string(3) "NAS"
}
bool(true)
array(2) {
  ["attr"]=>
  int(32)
  ["data"]=>
  string(3) "NAS"
}
int(0)