use super::types::wasm_byte_vec_t;

/// Parses in-memory bytes as either the WAT format, or a binary Wasm
/// module. This is wasmer-specific.
///
/// In case of failure, `wat2wasm` returns `NULL`.
#[cfg(feature = "wat")]
#[no_mangle]
pub unsafe extern "C" fn wat2wasm(wat: &wasm_byte_vec_t) -> Option<Box<wasm_byte_vec_t>> {
    let wat: &[u8] = wat.into_slice()?;
    let result: wasm_byte_vec_t = c_try!(wasmer::wat2wasm(wat)).into_owned().into();

    Some(Box::new(result))
}

#[cfg(test)]
mod tests {
    use inline_c::assert_c;

    #[test]
    fn test_wat2wasm() {
        (assert_c! {
            #include "tests/wasmer_wasm.h"

            int main() {
                wasm_engine_t* engine = wasm_engine_new();
                wasm_store_t* store = wasm_store_new(engine);

                wasm_byte_vec_t wat;
                wasmer_byte_vec_new_from_string(&wat, "(module)");
                wasm_byte_vec_t* wasm = wat2wasm(&wat);

                wasmer_assert(wasm);
                wasmer_assert(wasm->size == 8);
                wasmer_assert(
                    wasm->data[0] == 0 &&
                        wasm->data[1] == 'a' &&
                        wasm->data[2] == 's' &&
                        wasm->data[3] == 'm' &&
                        wasm->data[4] == 1 &&
                        wasm->data[5] == 0 &&
                        wasm->data[6] == 0 &&
                        wasm->data[7] == 0
                );

                wasm_byte_vec_delete(wasm);
                wasm_store_delete(store);
                wasm_engine_delete(engine);

                return 0;
            }
        })
        .success();
    }

    #[test]
    fn test_wat2wasm_failed() {
        (assert_c! {
            #include "tests/wasmer_wasm.h"

            int main() {
                wasm_engine_t* engine = wasm_engine_new();
                wasm_store_t* store = wasm_store_new(engine);

                wasm_byte_vec_t wat;
                wasmer_byte_vec_new_from_string(&wat, "(module");
                wasm_byte_vec_t* wasm = wat2wasm(&wat);

                wasmer_assert(!wasm);
                wasmer_assert(wasmer_last_error_length() > 0);

                wasm_store_delete(store);
                wasm_engine_delete(engine);

                return 0;
            }
        })
        .success();
    }
}