calvino-glfw-test-suite.dylan

module: calvino-glfw3-test-suite
synopsis: Test suite for the calvino-glfw3 library.

define suite calvino-glfw3-test-suite ()
  test basics;
end suite;

define test basics ()
  glfwInit();
  glfwWindowHint($GLFW-VISIBLE, 1);
  glfwWindowHint($GLFW-DECORATED, 1);
  // let window = glfwCreateWindow(1024, 768, "Test!", null-pointer(<GLFWMonitor*>), null-pointer(<GLFWMonitor*>));
  let window = glfwCreateWindow(1024, 768, "Test!", glfwGetPrimaryMonitor(), null-pointer(<GLFWMonitor*>));
  check-false("Window not null", null-pointer?(window));

  glfwMakeContextCurrent(window);

  /* Loop until the user closes the window */
  while (~glfwWindowShouldClose(window))
    /* Render here */

    /* Swap front and back buffers */
    glfwSwapBuffers(window);

    /* Poll for and process events */
    glfwPollEvents();
  end;

  glfwTerminate();
end test;