BEGIN {
    print "=== Debug findIndex Test ==="
}

RAWK {
    $is_positive_num = (x) -> {
        return x > 0;
    };
}

{
    # Create test data
    mixed[1] = -2;
    mixed[2] = 0;
    mixed[3] = 3;
    mixed[4] = -5;
    mixed[5] = 10;
    
    print "Test data:";
    for (i = 1; i <= 5; i++) {
        print "  mixed[" i "] = " mixed[i] " (positive: " is_positive_num(mixed[i]) ")";
    }
    
    # Test findIndex
    first_positive_index = findIndex("is_positive_num", mixed);
    print "findIndex result:", first_positive_index;
    
    # Manual check
    for (i = 1; i <= 5; i++) {
        if (is_positive_num(mixed[i])) {
            print "Manual check: first positive at index", i;
            break;
        }
    }
    
    print "Test completed";
    exit 0;
}