/xt/constantspm.t

http://github.com/PerlGameDev/SDL · Raku · 64 lines · 57 code · 6 blank · 1 comment · 0 complexity · 8a0ea9a0250980077e6df7927b1f3bb0 MD5 · raw file

  1. use strict;
  2. use warnings;
  3. use SDL::Events;
  4. use Test::More; # use_ok + constants
  5. BEGIN { use_ok('SDL::Constants') }
  6. # 'use' should have imported all constants
  7. is( SDL_GL_ACCUM_ALPHA_SIZE, 11, 'SDL_GL_ACCUM_ALPHA_SIZE should be imported' );
  8. is( SDL_GL_ACCUM_ALPHA_SIZE(), 11,
  9. 'SDL_GL_ACCUM_ALPHA_SIZE() should also be available'
  10. );
  11. is( SDL_GL_ACCUM_BLUE_SIZE, 10, 'SDL_GL_ACCUM_BLUE_SIZE should be imported' );
  12. is( SDL_GL_ACCUM_BLUE_SIZE(), 10,
  13. 'SDL_GL_ACCUM_BLUE_SIZE() should also be available'
  14. );
  15. is( SDL_GL_ACCUM_GREEN_SIZE, 9, 'SDL_GL_ACCUM_GREEN_SIZE should be imported' );
  16. is( SDL_GL_ACCUM_GREEN_SIZE(), 9,
  17. 'SDL_GL_ACCUM_GREEN_SIZE() should also be available'
  18. );
  19. is( SDL_GL_ACCUM_RED_SIZE, 8, 'SDL_GL_ACCUM_RED_SIZE should be imported' );
  20. is( SDL_GL_ACCUM_RED_SIZE(), 8,
  21. 'SDL_GL_ACCUM_RED_SIZE() should also be available'
  22. );
  23. is( SDL_GL_ALPHA_SIZE, 3, 'SDL_GL_ALPHA_SIZE should be imported' );
  24. is( SDL_GL_ALPHA_SIZE(), 3, 'SDL_GL_ALPHA_SIZE() should also be available' );
  25. is( SDL_GL_BLUE_SIZE, 2, 'SDL_GL_BLUE_SIZE should be imported' );
  26. is( SDL_GL_BLUE_SIZE(), 2, 'SDL_GL_BLUE_SIZE() should also be available' );
  27. is( SDL_GL_BUFFER_SIZE, 4, 'SDL_GL_BUFFER_SIZE should be imported' );
  28. is( SDL_GL_BUFFER_SIZE(), 4, 'SDL_GL_BUFFER_SIZE() should also be available' );
  29. is( SDL_GL_DEPTH_SIZE, 6, 'SDL_GL_DEPTH_SIZE should be imported' );
  30. is( SDL_GL_DEPTH_SIZE(), 6, 'SDL_GL_DEPTH_SIZE() should also be available' );
  31. is( SDL_GL_DOUBLEBUFFER, 5, 'SDL_GL_DOUBLEBUFFER should be imported' );
  32. is( SDL_GL_DOUBLEBUFFER(), 5,
  33. 'SDL_GL_DOUBLEBUFFER() should also be available'
  34. );
  35. is( SDL_GL_GREEN_SIZE, 1, 'SDL_GL_GREEN_SIZE should be imported' );
  36. is( SDL_GL_GREEN_SIZE(), 1, 'SDL_GL_GREEN_SIZE() should also be available' );
  37. is( SDL_GL_RED_SIZE, 0, 'SDL_GL_RED_SIZE should be imported' );
  38. is( SDL_GL_RED_SIZE(), 0, 'SDL_GL_RED_SIZE() should also be available' );
  39. is( SDL_GL_STENCIL_SIZE, 7, 'SDL_GL_STENCIL_SIZE should be imported' );
  40. is( SDL_GL_STENCIL_SIZE(), 7,
  41. 'SDL_GL_STENCIL_SIZE() should also be available'
  42. );
  43. is( SMPEG_ERROR, -1, 'SMPEG_ERROR should be imported' );
  44. is( SMPEG_ERROR(), -1, 'SMPEG_ERROR() should also be available' );
  45. is( SMPEG_PLAYING, 1, 'SMPEG_PLAYING should be imported' );
  46. is( SMPEG_PLAYING(), 1, 'SMPEG_PLAYING() should also be available' );
  47. is( SMPEG_STOPPED, 0, 'SMPEG_STOPPED should be imported' );
  48. is( SMPEG_STOPPED(), 0, 'SMPEG_STOPPED() should also be available' );
  49. is( SDL_SVG_FLAG_DIRECT, 0, 'SDL_SVG_FLAG_DIRECT should be imported' );
  50. is( SDL_SVG_FLAG_DIRECT(), 0,
  51. 'SDL_SVG_FLAG_DIRECT() should also be available'
  52. );
  53. is( SDL_SVG_FLAG_COMPOSITE, 1, 'SDL_SVG_FLAG_COMPOSITE should be imported' );
  54. is( SDL_SVG_FLAG_COMPOSITE(), 1,
  55. 'SDL_SVG_FLAG_COMPOSITE() should also be available'
  56. );
  57. done_testing();
  58. sleep(2);