PageRenderTime 51ms CodeModel.GetById 14ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/r/r_copy_struct_runme.R

#
R | 58 lines | 39 code | 16 blank | 3 comment | 0 complexity | 13c7fcb5103790e01a611aac7a142294 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. source("unittest.R")
    2. 

  2. dyn.load(paste("r_copy_struct", .Platform$dynlib.ext, sep=""))
    3. 

  3. source("r_copy_struct.R")
    4. 

  4. cacheMetaData(1)
    5. 

  5. 

  6. a <- getA()
    7. 

  7. 

  8. r = getARef()
    9. 

  9. 

  10. unittest(A_d_get(r), 42)
    11. 

  11. unittest(r$d, 42)
    12. 

  12. unittest(r$i, 20)
    13. 

  13. 

  14. # An error in trying to access a field that doesn't exist.
    15. 

  15. try(r$foo) 
    16. 

  16. 

  17. r$d <- pi
    18. 

  18. unittesttol(r$d, 3.141593, 0.0001)
    19. 

  19. r$i <- -100
    20. 

  20. 

  21. r$ui
    22. 

  22. r$ui <- 10
    23. 

  23. 

  24.  # An error since i is unsigned and so must  be positive.
    25. 

  25. try(r$ui <- -10)
    26. 

  26. 

  27. 

  28. a = A()
    29. 

  29. unittest(a$i,0)
    30. 

  30. unittest(a$d,0)
    31. 

  31. unittest(a$ui,0)
    32. 

  32. a$ui <- 100
    33. 

  33. unittest(a$ui,100)
    34. 

  34. a$d = 1
    35. 

  35. unittest(a$d,1)
    36. 

  36. 

  37. d <- bar()
    38. 

  38. unittest(class(d), "_p_D")
    39. 

  39. unittest(d$x, 1)
    40. 

  40. unittest(d$u, 0)
    41. 

  41. 

  42. 

  43. la <- new("A");
    44. 

  44. la@ui <- as.integer(5)
    45. 

  45. # Removing the next line makes this fail in R 2.4
    46. 

  46. la@str <- ""
    47. 

  47. 

  48. other = A()
    49. 

  49. foo <- copyToC(la, other)
    50. 

  50. 

  51. aa = A()
    52. 

  52. aa$i = as.integer(201)
    53. 

  53. aa$d = pi
    54. 

  54. aa$str = "foo"
    55. 

  55. aa$ui = as.integer(0)
    56. 

  56. copyToR(aa)
    57. 

  57. 

  58. 

  59.