#!perl
use Cassandane::Tiny;

sub test_lsub_extrachild
    :NoAltNameSpace
    ($self)
{
    my $imaptalk = $self->{store}->get_client();

    $imaptalk->create("INBOX.Test") || die;
    $imaptalk->create("INBOX.Test.Sub") || die;
    $imaptalk->create("INBOX.Test Foo") || die;
    $imaptalk->create("INBOX.Test Bar") || die;
    $imaptalk->subscribe("INBOX.Test") || die;
    $imaptalk->subscribe("INBOX.Test.Sub") || die;
    $imaptalk->subscribe("INBOX.Test Foo") || die;
    $imaptalk->delete("INBOX.Test.Sub") || die;
    my $subdata = $imaptalk->lsub("", "*");
    $self->assert_deep_equals($subdata, [
          [
            [
              '\\HasChildren'
            ],
            '.',
            'INBOX'
          ],
          [
            [
              '\\HasChildren'
            ],
            '.',
            'INBOX.Test'
          ],
          [
            [],
            '.',
            'INBOX.Test Foo'
          ],
          [
            [],
            '.',
            'INBOX.asub'
          ],
          [
            [],
            '.',
            'user.other.sub.folder'
          ],
    ], "LSUB extrachild mismatch: " . Dumper($subdata));
}
