// Copyright (c) 2019-2026 Alexander Medvednikov. All rights reserved.
// Use of this source code is governed by an MIT license
// that can be found in the LICENSE file.
module s3

fn test_extract_xml_tag_basic() {
    body := '<?xml version="1.0"?><Error><Code>NoSuchKey</Code><Message>Key not found</Message><RequestId>R1</RequestId></Error>'
    assert extract_xml_tag(body, 'Code') == 'NoSuchKey'
    assert extract_xml_tag(body, 'Message') == 'Key not found'
    assert extract_xml_tag(body, 'RequestId') == 'R1'
    assert extract_xml_tag(body, 'Missing') == ''
}

fn test_extract_xml_tag_decodes_entities() {
    body := '<Message>a & b <tag></Message>'
    assert extract_xml_tag(body, 'Message') == 'a & b <tag>'
}

fn test_decode_xml_entities() {
    assert decode_xml_entities('"hello"') == '"hello"'
    assert decode_xml_entities('a & b < c > d 'e'') == "a & b < c > d 'e'"
    assert decode_xml_entities('no entities here') == 'no entities here'
}

fn test_s3error_msg_contains_code_and_path() {
    e := S3Error{
        code:    'NoSuchKey'
        message: 'object missing'
        status:  404
        path:    'foo/bar.txt'
    }
    rendered := e.msg()
    assert rendered.contains('NoSuchKey')
    assert rendered.contains('object missing')
    assert rendered.contains('404')
    assert rendered.contains('foo/bar.txt')
}

fn test_s3error_code_maps_known_strings() {
    assert (&S3Error{
        code: 'NoSuchKey'
    }).code() == 404
    assert (&S3Error{
        code: 'NoSuchBucket'
    }).code() == 404
    assert (&S3Error{
        code: 'AccessDenied'
    }).code() == 403
    assert (&S3Error{
        code: 'BucketAlreadyExists'
    }).code() == 409
    // Unknown code falls back to the wire status.
    assert (&S3Error{
        code:   'WeirdCode'
        status: 418
    }).code() == 418
}

fn test_new_http_error_parses_xml_body() {
    body := '<?xml version="1.0"?><Error><Code>NoSuchKey</Code><Message>The specified key does not exist.</Message><Resource>/bucket/missing.txt</Resource><RequestId>ABC123</RequestId></Error>'
    err := new_http_error(404, 'missing.txt', body)
    if err is S3Error {
        assert err.code == 'NoSuchKey'
        assert err.message == 'The specified key does not exist.'
        assert err.resource == '/bucket/missing.txt'
        assert err.request_id == 'ABC123'
        assert err.status == 404
        assert err.path == 'missing.txt'
    } else {
        assert false, 'expected S3Error'
    }
}

fn test_new_http_error_falls_back_when_body_empty() {
    err := new_http_error(503, 'foo', '')
    if err is S3Error {
        assert err.code == 'ServiceUnavailable'
        assert err.status == 503
    } else {
        assert false, 'expected S3Error'
    }
}