Merge pull request #3 from pachadotdev/issue452

Issue452

Author: pachadotdev

cpp11test/src/test-integers.cpp

@@ -155,23 +155,6 @@ context("integers-C++") {
     expect_true(x[1] == 3);
     expect_true(x[2] == 4);
   }
-  test_that("integers.value()") {
-    cpp11::writable::integers x;
-    x.push_back(1);
-    x.push_back(2);
-    x.push_back(3);
-
-    // Test that value() returns the same as operator[] but as T directly
-    expect_true(x.value(0) == 1);
-    expect_true(x.value(1) == 2);
-    expect_true(x.value(2) == 3);
-
-    // Test that value() works with C-style formatting (this was the original issue in
-    // #453)
-    expect_true(x.value(0) == x[0]);
-    expect_true(x.value(1) == x[1]);
-    expect_true(x.value(2) == x[2]);
-  }
 
   test_that("writable::integers(SEXP)") {
     SEXP x = PROTECT(Rf_allocVector(INTSXP, 5));
@@ -312,56 +295,4 @@ context("integers-C++") {
     int y = NA_INTEGER;
     expect_true(cpp11::is_na(y));
   }
-
-  test_that("proxy issue demonstration") {
-    // This test demonstrates the proxy issue and shows that all solutions work
-    cpp11::writable::integers x;
-    for (int i = 0; i < 3; i++) {
-      x.push_back(i * 10);
-    }
-
-    // Test that value() method works correctly
-    expect_true(x.value(0) == 0);
-    expect_true(x.value(1) == 10);
-    expect_true(x.value(2) == 20);
-
-    // Test that explicit cast works
-    expect_true((int)x[0] == 0);
-    expect_true((int)x[1] == 10);
-    expect_true((int)x[2] == 20);
-
-    // Test that auto assignment works (triggers implicit conversion)
-    int val0 = x[0];
-    int val1 = x[1];
-    int val2 = x[2];
-    expect_true(val0 == 0);
-    expect_true(val1 == 10);
-    expect_true(val2 == 20);
-
-    // Test that value() and operator[] return equivalent results
-    expect_true(x.value(0) == (int)x[0]);
-    expect_true(x.value(1) == (int)x[1]);
-    expect_true(x.value(2) == (int)x[2]);
-  }
-}
-
-// [[cpp11::register]]
-// Demo function to show the three ways to handle the proxy issue
-// To use this function:
-// 1. Run cpp11::cpp_register() to regenerate R bindings
-// 2. Rebuild and reinstall the package
-// 3. Call test_proxy_issue_demo() from R
-void test_proxy_issue_demo() {
-  cpp11::writable::integers x;
-  for (int i = 0; i < 5; i++) {
-    x.push_back(i);
-
-    // These all work correctly:
-    Rprintf("Method 1 - cast: x[%d] = %d\n", i, (int)x[i]);
-    Rprintf("Method 2 - value(): x[%d] = %d\n", i, x.value(i));
-
-    // This also works (auto triggers implicit conversion):
-    int val = x[i];
-    Rprintf("Method 3 - auto: x[%d] = %d\n", i, val);
-  }
 }