/core/alien/alien-tests.factor

http://github.com/abeaumont/factor · Factor · 87 lines · 60 code · 26 blank · 1 comment · 6 complexity · 4f25bb333b9e15a2fa96260ba459a5f7 MD5 · raw file 

    

  1. USING: accessors alien alien.accessors alien.syntax byte-arrays arrays
    2. 

  2. kernel kernel.private namespaces tools.test sequences libc math
    3. 

  3. system prettyprint layouts alien.libraries sets ;
    4. 

  4. FROM: namespaces => set ;
    5. 

  5. IN: alien.tests
    6. 

  6. 

  7. [ t ] [ -1 <alien> alien-address 0 > ] unit-test
    8. 

  8. 

  9. [ t ] [ 0 <alien> 0 <alien> = ] unit-test
    10. 

  10. [ f ] [ 0 <alien> 1024 <alien> = ] unit-test
    11. 

  11. [ f ] [ "hello" 1024 <alien> = ] unit-test
    12. 

  12. [ f ] [ 0 <alien> ] unit-test
    13. 

  13. [ f ] [ 0 f <displaced-alien> ] unit-test
    14. 

  14. 

  15. ! Testing the various bignum accessor
    16. 

  16. 10 <byte-array> "dump" set
    17. 

  17. 

  18. [ "dump" get alien-address ] must-fail
    19. 

  19. 

  20. [ 123 ] [
    21. 

  21.     123 "dump" get 0 set-alien-signed-1
    22. 

  22.     "dump" get 0 alien-signed-1
    23. 

  23. ] unit-test
    24. 

  24. 

  25. [ 12345 ] [
    26. 

  26.     12345 "dump" get 0 set-alien-signed-2
    27. 

  27.     "dump" get 0 alien-signed-2
    28. 

  28. ] unit-test
    29. 

  29. 

  30. [ 12345678 ] [
    31. 

  31.     12345678 "dump" get 0 set-alien-signed-4
    32. 

  32.     "dump" get 0 alien-signed-4
    33. 

  33. ] unit-test
    34. 

  34. 

  35. [ 12345678901234567 ] [
    36. 

  36.     12345678901234567 "dump" get 0 set-alien-signed-8
    37. 

  37.     "dump" get 0 alien-signed-8
    38. 

  38. ] unit-test
    39. 

  39. 

  40. [ -1 ] [
    41. 

  41.     -1 "dump" get 0 set-alien-signed-8
    42. 

  42.     "dump" get 0 alien-signed-8
    43. 

  43. ] unit-test
    44. 

  44. 

  45. cell 8 = [
    46. 

  46.     [ 0x123412341234 ] [
    47. 

  47.       8 <byte-array>
    48. 

  48.       0x123412341234 over 0 set-alien-signed-8
    49. 

  49.       0 alien-signed-8
    50. 

  50.     ] unit-test
    51. 

  51.     
    52. 

  52.     [ 0x123412341234 ] [
    53. 

  53.       8 <byte-array>
    54. 

  54.       0x123412341234 over 0 set-alien-signed-cell
    55. 

  55.       0 alien-signed-cell
    56. 

  56.     ] unit-test
    57. 

  57. ] when
    58. 

  58. 

  59. [ "ALIEN: 1234" ] [ 0x1234 <alien> unparse ] unit-test
    60. 

  60. 

  61. [ ] [ 0 B{ 1 2 3 } <displaced-alien> drop ] unit-test
    62. 

  62. 

  63. [ 0 B{ 1 2 3 } <displaced-alien> alien-address ] must-fail
    64. 

  64. 

  65. [ 1 1 <displaced-alien> ] must-fail
    66. 

  66. 

  67. [ f ] [ 1 B{ 1 2 3 } <displaced-alien> pinned-c-ptr? ] unit-test
    68. 

  68. 

  69. [ f ] [ 2 B{ 1 2 3 } <displaced-alien> 1 swap <displaced-alien> pinned-c-ptr? ] unit-test
    70. 

  70. 

  71. [ t ] [ 0 B{ 1 2 3 } <displaced-alien> 1 swap <displaced-alien> underlying>> byte-array? ] unit-test
    72. 

  72. 

  73. [ "( displaced alien )" ] [ 1 B{ 1 2 3 } <displaced-alien> unparse ] unit-test
    74. 

  74. 

  75. SYMBOL: initialize-test
    76. 

  76. 

  77. f initialize-test set-global
    78. 

  78. 

  79. [ 31337 ] [ initialize-test [ 31337 ] initialize-alien ] unit-test
    80. 

  80. 

  81. [ 31337 ] [ initialize-test [ 69 ] initialize-alien ] unit-test
    82. 

  82. 

  83. [ ] [ initialize-test get BAD-ALIEN >>alien drop ] unit-test
    84. 

  84. 

  85. [ 7575 ] [ initialize-test [ 7575 ] initialize-alien ] unit-test
    86. 

  86. 

  87. [ { BAD-ALIEN } ] [ { BAD-ALIEN BAD-ALIEN BAD-ALIEN } members ] unit-test
    88.