/core/definitions/definitions-tests.factor

http://github.com/abeaumont/factor · Factor · 30 lines · 20 code · 10 blank · 0 comment · 0 complexity · 53f558028f6ab0f775c94ed67ca4d522 MD5 · raw file 

    

  1. USING: tools.test generic kernel definitions sequences
    2. 

  2. compiler.units words ;
    3. 

  3. IN: definitions.tests
    4. 

  4. 

  5. GENERIC: some-generic ( a -- b )
    6. 

  6. 

  7. USE: arrays
    8. 

  8. 

  9. M: array some-generic ;
    10. 

  10. 

  11. USE: bit-arrays
    12. 

  12. 

  13. M: bit-array some-generic ;
    14. 

  14. 

  15. USE: byte-arrays
    16. 

  16. 

  17. M: byte-array some-generic ;
    18. 

  18. 

  19. TUPLE: some-class ;
    20. 

  20. 

  21. M: some-class some-generic ;
    22. 

  22. 

  23. [ ] [
    24. 

  24.     [
    25. 

  25.         \ some-generic
    26. 

  26.         \ some-class
    27. 

  27.         2array
    28. 

  28.         forget-all
    29. 

  29.     ] with-compilation-unit
    30. 

  30. ] unit-test
    31.