sdl2_ffi 0.0.2

data/test/unit/sdl2/test_assert.rb

@@ -0,0 +1,10 @@
+require_relative '../../test_helper'
+require 'sdl2/assert'
+
+describe 'SDL2' do
+  
+  it 'has the SDL_assert.h API' do
+    skip 'Not yet implemented'
+  end
+  
+end

data/test/unit/sdl2/test_audio.rb

@@ -0,0 +1,9 @@
+require_relative '../../test_helper'
+
+require 'sdl2/audio'
+
+describe SDL2 do
+  it 'has the SDL_audio.h API' do
+    skip('Not Yet Implemented')
+  end
+end

data/test/unit/sdl2/test_clipboard.rb

@@ -0,0 +1,13 @@
+require_relative '../../test_helper'
+
+require 'sdl2/clipboard'
+
+describe SDL2 do
+  
+  it 'has the SDL_clipboard.h API' do
+    [:set_clipboard_text, :get_clipboard_text, :has_clipboard_text].each do|func|
+      assert_respond_to SDL2, func
+    end
+  end
+  
+end

data/test/unit/sdl2/test_cpuinfo.rb

@@ -0,0 +1,11 @@
+require_relative '../../test_helper'
+
+require 'sdl2/cpuinfo' 
+
+describe SDL2 do
+  
+  it 'should have the SDL_cpuinfo.h API' do
+    skip "Not yet implemented."
+  end
+  
+end

data/test/unit/sdl2/test_error.rb

@@ -0,0 +1,20 @@
+require_relative '../../test_helper'
+
+require 'sdl2/error'
+
+describe SDL2 do
+  
+  it 'deals with errors' do
+    
+    assert SDL2.respond_to?(:clear_error)
+    assert SDL2.respond_to?(:get_error)
+    assert SDL2.respond_to?(:set_error)
+    
+    SDL2.clear_error()
+    assert_equal '', SDL2.get_error()
+    assert_equal -1, SDL2.set_error('My Error String %d', :int, 6384)
+    assert_equal 'My Error String 6384', SDL2.get_error()
+    
+  end
+  
+end

data/test/unit/sdl2/test_events.rb

@@ -0,0 +1,31 @@
+require_relative '../../test_helper'
+
+require 'sdl2/events'
+
+describe SDL2 do
+  
+  it 'has the SDL_events.h API' do
+    [
+      :peep_events,
+      :has_event,
+      :has_events,
+      :flush_event,
+      :flush_events,
+      :poll_event,
+      :wait_event,
+      :wait_event_timeout,
+      :push_event,
+      :set_event_filter,
+      :get_event_filter,
+      :add_event_watch,
+      :del_event_watch,
+      :filter_events,
+      :event_state,
+      :register_events    
+    ].each do |function|
+      assert_respond_to SDL2, function
+    end
+    
+  end
+  
+end

data/test/unit/sdl2/test_haptic.rb

@@ -0,0 +1,10 @@
+require_relative '../../test_helper'
+require 'sdl2/haptic'
+
+describe 'SDL2' do
+  
+  it 'has the SDL_haptic.h API' do
+    skip 'Not yet implemented'
+  end
+  
+end

data/test/unit/sdl2/test_hints.rb

