seq-runtime 5.6.0

use super::*;
use crate::stack::pop;

#[test]
fn test_base64_encode() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        let stack = push(stack, Value::String(global_string("hello".to_string())));
        let stack = patch_seq_base64_encode(stack);
        let (_, value) = pop(stack);

        match value {
            Value::String(s) => assert_eq!(s.as_str(), "aGVsbG8="),
            _ => panic!("Expected String"),
        }
    }
}

#[test]
fn test_base64_decode_success() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        let stack = push(stack, Value::String(global_string("aGVsbG8=".to_string())));
        let stack = patch_seq_base64_decode(stack);

        let (stack, success) = pop(stack);
        let (_, decoded) = pop(stack);

        match (decoded, success) {
            (Value::String(s), Value::Bool(true)) => assert_eq!(s.as_str(), "hello"),
            _ => panic!("Expected (String, true)"),
        }
    }
}

#[test]
fn test_base64_decode_failure() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        let stack = push(
            stack,
            Value::String(global_string("not valid base64!!!".to_string())),
        );
        let stack = patch_seq_base64_decode(stack);

        let (stack, success) = pop(stack);
        let (_, decoded) = pop(stack);

        match (decoded, success) {
            (Value::String(s), Value::Bool(false)) => assert_eq!(s.as_str(), ""),
            _ => panic!("Expected (empty String, false)"),
        }
    }
}

#[test]
fn test_base64url_encode() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        // Use input that produces + and / in standard base64
        let stack = push(stack, Value::String(global_string("hello??".to_string())));
        let stack = patch_seq_base64url_encode(stack);
        let (_, value) = pop(stack);

        match value {
            Value::String(s) => {
                // Should not contain + or / or =
                assert!(!s.as_str().contains('+'));
                assert!(!s.as_str().contains('/'));
                assert!(!s.as_str().contains('='));
            }
            _ => panic!("Expected String"),
        }
    }
}

#[test]
fn test_base64url_roundtrip() {
    unsafe {
        let original = "hello world! 123";
        let stack = crate::stack::alloc_test_stack();
        let stack = push(stack, Value::String(global_string(original.to_string())));
        let stack = patch_seq_base64url_encode(stack);
        let stack = patch_seq_base64url_decode(stack);

        let (stack, success) = pop(stack);
        let (_, decoded) = pop(stack);

        match (decoded, success) {
            (Value::String(s), Value::Bool(true)) => assert_eq!(s.as_str(), original),
            _ => panic!("Expected (String, true)"),
        }
    }
}

#[test]
fn test_hex_encode() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        let stack = push(stack, Value::String(global_string("hello".to_string())));
        let stack = patch_seq_hex_encode(stack);
        let (_, value) = pop(stack);

        match value {
            Value::String(s) => assert_eq!(s.as_str(), "68656c6c6f"),
            _ => panic!("Expected String"),
        }
    }
}

#[test]
fn test_hex_decode_success() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        let stack = push(
            stack,
            Value::String(global_string("68656c6c6f".to_string())),
        );
        let stack = patch_seq_hex_decode(stack);

        let (stack, success) = pop(stack);
        let (_, decoded) = pop(stack);

        match (decoded, success) {
            (Value::String(s), Value::Bool(true)) => assert_eq!(s.as_str(), "hello"),
            _ => panic!("Expected (String, true)"),
        }
    }
}

#[test]
fn test_hex_decode_uppercase() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        let stack = push(
            stack,
            Value::String(global_string("68656C6C6F".to_string())),
        );
        let stack = patch_seq_hex_decode(stack);

        let (stack, success) = pop(stack);
        let (_, decoded) = pop(stack);

        match (decoded, success) {
            (Value::String(s), Value::Bool(true)) => assert_eq!(s.as_str(), "hello"),
            _ => panic!("Expected (String, true)"),
        }
    }
}

#[test]
fn test_hex_decode_failure() {
    unsafe {
        let stack = crate::stack::alloc_test_stack();
        let stack = push(stack, Value::String(global_string("not hex!".to_string())));
        let stack = patch_seq_hex_decode(stack);

        let (stack, success) = pop(stack);
        let (_, decoded) = pop(stack);

        match (decoded, success) {
            (Value::String(s), Value::Bool(false)) => assert_eq!(s.as_str(), ""),
            _ => panic!("Expected (empty String, false)"),
        }
    }
}

#[test]
fn test_hex_roundtrip() {
    unsafe {
        let original = "Hello, World! 123";
        let stack = crate::stack::alloc_test_stack();
        let stack = push(stack, Value::String(global_string(original.to_string())));
        let stack = patch_seq_hex_encode(stack);
        let stack = patch_seq_hex_decode(stack);

        let (stack, success) = pop(stack);
        let (_, decoded) = pop(stack);

        match (decoded, success) {
            (Value::String(s), Value::Bool(true)) => assert_eq!(s.as_str(), original),
            _ => panic!("Expected (String, true)"),
        }
    }
}