#!/usr/bin/perl
use strict;
use Test::More tests => 4;
use lib 't/lib';

require 'djabberd-test.pl';

# with a to in outgoing verify stream,
$DJabberd::_T_NO_TO_IN_DIALBACKVERIFY_STREAM = 0;
test();

# without to in outgoing verify stream,
$DJabberd::_T_NO_TO_IN_DIALBACKVERIFY_STREAM = 1;
test();

sub test {
    two_parties_s2s(sub {
        my ($pa, $pb) = @_;
        $pa->login;
        $pb->login;
        $pa->send_xml("<presence/>");
        $pb->send_xml("<presence/>");

        # PA to PB
        $pa->send_xml("<message type='chat' to='$pb'>Hello.  I am $pa.</message>");
        like($pb->recv_xml, qr/type=.chat.*Hello.*I am \Q$pa\E/, "pb got pa's message");

        # PB to PA
        $pb->send_xml("<message type='chat' to='$pa'>Hello back!</message>");
        like($pa->recv_xml, qr/Hello back/, "pa got pb's message");

    });
}