@@ -0,0 +1,50 @@
+require_relative '../../test_helper'
+
+require 'sdl2/hints'
+
+describe SDL2 do
+  
+  it 'has hints' do
+    assert SDL2.respond_to? :clear_hints
+    assert SDL2.respond_to? :get_hint
+    assert SDL2.respond_to? :set_hint
+    
+    assert_equal 'constant', defined?(SDL2::HINT_FRAMEBUFFER_ACCELERATION)
+    assert_equal 'constant', defined?(SDL2::HINT_IDLE_TIMER_DISABLED)
+    assert_equal 'constant', defined?(SDL2::HINT_ORIENTATIONS)
+    assert_equal 'constant', defined?(SDL2::HINT_RENDER_DRIVER)
+    assert_equal 'constant', defined?(SDL2::HINT_RENDER_OPENGL_SHADERS)
+    assert_equal 'constant', defined?(SDL2::HINT_RENDER_SCALE_QUALITY)
+    assert_equal 'constant', defined?(SDL2::HINT_RENDER_VSYNC)
+
+    assert_equal :true, SDL2.set_hint("My Hint", "My Value")
+    assert_kind_of String, SDL2.get_hint("My Hint")
+    assert_equal "My Value", SDL2.get_hint("My Hint")
+    
+    [:default, :normal, :override].each do |priority|
+      assert_equal :true, SDL2.set_hint_with_priority("#{priority}Hint", "#{priority}Value", priority)
+    end    
+    
+  end
+  
+  describe SDL2::Hint do
+    
+    it 'has hash access' do
+      assert SDL2::Hint.respond_to?(:[])
+      assert SDL2::Hint.respond_to?(:[]=)
+        
+      assert_equal "My Value", SDL2::Hint["My Hint"] = "My Value"
+      assert_equal "My Value", SDL2::Hint["My Hint"]
+        
+      [:default, :normal, :override].each do |priority|
+        assert_equal "#{priority}Value", SDL2::Hint.set_with_priority("#{priority}Hint","#{priority}Value",priority)
+      end
+    end
+  
+  end
+  
+  
+  
+  
+  
+end

data/test/unit/sdl2/test_init.rb

@@ -0,0 +1,29 @@
+require_relative '../../test_helper'
+
+require 'sdl2/init'
+
+describe SDL2 do
+  
+  after do
+    SDL2.quit()
+  end
+  
+  it 'can initialize everything' do
+    assert_equal SDL2.init(SDL2::INIT_EVERYTHING), 0
+  end
+  
+  it 'can initialize, check, and quit subsystems' do
+    assert_equal SDL2.init(SDL2::INIT_VIDEO), 0 # Only turn on video.
+    assert SDL2.was_init(SDL2::INIT_VIDEO) != 0, 'Video is initialized.'
+    refute SDL2.was_init(SDL2::INIT_AUDIO) != 0, 'Audio is not initialized'
+    assert_equal SDL2.init_sub_system(SDL2::INIT_AUDIO), 0 #Then turn on audio.
+    assert SDL2.was_init(SDL2::INIT_AUDIO) != 0, 'Audio is initialized.'
+    SDL2.quit_sub_system(SDL2::INIT_VIDEO)
+    refute SDL2.was_init(SDL2::INIT_VIDEO) != 0, 'Video is not initialized'    
+  end
+    
+  it 'can quit' do
+    assert SDL2.respond_to?(:quit)
+  end
+    
+end

data/test/unit/sdl2/test_keyboard.rb

@@ -0,0 +1,9 @@
+require_relative '../../test_helper'
+
+require 'sdl2/keyboard'
+
+describe SDL2 do
+  
+  
+  
+end

data/test/unit/sdl2/test_log.rb

