BEGIN {
    print "=== Basic Block-Based rawk Tests ==="
}

RAWK {
    $add = (x, y) -> {
        return x + y;
    };
    
    $multiply = (a, b) -> {
        return a * b;
    };
    
    $greet = (name) -> {
        return "Hello, " name "!";
    };
    
    $is_positive_num = (num) -> {
        return num > 0;
    };
}

{
    # Test basic arithmetic
    result1 = add(5, 3);
    expect_equal(result1, 8, "add(5, 3) should return 8");
    
    result2 = multiply(4, 7);
    expect_equal(result2, 28, "multiply(4, 7) should return 28");
    
    # Test string functions
    greeting = greet("World");
    expect_equal(greeting, "Hello, World!", "greet('World') should return 'Hello, World!'");
    
    # Test boolean functions
    expect_true(is_positive_num(10), "is_positive_num(10) should return true");
    expect_false(is_positive_num(-5), "is_positive_num(-5) should return false");
    
    print "All basic tests passed!";
    exit 0;
}