@@ -0,0 +1,80 @@
+require_relative '../../test_helper'
+
+require 'sdl2/init'
+require 'sdl2/log'
+
+
+describe SDL2 do
+  before do
+    SDL2.init(SDL2::INIT_EVERYTHING)
+  end
+  
+  after do
+    SDL2.quit()
+  end
+  it 'has the log API' do    
+    [
+      :log, :log_critical, :log_debug, :log_error, :log_get_output_function,
+      :log_get_priority, :log_info, :log_message, :log_message_v, :log_reset_priorities,
+      :log_set_all_priority, :log_set_output_function, :log_set_priority, :log_verbose, :log_warn
+    ].each do |function|
+      assert_respond_to SDL2, function
+    end
+  end
+  
+  it 'logs messages' do    
+    SDL2.log('Hello World %d', :int, 6384) # API Version  
+    SDL2::Log << 'Hello World' # Object Oriented Version
+            
+    SDL2.log_critical(:application, 'Test %d', :int, 1234)
+    SDL2::Log.critical(:error, 'Test %f', :float, 2.0)
+    
+    SDL2.log_debug(:assert, 'Test %s', :string, 'String')
+    SDL2::Log.debug(:system, 'Test %c', :char, 'C'.chr().to_i)
+    
+    SDL2.log_error(:audio, 'Test %d', :int, 2)
+    SDL2::Log.error(:video, 'Test %f', :float, 63.84)
+    
+    SDL2.log_warn(:render, 'Test %d', :int, 6)
+    SDL2::Log.warn(:input, 'Test %f', :float, 88.21212)
+    
+    SDL2.log_verbose(:input, 'Test %d', :int, 8)
+    SDL2::Log.verbose(:test, 'Test %f', :float, 1234.5)
+        
+  end
+#  
+#  it 'lets you get the output function and data pointer' do
+#  
+#    
+#  end
+#  @@called = false
+#  TestFunc = Proc.new do ||
+#    puts "Test Function Called!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
+#    @@called = true
+#  end
+#  
+#  TEST_DATA = FFI::Pointer.new :string, 1
+#  
+#  
+#  it 'lets you set the output function and data pointer' do
+#    SDL2.log_set_output_function(TestFunc, TEST_DATA)
+#  end
+#  
+  it 'lets you set the log priority' do
+    [
+      :application, :error, :assert, :system,
+      :audio, :video, :render, :input, :test, :custom
+    ].each do |category|
+      [
+        :verbose, :debug, :info, :warn, :error, :critical      
+      ].each do |priority|
+        SDL2::Log.set_priority(category, priority)
+        assert_equal priority, SDL2::Log.get_priority(category)
+      end 
+      
+    end
+    SDL2::Log.set_priority(:application, :verbose)
+    
+  end
+  
+end

data/test/unit/sdl2/test_pixels.rb

@@ -0,0 +1,24 @@
+require_relative '../../test_helper'
+require 'sdl2/pixels'
+
+describe SDL2 do
+  it 'should have the SDL_pixels.h API' do
+    [
+      :get_pixel_format_name,
+      :pixel_format_enum_to_masks,
+      :masks_to_pixel_format_enum,
+      :alloc_format,
+      :free_format,
+      :alloc_palette,
+      :set_pixel_format_palette,
+      :set_palette_colors,
+      :free_palette,
+      :map_rgb,
+      :map_rgba,
+      :get_rgb,
+      :get_rgba,
+    ].each do |function|
+      assert_respond_to SDL2, function
+    end  
+  end
+end

data/test/unit/sdl2/test_power.rb

@@ -0,0 +1,11 @@
+require_relative '../../test_helper'
+
+require 'sdl2/power'
+
+describe SDL2 do
+  
+  it 'has the SDL_power.h API' do
+    assert_respond_to SDL2, :get_power_info
+  end
+  
+end

data/test/unit/sdl2/test_rect.rb

@@ -0,0 +1,19 @@
+require_relative '../../test_helper'
+
+require 'sdl2/rect'
+
+describe SDL2 do
+  
+  it 'has the SDL_rect.h API' do
+    [
+      :has_intersection,
+      :intersect_rect,    
+      :enclose_points,
+      :intersect_rect_and_line
+    ].each do |function|
+      assert_respond_to SDL2, function
+    end
+    
+  end
+  
+end

data/test/unit/sdl2/test_render.rb

@@ -0,0 +1,58 @@
+require_relative '../../test_helper'
+
+require 'sdl2/render'
+
+describe SDL2 do
+  SDL_render_H_API =     [
+    :create_renderer,
+    :create_software_renderer,
+    :create_texture,
+    :create_texture_from_surface,
+    :create_window_and_renderer,
+    :destroy_renderer,
+    :destroy_texture,
+    :get_num_render_drivers,
+    :get_render_draw_blend_mode,
+    :get_render_draw_color,
+    :get_render_driver_info,
+    :get_renderer,
+    :get_renderer_info,
+    :get_texture_alpha_mod,
+    :get_texture_blend_mode,
+    :get_texture_color_mod,
+    :lock_texture,
+    :query_texture,
+    :render_clear,
+    :render_copy,
+    :render_copy_ex,
+    :render_draw_line,
+    :render_draw_lines,
+    :render_draw_point,
+    :render_draw_points,
+    :render_draw_rect,
+    :render_draw_rects,
+    :render_fill_rect,
+    :render_fill_rects,
+    :render_get_clip_rect,
+    :render_get_viewport,
+    :render_present,
+    :render_read_pixels,
+    :render_set_clip_rect,
+    :render_set_viewport,
+    :set_render_draw_blend_mode,
+    :set_render_draw_color,
+    :set_render_target,
+    :set_texture_alpha_mod,
+    :set_texture_blend_mode,
+    :set_texture_color_mod,
+    :unlock_texture,
+    :update_texture
+  ]
+  
+  it 'has the SDL_render.h api' do
+    assert_equal 43, SDL_render_H_API.count
+    SDL_render_H_API.each do |function|
+      assert_respond_to SDL2, function      
+    end
+  end
+end

data/test/unit/sdl2/test_surface.rb

@@ -0,0 +1,45 @@
+require_relative '../../test_helper'
+
+require 'sdl2/surface'
+
+describe SDL2 do
+  it 'has the SDL_surface.h API' do
+    [
+      :create_rgb_surface,
+      :free_surface,
+      :set_surface_palette,
+      :lock_surface,
+      :unlock_surface,
+      :load_bmp_rw,
+      :load_bmp,
+      :save_bmp_rw,
+      :save_bmp,
+      :set_surface_rle,
+      :set_color_key,
+      :get_color_key,
+      :set_surface_color_mod,
+      :get_surface_color_mod,
+      :set_surface_alpha_mod,
+      :get_surface_alpha_mod,
+      :set_surface_blend_mode,
+      :get_surface_blend_mode,
+      :set_clip_rect,
+      :get_clip_rect,
+      :convert_surface,
+      :convert_surface_format,
+      :convert_pixels,
+      :fill_rect,
+      :fill_rects,
+      :upper_blit,
+      :blit_surface,
+      :lower_blit,
+      :soft_stretch,
+      :upper_blit_scaled,
+      :blit_scaled,
+      :lower_blit_scaled,
+    ].each do |function|
+      assert_respond_to SDL2, function
+    end
+
+  end
+end

data/test/unit/sdl2/test_syswm.rb

@@ -0,0 +1,11 @@
+require_relative '../../test_helper'
+
+require 'sdl2/syswm'
+
+describe SDL2 do
+  
+  it 'has the SDL_syswm.h API' do
+    assert_respond_to SDL2, :get_window_wm_info
+  end
+  
+end

data/test/unit/sdl2/test_timer.rb

@@ -0,0 +1,9 @@
+require_relative '../../test_helper'
+
+require 'sdl2/timer'
+
+describe SDL2 do
+  it 'has the SDL_timer.h API' do
+    skip('Not yet implemented')
+  end
+end

data/test/unit/sdl2/test_version.rb

@@ -0,0 +1,16 @@
+require_relative '../../test_helper'
+
+require 'sdl2/init'
+require 'sdl2/version'
+
+describe SDL2 do
+  
+  it 'has the version API' do
+    [:get_revision, :get_revision_number, :get_version].each do |function|
+      assert_respond_to SDL2, function
+    end
+  end
+  
+  # I'll test further when I start to find bugs with this.
+  
+end

data/test/unit/sdl2/test_video.rb

@@ -0,0 +1,170 @@
+require_relative '../../test_helper'
+
+require 'sdl2/init'
+require 'sdl2/video'
+
+# http://wiki.libsdl.org/CategoryVideo
+# Aligned to line 10 to make coutning easy.
+#
+# What the Ruby version of the SDL_video.h API should look like
+#
+VIDEO_API = [
+  :get_num_video_drivers,
+  :get_video_driver,
+  :video_init,
+  :video_quit,
+  :get_current_video_driver,
+  :get_num_video_displays,
+  :get_display_name,
+  :get_display_bounds,
+  :get_num_display_modes,
+  :get_display_mode,
+  :get_desktop_display_mode,
+  :get_current_display_mode,
+  :get_closest_display_mode,
+  :get_window_display_index,
+  :set_window_display_mode,
+  :get_window_display_mode,
+  :get_window_pixel_format,
+  :create_window,
+  :create_window_from,
+  :get_window_from_id,
+  :get_window_id,
+  :get_window_flags,
+  :get_window_title,
+  :set_window_title,
+  :set_window_icon,
+  :set_window_data,
+  :get_window_data,
+  :set_window_position,
+  :get_window_position,
+  :set_window_size,
+  :get_window_size,
+  :set_window_maximum_size,
+  :get_window_maximum_size,
+  :set_window_minimum_size,
+  :get_window_minimum_size,
+  :set_window_bordered,
+  :show_window,
+  :hide_window,
+  :raise_window,
+  :maximize_window,
+  :minimize_window,
+  :restore_window,
+  :set_window_fullscreen,
+  :get_window_surface,
+  :update_window_surface,
+  :update_window_surface_rects,
+  :get_window_grab,
+  :set_window_grab,
+  :get_window_brightness,
+  :set_window_brightness,
+  :get_window_gamma_ramp,
+  :set_window_gamma_ramp,
+  :destroy_window,
+  :is_screen_saver_enabled,
+  :disable_screen_saver,
+  :enable_screen_saver,
+  :gl_load_library,
+  :gl_get_proc_address,
+  :gl_unload_library,
+  :gl_extension_supported,
+  :gl_set_attribute,
+  :gl_get_attribute,
+  :gl_create_context,
+  :gl_make_current,
+  :gl_get_current_window,
+  :gl_get_current_context,
+  :gl_set_swap_interval,
+  :gl_get_swap_interval,
+  :gl_delete_context,
+  :gl_swap_window
+
+]
+
+describe SDL2 do
+  before do
+    assert(SDL2.init(SDL2::INIT_VIDEO) == 0, 'Video initialized.')
+  end
+
+  after do
+    SDL2.quit()
+  end
+
+  it 'has the video API' do
+    assert_equal 70, VIDEO_API.count
+    VIDEO_API.each do |function|
+      assert_respond_to SDL2, function
+    end
+  end
+
+  it 'can manage the screen saver' do
+    SDL2.disable_screen_saver
+    refute SDL2.is_screen_saver_enabled == :true
+    SDL2.enable_screen_saver
+    assert SDL2.is_screen_saver_enabled == :true
+  end
+
+  describe SDL2::Window do
+
+  end
+
+  it 'can query OpenGL Extension Support' do
+    skip 'not sure how to write this test right now.'
+  end
+
+  it 'can query and set OpenGL Attributes' do
+    skip 'for now.'
+  end
+
+  describe SDL2::Display do
+    it 'can count the displays attached' do
+      sdl_count = SDL2.get_num_video_displays()
+      assert_equal sdl_count, SDL2::Display.count
+    end
+
+    it 'can get the first display' do
+      assert_kind_of SDL2::Display, SDL2::Display.first
+    end
+
+    it 'can get the display bounds' do
+      assert_kind_of SDL2::Rect, SDL2::Display.first.bounds!
+    end
+
+    it 'has many display modes' do
+      assert SDL2::Display.first.modes.count > 0
+      assert_kind_of SDL2::Display::Mode, SDL2::Display.first().modes.first
+    end
+
+  end
+
+  it 'can get the closest display mode' do
+    closest_display_mode_found = nil # for now
+
+    SDL2::Display::Mode.new do |wanted|
+
+      wanted.format = 0 #SDL2::PIXELFORMAT_RGBA8888 #TODO: Import PIXELFORMAT
+      # constants?
+      wanted.w = 640
+      wanted.h = 480
+      wanted.refresh_rate = 60
+      wanted.driverdata = nil
+
+      closest_display_mode_found = SDL2::Display.first.closest_display_mode!(wanted)
+    end # This should automatically dispose of the display_mode struct we created
+    # as wanted
+    assert_kind_of SDL2::Display::Mode, closest_display_mode_found
+
+  end
+  #TODO: Redo GLContext testing
+  #describe SDL2::GLContext do
+  #
+  #    it 'can create gl_context' do
+  #      window = SDL2::Window.create!()
+  #      context = SDL2::GLContext.create!(window)
+  #      assert_kind_of SDL2::GLContext, context
+  #    end
+  #
+  #  end
+
+end